Office: Bedingte Anweisung für leere Zellen

Hi Team,

als blutiger Anfänger scheitere ich an scheinbar einfach Dingen oder ich denke zu kompliziert.

Ich möchte gerne über ein CButton ein Makro laufen lassen, dass schaut, ob in Sheet X die Zelle bzw. Range Y leer oder gefüllt ist und dann Bedingungen erfüllt.

Soweit mein Code:

Sub Makro1()

'Dim Zelle As Range
Dim Bereich As Range

Worksheets("Data").Select

Set Bereich = Range("A2:AZ1000")

If Bereich = "" Then

MsgBox "Es sind keine Daten vorhanden"

Else

Call FormelnData

End If

End Sub



Danke vorab und Gruß!

 

Code:

Option Explicit

Sub Makro1()
    'Dim Zelle As Range
    Dim Bereich As Range
    With Worksheets("Data")
        Set Bereich = .Range("A2:AZ1000")
        If Application.WorksheetFunction.CountA(Bereich) = 0 Then
            MsgBox "Es sind keine Daten vorhanden"
        Else
            Call FormelnData
        End If
    End With
    Set Bereich = Nothing
End Sub

Sub FormelnData()

End Sub

 

Ach Hajo vielen Dank, es klappt!