Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

COUNT (Anzahl) Formel in VBA verwenden

COUNT (Anzahl) Formel in VBA verwenden
01.02.2018 23: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!

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

Betreff
Datum
Anwender
Anzeige
AW: COUNT (Anzahl) Formel in VBA verwenden
02.02.2018 01: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
Wenn Du das Ergebnis einer...
02.02.2018 13: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 21: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.
02.02.2018 23:04:17
Werner

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige