Makro erweiterung

Bild

Betrifft: Makro erweiterung von: Rolf K
Geschrieben am: 20.02.2005 13:38:23

Achtung: Doppelter Eintrag vom 19.2.05 20:59:41


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.

Bild


Betrifft: AW: Makro erweiterung von: Rolf K.
Geschrieben am: 22.02.2005 16:10:03

Hallo Sepp
Hat geklappt

Danke
Rolf K.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kalender"