In einer Tabelle möchte ich die Anzahl der leeren Felder in Spalte G haben, wenn in Spalte B der Text "BSI 2" enthalten ist. Die Anzahl soll dann in einer MsgBox ausgegeben werden. Funktionieren tut es mit folgendem Code:
Sub Fehlende_Eingabe()
Dim zahl As Byte
Range("P1").Select
Selection.FormulaArray = "=SUM(IF((B5:B250=""BSI 2"")*(G5:G250=""""),1))"
zahl = Range("P1").Value
MsgBox zahl
End Sub
Ich möchte aber gerne den Umweg über die Tabellenzelle "P1" meiden, in die der Wert geschrieben wird. Habe es dann so versucht:
Sub Fehlende_Eingabe()
Dim zahl As Byte
zahl = FormulaArray = "=SUM(IF((B5:B250=""BSI 2"")*(G5:G250=""""),1))"
MsgBox zahl
End Sub
Damit funktioniert es aber nicht. Wo liegt der Fehler?
Freue mich über jeden Tipp. Vielen Dank im Voraus.
Hartmut