HasFormula auswerten, unzulässige Verwendung von 0

Hallo Wissende,
ich würde gerne den Befehl SpecialCells(XlTypeFormulas) benutzen, leider bringt er einen Fehler wenn es keine Formelzellen gibt.
Deshab würde ich gerne vorher überprüfen ob es Formelzellen im Blatt gibt.
Mit einer Schleife über alle Zellen kriege ich es hin, aber ich suche einen direkten Weg, das Vorhandensein von Formelzellen herauszubekommen.
Laut der Vba-Hilfe bringt der Befehl
HasFormula
ein True wenn alle Zellen im Bereich Formeln haben, False wenn dies keine Zelle hat, Null wenn es nicht alle Zellen sind.
Leider klappt
If ActiveSheet.Cells.HasFormula False Then
nicht, es kommt der Fehler 94, "Unzulässige Verwendung von Null"
Nun habe ich z.B.:


Sub tt()
MsgBox ActiveSheet.Cells.HasFormula
End Sub

Haben in dem Blatt keine Zellen eine Formel, dann kommt korrekterweise in der MsgBox "Falsch".
Aber wenn dem nicht so ist, kommt auch Fehler 94, "Unzulässige Verwendung von Null".
Also meine Frage lautet:
Wie kann ich direkt, ohne Schleife über alle Zellen, herausfinden ob es Zellen mit Formeln gibt?
Danke ^ Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim formCheck as Variant formCheck = activesheet.cells.hasformula select case formCheck Case False msgbox "Keine Formeln vorhanden" Case NULL msgbox "Nicht alle Zellen enthalten Formeln" Case Else msgbox "Alle Zellen enthalten Formeln :-)" End Select End Sub

Sub WievielFormeln() Dim dFormulaCnt As Double On Error Resume Next dFormulaCnt = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Cells.Count On Error GoTo 0 MsgBox dFormulaCnt & " Formeln im Blatt [" & ActiveSheet.Name & "]!" End Sub

Hallo Rainer,
"bei dir hat ER sich wenigstens noch gemeldet" weia :-(
Ich habe mich bei Renee entschuldigt weil ich die Info mit On Error Resume Next vergessen hatte, ich denke das ist okay.
Danach kamst du, ich schrieb dir einen längeren Text mit Bedankung und mit einigen kleinen Codebeispielen.
Locker eine halbe Stunde darangesessen, weil ich ja jetzt hier im Internetcafe alles nachstellen mußte, was ich zuhause alles schon probierte hatt in eher 2 Stunden mit dieser mistigen "Null", um dann dir zu sagen, dies das probiert, wieso klappt dein Select und mein If nicht.
Was passiert, ich klicke auf Vorschau, peng kommt die mistige Warnung von Hans wegen Benutzung von Größergleich usw, und all mein Text von mir ist im Nirwana :-((((((((((((((((((((((((((((((((((((((((
Da habe ich mir so gedacht, ich antworte dir morgen, wenn mein Adrenalinspiegel wieder unten ist.
Oder auch überhaupt nicht, wenn du mich "er" nennst und nicht Reinhard *schmoll"
Dir und Renee noch einen schönen Abend
Reinhard

Beliebteste Forumthreads (12 Monate)

HasFormula auswerten, unzulässige Verwendung von 0

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread