Makro erweiterung
20.02.2005 13:38:23
Rolf
Hallo Sepp
Weil es so schön geklappt hat... Hier ist noch etwas:
In diesem Makro (Auszug) habe ich ein Problem:
Hinweis: Die Adressen stehen in einer Zeile von 2 bis 8.
Ich markiere mehrere Adressen, die im alten Tabellenblatt gelöscht und in neuen eingefügt werden sollen.
Er löscht zwar alle markierten Adressen,
kopiert aber nur die erste Adresse wieder ein.
Er soll aber alle Adressen wieder einfügen.
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)
Selection.ClearContents
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).ClearContents
Gruss Rolf K.