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

Forumthread: 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!
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 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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige