Sub neues()
Dim row As Integer
Dim col As Integer
row = 1
col = 1
Do While Tabelle1.Cells(row, col) <> ""
Do While Tabelle1.Cells(row, col) <> ""
'zeugs machen
col = col + 1 'nächste zelle
Loop
'wenn die letzte gefüllte zelle der
'vorigen zeile erreicht ist wieder zur 1. Zelle gehn
col = 1
row = row + 1
Loop
End Sub
[/PHP]
also so würde ich das machen... da läuft er jetzt solang durch bis die 1. Zelle einer neuen Zeile leer ist...
ist nicht getestet, aber sollte so ok sein