Herbers Excel/VBA-Archiv

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

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

Wenn Bereich leer dann....

• Wenn Bereich leer dann.... von Spenski vom 13.09.2014 10:08:19
• AW: Wenn Bereich leer dann.... - von Hajo_Zi am 13.09.2014 10:14:19
  • AW: Wenn Bereich leer dann.... - von Spenski am 13.09.2014 10:23:41
• AW: Wenn Bereich leer dann.... - von Gerd L am 13.09.2014 12:31:55

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.

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...."