Hallo,
ich habe folgendes Makro für das verschieben der Zelle und dann wieder zurück
um den kopierten Wert zu lösch.
Das Funktion soweit.
Jetzt möchte ich gern das in der aktiven Spalte die nächste belegte Zelle gesucht wird
und das Makro ausgeführt wird bis zu letzten belegten Zelle in der aktiven Spalte.
ub kopieren_verschieben()
ActiveSheet.Unprotect (getStrPasswort)
With ActiveCell
Selection.Copy
Selection.Offset(0, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Offset(0, -5).Select
Selection.ClearContents
'Range(.Offset(0, 0), .Offset(0, 5)).Select
End With
End Sub
mfg walter b