Abfragen ob Bereich leer ist ?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Abfragen ob Bereich leer ist ?
von: TOM
Geschrieben am: 08.07.2002 - 09:20:45

Schöner Morgen zusammen

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


nach oben   nach unten

Re: Abfragen ob Bereich leer ist ?
von: Otto
Geschrieben am: 08.07.2002 - 09:55:03

Hallo 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

nach oben   nach unten

Re: Abfragen ob Bereich leer ist ?
von: Otto
Geschrieben am: 08.07.2002 - 10:26:50

Hallo Tom & Otto,

Die Schleifenlösung meines Namensvetters hat mir nicht gefallen.
Besser ist:

Option Explicit

Sub Haupt()
   Call leerer_Bereich
End Sub  

Sub leerer_Bereich()
   If WorksheetFunction.CountA( _
    Worksheets("Tabelle1").Range("A1:A20")) > 0 Then    
      MsgBox "Werte vorhanden"
   Else
      MsgBox "Bereich ist leer"
   End If  
End Sub  

Gruß Otto

nach oben   nach unten

Re: Abfragen ob Bereich leer ist ?
von: TOM
Geschrieben am: 08.07.2002 - 11:44:03

Suber 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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Abfragen ob Bereich leer ist ?"