VBA Excel
10.06.2014 14:39:31
Markus
Hab eine frage und zwar hab ich dieses modul programmiert ....
Sub Kopieren()
Application.ScreenUpdating = False
Dim leereZeile
Workbooks("0001.xlsx").Sheets("0001").Range("A2:M2").Copy
Workbooks.Open "C:\dateipfad\Auswertung.xlsx"
leereZeile = Workbooks("Auswertung.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row _
+ 1
Workbooks("Auswertung.xlsx").Sheets("Tabelle1").Range("A" & leereZeile & ":J" & leereZeile). _
Select
ActiveSheet.Paste
With Workbooks("Auswertung.xlsx")
.Save
.Close
End With
Application.CutCopyMode = True
Application.ScreenUpdating = True
MsgBox ("Daten sind erfolgreich übertragen worden")
With Workbooks("0001.xlsx")
.Save
.Close
End With
End Sub
Das funktioniert so weit auch recht gut ...bis auf das das wenn ich den befehl ganz oben hinsetzte
Workbooks.Open "C:\dateipfad\0001.xlsx"
dann geht die sache schon nicht mehr warum auch immer pfad und so stimmt alles keine ahnung auch egal..
meine frage ist jetzt er müsste die datei 0001 und tabelle 0001 (siehe oben : Workbooks("0001.xlsx").Sheets("0001").Range("A2:M2").Copy)
immer nach schreiben in Auswertung.xlsx um eines erhöhen und das eben immer dann wenn das makro neugestartet wird und er soll es solange machen bis im ordner wo die daten liegen z.b. 0001 - 1000 (csv files) nicht mehr vorhanden sind also z.b. bis 0050 sind daten vorhanden er macht das bis 50 und dann schreib er "Daten sind erfolgreich übertragen worden".
wäre schön wenn mir jemand helfen könnte bitte danke