AW: Mussfelder bei Excel?
Marcl
Versuchs mal damit:
Sub a()
Dim i
Range("A1").Select
' Beginn einer Schleife von Zell 1 bis 2000
For i = 1 To 2000
' Von Zelle A1 zu B2 springen (1. Zelle mit Daten)
ActiveCell.Offset(1, 1).Select
'Ist die Zelle leer, Vorgang abbrechen
If ActiveCell = "" Then Exit Sub
Ist die Zelle nicht leer, Zelle davor prüfen
ActiveCell.Offset(0, -1).Select
Ist die Zelle leer, Fehlerhinweis geben
If ActiveCell = "" Then GoTo errorhandler
Next i
Exit Sub
' Fehlerhinweis
errorhandler:
MsgBox ("Bitte hier Daten eintragen")
End Sub
Ist die Tebelle länger, aus 2000 einfach verändern
Gruß Marcl