VBA: Überprüfen ob Zellen leer sind
10.11.2014 17:36:15
Hans Egonschmidt
Hallo,
ich habe da eine etwas knifflige Aufgabe und komme nicht so recht weiter:
Ich soll im Zellbereich A1:A20 überprüfen ob die Zellen leer sind und in einer Messagebox dann ausgeben, wie viele Schleifendurchläufe und wieviele leere Zellen es gibt.
Bin bis jetzt so angefangen:
Option Explicit
Sub ZellenLeer()
Dim range("A1:A20") As Inhalt
If IsEmpty(Inhalt) Then
MsgBox "Die Anzahl der Schleifendurchläufe: &?& &vblf&
Die Anzahl der leeren Zellen: &?&"
End Sub
So ist zumindest das Grundgerüst, ich weiß nicht wie ich die Schleifendurchläufe anzeige und in der Messagebox darstelle.
Bin dankbar für jede Hilfe :)