Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 Euro
usw. (innsgesamt ca 5 Bereiche).
Die Daten hierzu soll sich das script aus der Datei (wäre super wenn ein Auswahlfenster aufgehen würde wo man sich die Datei aussuchen könnte) "Zeiterfassung" (siehe Anhang) nehmen: Blatt "GRE" mit den Feldern: F6, F12, F18, F24 usw. und H6, H12, H18, H24.
Ich habe nun folgenden Code gefunden und bräuchte nun Hilfe um ihn entsprechend anzupassen:
Private Sub CommandButton1_Click()
'Prozedur für den Datenimport
Dim dateiname As String
Dim datei As Object
dateiname = Application.GetOpenFilename("Excel Datei, *.xls") 'Datei auswählen
If dateiname = "Falsch" Then Exit Sub ' bei Abbruch
Application.ScreenUpdating = False
datei.Sheets(1).Range("N6:P16").Copy Destination:=ThisWorkbook.Sheets("NSA").Range("E5:G15")
datei.Close 'datei schließen
Application.ScreenUpdating = True
MsgBox ("Daten wurden übertragen") 'Meldung machen
EndSUb
Wie implementiere/verändere ich in diesen Code nun folgende Dinge:
-Range so verändern, dass er alle Datainut, Lager PM usw Werte raussucht und jewils addiert (spriche Summe aller Datainput usw.) und erst dann in die destiantion einfügt.
- destination so verändere, dass er die Daten in das Blatt "Auswertung" kopiert und zwar immer paar Zeilen unter dem letzten Eintrag. Es sollte wie folgt ausschauen:
Woche 1
Datainut PO1234 500 Euro
Lager PM PO23456 800 Euro
Woche 2
Datainut PO1234 700 Euro
Lager PM PO23456 400 Euro
Das Excelfile ist unter der unten angegebenen Adresse verfügbar:
michi22.mi.funpic.de/bilder/Zeiterfassung.xls
mfg
Michi