Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

COUNT (Anzahl) Formel in VBA verwenden

Forumthread: COUNT (Anzahl) Formel in VBA verwenden

COUNT (Anzahl) Formel in VBA verwenden
02.02.2018 00:08:22
Michael
Hallo, ich möchte gerne durch einen Code prüfen ob in einer bestimmten Zelle eine Zahl vorkommt (ISnumeric geht nicht, da in der Zelle auch eine Text + Zahl stehen kann also z.B. KW5).
Für Excel habe ich die Formel "COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))>0" gefunden.
Möchte ich diese in eine If...Then Funktion einbauen funktioniert dieses aber leider nicht.
Für die folgenden Varianten bekomme ich den Fehler"Methode oder Datenobjekt nicht gefunden" und zwar wird mir direkt "FormulaLocal" markiert

If ws.FormulaLocal = "=COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))>0 = TRUE" Then
If ws.FormulaLocal = "=COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))>0" = True Then


Fehlermeldung "Synthaxfehler" für folgenden Fall:

If COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))>0 Then


Über Ideen wie ich das Problem lösen kann freue ich mich :) Danke!
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: COUNT (Anzahl) Formel in VBA verwenden
02.02.2018 02:41:41
Werner
Hallo Michael,
z.B. so für die Zelle A1:
Public Sub bbb()
Select Case Mid(Range("A1"), 3, 2)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9
MsgBox "In der Zelle steht" & vbLf _
& "Kalenderwoche:  " & Mid(Range("A1"), 3, 2)
Case Else
MsgBox "Da ist keine Zahl drin."
End Select
End Sub
Gruß Werner
Anzeige
Wenn Du das Ergebnis einer...
02.02.2018 14:14:22
Case
Hallo, :-)
... Formel in deinem Makro verwenden möchtest, dann musst Du "Evaluieren": ;-)
If Evaluate("=COUNT(FIND({0;1;2;3;4;5;6;7;8;9},A1))>0") = True Then
Klappt in einem deutschen Office. In einer anderssprachigen Version musst Du die Semikola durch das entsprechende Trennzeichen abändern.
Servus
Case

Anzeige
AW: Wenn Du das Ergebnis einer...
02.02.2018 22:14:38
Michael
Vielen Dank Werner und Case für eure sehr prägnanten und hilfreichen Beiträge :)
Gerne u. Danke für die Rückmeldung. o.w.T.
03.02.2018 00:04:17
Werner

Forumthreads zu verwandten Themen

Anzeige
Anzeige