Bitte Makro für die ganze Tabelle ergänzen
21.10.2004 10:36:37
Jutta
mein Makro funktioniert,
Sub Kopieren()
Range("B:B").Select
If Selection = 88 Then
ActiveCell.Offset(rowOffset:=-1, columnOffset:=4).Activate
Selection.Copy
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(rowOffset:=1, columnOffset:=-4).Activate
End If
End Sub
ich möchte jetzt nur, dass das Makro solange ausgeführt wird, solange die Bedingung gegeben ist (in meinem Fall, die ganze Spalte B durchläuft, bis kein Wert mehr vorhanden ist.
Aber wie?
Gruß
Jutta