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"