Ich möchte gerne in einem kurzen Code wissen wie ich abfragen kann ob im A1 bis A20 keinen Text steht wenn ja Schleife ausführen sonst abbrechen.
Vielen Dank
TOM
Ich möchte gerne in einem kurzen Code wissen wie ich abfragen kann ob im A1 bis A20 keinen Text steht wenn ja Schleife ausführen sonst abbrechen.
Vielen Dank
TOM
mit folgendem Code sollte es klappen:
Sub leerer_Bereich()
Dim Zelle As Range
Dim istleer As Boolean
istleer = True
For Each Zelle In Worksheets("Tabelle1").Range("A1:A20")
If Zelle.Text <> "" Then
istleer = False
GoTo weiter
End If
Next
weiter:
MsgBox (istleer)
End Sub
Gruss
otto
Die Schleifenlösung meines Namensvetters hat mir nicht gefallen.
Besser ist:
Gruß Otto
Ich habe mir doch gedacht, dass es da einen einfacheren Code gibt.
Läuft prima.............
Gruss Euch beiden und "än Guetä" aus der Schweiz
TOM