Range über mehrere Bereiche
29.03.2005 13:51:20
Thomas
ich möchte in meiner Tabelle nach der 1. leeren Zelle in Tabelle2 im Bereich von B14 bis B55 suchen.
Das mache ich so:
Sub leerfinden()
Dim l
Sheets("Tabelle2").Activate
For Each l In Tabelle2.Range("B14:B55")
If l.Text = "" Then
l.Select
Set l = ActiveCell
Exit For
End If
Next
End Sub
Das klappt auch gut. Aber jetzt möchte ich, wenn die Zellen alle "voll" sind, das von B59 bis B90 weitergesucht wird. Also B56-58 sollen ausgelassen werden. Und da soll auch nur gesucht werden, wenn die anderen alle voll sind.
Anzeige