Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Wenn Bereich leer dann....

Betrifft: Wenn Bereich leer dann.... von: Spenski
Geschrieben am: 13.09.2014 10:08:19

Hallo , bräuhte mal kurz eure hilfe

ich will eine IF abfrage haben, die prüft, ob im sheets(2) und sheets(3) bestimmte Bereiche leer sind. leider bekomm ichs nicht hin.

hab auch im archive rumgesucht, allerdings finde ich nix was ich auch für mich umsetzen kann.

das ist mein ergebnis aber fehlerhaft :

If IsEmpty(Sheets(2).Range("B1:B10")) And IsEmpty(Sheets(3).Range("B1:B10")) Then

kann mir jemand helfen???

danke und schönes wochenende

  

Betrifft: AW: Wenn Bereich leer dann.... von: Hajo_Zi
Geschrieben am: 13.09.2014 10:14:19

ich hätte

Option Explicit
Sub T()
    If WorksheetFunction.CountIf(Range("a1:a2"), "") = Range("a1:a2").Count Then
        MsgBox "Ja"
    End If
End Sub

benutzt.

GrußformelHomepage


  

Betrifft: AW: Wenn Bereich leer dann.... von: Spenski
Geschrieben am: 13.09.2014 10:23:41

danke Hajo


  

Betrifft: AW: Wenn Bereich leer dann.... von: Gerd L
Geschrieben am: 13.09.2014 12:31:55

Hallo!

Sub zwo()

If WorksheetFunction.CountA(Sheets(2).Range("B1:B10")) + WorksheetFunction.CountA(Sheets(3). _
Range("B1:B10")) = 0 Then
Stop
End If


If WorksheetFunction.CountBlank(Sheets(2).Range("B1:B10")) + WorksheetFunction.CountBlank( _
Sheets(3).Range("B1:B10")) = 20 Then
Stop
End If



End Sub
Gruß Gerd


 

Beiträge aus den Excel-Beispielen zum Thema "Wenn Bereich leer dann...."