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

Buchstaben erkennen

Forumthread: Buchstaben erkennen

Buchstaben erkennen
11.03.2008 10:29:00
Gregor
Hallo zusammen
In einer Zelle werden unterschiedliche Zahlenkombinationen eingetragen. Immer wenn die Zahl einen Buchstaben enthält, will ich diesen Eintrag in eine andere Zelle übertragen, nicht aber reine Zahlenkombinationen oder Zahlen mit Hilfszeichen wie Punkte, Striche, usw.
408S0001 = Zahl übertragen
408B003 = Zahl übertragen
4080001.123 = Zahl nicht übertragen
1001027.4.01 = Zahl nicht übertragen
408S0001-123 = Zahl nicht übertragen
Reine Zahlenkombinationen kann ich mit IsNumeric(sZeichen) identifizieren. Wie aber identifiziere ich Zahlenkombinationen mit Buchstaben?
Vielen Dank und Gruss
Gregor

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstaben erkennen
11.03.2008 10:34:42
Beverly
Hi Gregor,
verwende InStr zum Prüfen, ob einen Punkt bzw. Bindestrich enthalten ist.


AW: Buchstaben erkennen
11.03.2008 11:10:00
Gregor
Hallo Karin
Kann ich als Suchtext auch einen Begriff (Datentyp) eingeben, der alle Buchstaben abdeckt?
Gregor

Anzeige
AW: Buchstaben erkennen
11.03.2008 13:23:00
Beverly
Hi Gregor,
es ist wesentlich einfacher

If Not IsNumeric(ActiveCell) Then MsgBox "nicht numerisch"




AW: Buchstaben erkennen
11.03.2008 14:12:00
Gregor
Karin
Aber dann habe ich ja das Problem, dass Zeichenfolgen wie 234.456 oder 234-456 auch als nicht Nemerisch erkannt.
Deshalb ist die InStr-Variante grundsätzlich vermutlich schon richtig. Aber ich muss nur jeden möglichen Buchstaben abfragen.
Danke und Gruss
Gregor

Anzeige
AW: Buchstaben erkennen
11.03.2008 15:43:39
haw
Hallo Gregor,
hier ein Versuch:

Function IstZahl2(st As String) As Boolean
st = Application.WorksheetFunction.Substitute(st, ".", "")
st = Application.WorksheetFunction.Substitute(st, ",", "")
st = Application.WorksheetFunction.Substitute(st, "-", "")
If IsNumeric(st) Then IstZahl2 = True Else IstZahl2 = False
End Function


Gruß
Heinz

Anzeige
AW: Buchstaben erkennen
11.03.2008 15:48:00
Beverly
Hi Gregor,
mit fällt z.Z. keine andere Methode ein, als jeden Buchstaben direkt abzufragen

If InStr(ActiveCell, "A") > 0 Or InStr(ActiveCell, "B") > 0 Then MsgBox "Buchstaben enthalten"




Anzeige
AW: Buchstaben erkennen
12.03.2008 09:21:00
Gregor
Hoi zäme
Vielen Dank beiden für die Unterstützung.
Gregor
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18