VBA-Beispiel 121
mail schreiben
mail schreiben

Anzahl Zellen mit Inhalt ermitteln

Anzahl der Zellen mit Inhalt innerhalb eines bestimmten Zellbereiches ermitteln (B2:B10).

Public Sub ZellbereichAufInhaltPrüfen()
Dim rng As Range

'prüft ob im Bereich B2 bis B10 irgendwo was steht

'CountA ist die Excelfunktion ANZAHL2 und liefert
'die Anzahl der Zellen mit Inhalt eines Bereiches


'CodeName der Tabelle verwenden
Set rng = Tabelle1.Range("B2:B10")

'Tabellenname aus Registerblatt verwenden
'Set rng = ThisWorkbook.Worksheets("Tabelle1").Range("B2:B10")


MsgBox "Bereich: " & rng.Address(False, False) & _
        vbNewLine & vbNewLine & _
       "Anzahl Zellen mit Inhalt: " & _
       Application.WorksheetFunction.CountA(rng) _
       , vbInformation, ""

If Application.WorksheetFunction.CountA(rng) > 0 Then
  MsgBox "da steht irgendwo was drin" _
          , , "Bereich: " & rng.Address(False, False)
Else
  MsgBox "Bereich komplett leer" _
          , , "Bereich: " & rng.Address(False, False)
End If

Set rng = Nothing
End Sub


Download:   vba121.zip