Range über mehrere Bereiche

Bild

Betrifft: Range über mehrere Bereiche
von: Thomas
Geschrieben am: 29.03.2005 13:51:20
Hallo,
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.
Bild

Betrifft: AW: Range über mehrere Bereiche
von: Ingo
Geschrieben am: 29.03.2005 14:08:47

Sub leerfinden()
Dim l as range
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
If l Is Nothing Then
    For Each l In Tabelle2.Range("B59:B90")
       If l.Text = "" Then
       l.Select
       Set l = ActiveCell
    Exit For
    End If
Next
End If
End Sub

m f G
Ingo Christiansen
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Range über mehrere Bereiche"