HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel-Profi - VBA gut
daniel
27.04.2026 16:02:39
AW: For Each Schleife
Hi
Excel unterscheidet beim einfachen Vergleich (=) zwischen Text und Zahl, dh der Text "18" ist nicht das gleiche wie die Zahl 18.

ich würde hier aber empfehlen, einfach alles in Text zu wandeln, denn das funktioniert immer, während der Versuch, einen Textwert in eine Zahl zu wandeln, einen Fehler erzeugt wenn das nicht funktioniert.
Wenn man immer nur Zellwerte ausliest, kann man die TEXT-Eigenschaft auslesen, dass ist der Zahlenwert, so wie er in der Zelle angezeigt wird auch Text.
Auch Fehlerwerte sind dann Text und werden dadurch unpopblematisch und erfordern eigenständige Programmierung.

also im Prinzip dann so:

such = Range("B1").Text


For Each c In Range("b7:b72")
If c.Text = such then c.activate: goto 10
Next


andere Möglichkeiten um in VBA eine Zahl in einen Text zu wandeln:
CStr(Zahl)
Format(Zahl, Formatstring)
Zahl & ""
Gruß Daniel
Als Antwort auf diesen Beitrag
Gerd K
26.04.2026 21:25:39
For Each Schleife
Hallo, ich habe eine For Each Schleife.

Dim such
Dim c as Range

such = [b1]

For Each c In Range("b7:b72")
If c = such then c.activate: goto 10
Next

Es wird b1 gesucht. In b1 steht z. B. 18.

Such = [b1] ergibt aber "18" in Anführungszeichen
und c ergibt 18, somit gibt es keine Übereinstimmung und die Schleife läuft durch ohne bei 18 anzuhalten.

Ich habe vieles versucht und finde keine Lösung für mein Problem.

Vielleicht kann mir jemand helfen.
Vielen Dank im Voraus.

Gerd K
Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.