Guten Morgen,
habe mal eine Frage:
Wie kann ich die Aktion so lange durchführen, bis die nächste aktive Zelle
LEER ist.
Habe mal das Makro gebaut aber bei der 2. Ausführen ist es zu Ende.
Range("A9").Select
If Not ActiveCell "" Then
MsgBox "Es ist keine Repco-Nummer vorhanden " & Chr(13) & Chr(13) & _
Chr(13) & Chr(13), vbInformation, " Hinweis !"
Exit Sub
Else
ActiveCell.Copy
Sheets("Zettel").Select
Range("B5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Eingabe").Select
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell "" Then
ActiveCell.Copy
Sheets("Zettel").Select
Range("B5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Eingabe").Select
Else
MsgBox "Es ist keine Repco-Nummer vorhanden " & Chr(13) & Chr(13) & _
Chr(13) & Chr(13), vbInformation, " Hinweis !"
End If
End If
Application.ScreenUpdating = True
End Sub
gruß walli