Daten löschen
06.02.2006 15:05:15
petra
Hab folgenden Makro (Sortiert in Tabelle 1 die Daten, danach kopiert er diese und kopiert die in Tabelle 2):
Sub Umsortieren()
Dim lZeile As Long
Dim lLetzte As Long
lLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = 1 To lLetzte
Range("D" & lZeile).Value = Range("D" & lZeile).Value
Next lZeile
Range("D5:D" & lLetzte).Sort _
Key1:=Range("D5"), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Sub Kopieren()
Columns("A:D").Select
Selection.Copy
Sheets("Tabelle 2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Jetzt soll er im Anschluss in Tabelle 2 in Spalte D gehen und ab der Zelle D? die eine 2 enthält die Inhalte in Spalten A bis D löschen.
was muss man dazufügen, damit der Makro das macht?
Vielen Dank
lg
petra