Ich kopiere über ein Makro schrittweise Daten in ein neues Excel-Sheet. Nachdem die erste Datenzeile in das neue Sheet eingefügt ist, löscht das Macro autom. diese Zeile im Original. Jetzt starte ich das Macro erneut und er beginnt natürlich von vorne. Soweit so gut. Jetzt überschreibt er aber die Daten vom ersten Kopiervorgang ohne an das Ende der Tabelle zu springen! Wie kann ich dem Macro mitteilen, das es genau das tun soll und wie kann ich das macro autom. so lange ausführen lassen bis das Original "leer" ist, d.h. alle Zeilen, nach dem kopieren, gelöscht wurden.
Sub Schritt1Uhrzeit()
' Schritt1Uhrzeit Makro
' Makro am 15.08.2007 von Christian Sprenger aufgezeichnet
Range("C1:Z1").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("01.10.05 - 29.10.05").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
ActiveWindow.SmallScroll Down:=-18
Range("A1:A24").Select
ActiveSheet.Paste
Sheets("01.10.05 - 29.10.05").Select
Range("C2:Z2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("01.10.05 - 29.10.05").Select
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Vielen Dank für eure Hilfe schon einmal im vorraus.