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 [Only registered and activated users can see links. Click Here To Register...].
Auszüge von beispielhaften Formeln und VBA Snippets:
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 [Only registered and activated users can see links. Click Here To Register...].
Auszüge von beispielhaften Formeln und VBA Snippets:
Code:
=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);"");"");"")
Code:
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