[Selling] Excel - Service

[Coach Broeki]

Was biete ich an:

Ich kann für Euch alle möglichen Excel-Aufgaben erledigen oder Dateien für Euch aufbauen. Dies beinhaltet normale Formeln wie WENN, SVERWEIS, etc. bis hin zu komplexen Strukturen inkl. richtiger Programmierung in VBA (Makros).
Grundsätzlich gibt es für mich nichts, was ich in Excel nicht kann. Schreibt mir einfach eine Nachricht via EPVP.

Auszüge von beispielhaften Formeln und VBA Snippets:

=WENN(D36>0;WENNFEHLER(WENN(ZÄHLENWENNS(Zwischendaten!$C$2:$C$221;1)=1;INDEX(Zwischendaten!$A$2:$C$221;VERGLEICH(Daten_Dashboard!B36;Zwischendaten!$C$2:$C$221;0);1);"");"");"")

Sub ImportData()
    On Error GoTo ErrorHandler

    ThisWorkbook.Worksheets("Tabelle1").Unprotect Password:="Asjknf879a=!!!?N8fsaKFosg"
    NameWork = ThisWorkbook.Name

    TabellenName = "Data"
    Set ws = Sheets("Potential Tracker")

    ChDir ""
    ChDrive "c:"

    'Das Dialogfenster
    Dateiname = Application.GetOpenFilensfame 
    ("Micrsoft Excel-Dateien (.xlsm),.xlsm")

    If Dateiname = False Then Exit Sub

    Application.ScreenUpdating = False

    Workbooks.Open Dateiname
    Dateiname = ActiveWorkbook.Name
    Dateiname2 = "'" & Dateiname & "'"

    'Bereich in dem die Werte stehen, in den Zwischenspeicher einlesen
    With ActiveWorkbook.Worksheets(TabellenName).Range("A7:AV50000")
      If Application.WorksheetFunction.CountA(.Columns(14)) = 0 Then Exit Sub
      Application.Intersect(.Columns(14).SpecialCells(xlCellTypeConstants).EntireRow, .Columns).Copy
    End With

    'Workbookwechseln
    Workbooks(NameWork).Activate

    'erste freie Zeile ermitteln
    Call lastrowRechnung
    Hilfsrechner = lastrow + 1

    'erste freie Zeile auswählen
    ws.Cells(Hilfsrechner, 1).Select

    'Ausschließlich Werte der kopierten Daten einfügen
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
        :=True, Transpose:=False

    ThisWorkbook.Worksheets("Tabelle1").Protect Password:="Asjknf879a=!!!?N8fsaKFosg"
    Application.ScreenUpdating = True

    If ws.Range("E2").Value = "DE Version" Then
        MsgBox ("Daten wurden erfolgreich importiert!")
    Else
        MsgBox ("Data were imported successfully!")
    End If

ErrorHandler:
Call Fehler
Exit Sub

End Sub

[Crowley]

Habe bei den Coach eine Stundentabelle bestellt die auf meine wünsche angepasst wurde und mir wurde auch geholfen damit umzugehen.

Vom Preis her ist es voll in Ordnung was die Leistung angeht.


Kann den Service nur empfehlen!