Ja, Formelergebnisse sind nicht LEER
15.05.2010 16:25:52
NoNet
Hallo Petra,
mit Deiner Vermutung hast Du Recht :
Ergebnisse von Formeln/Funktionen, die eine LEERE ZELLE als Ergebnis liefern (z.B. =WENN(1=0;"x";"")) werden von der Funktion ANZAHLLEEREZELLEN() (VBA : CountBlank()) nicht mitgezählt, da sie nicht "Leer" sind, sondern eben genau diese Formel/Funktion enthalten.
Präziser kannst Du das mit folgendem Makro-Grundgerüst lösen :
Sub MakroNurAusfuehrenWennSpalteEleerIst()
If Application.CountA([E:E]) = 0 Then
Call DeinMakro 'Hier wird DeinMakro() aufgerufen - siehe unten
MsgBox "Komplette Spalte E ist leer !", _
, "Makro wurde ausgeführt !"
ElseIf Application.CountIf([E:E], "") = Rows.Count Then
Call DeinMakro 'Hier wird DeinMakro() aufgerufen - siehe unten
MsgBox "Komplette Spalte E ist leer bzw. enthält Funktionen !", _
, "Makro wurde ausgeführt !"
ElseIf Application.CountBlank([E5:E20]) = 16 Then
Call DeinMakro 'Hier wird DeinMakro() aufgerufen - siehe unten
MsgBox "Alle Zellen im Bereich E5:E20 sind leer !", _
, "Makro wurde ausgeführt !"
End If
End Sub
Sub DeinMakro()
'Hier Dein Makro-Code
End Sub
Gruß, NoNet