Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Buchstaben erkennen

Forumthread: Buchstaben erkennen

Buchstaben erkennen
11.03.2008 09: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 09:34:42
Beverly
Hi Gregor,
verwende InStr zum Prüfen, ob einen Punkt bzw. Bindestrich enthalten ist.


AW: Buchstaben erkennen
11.03.2008 10: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 12:23:00
Beverly
Hi Gregor,
es ist wesentlich einfacher

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




AW: Buchstaben erkennen
11.03.2008 13: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 14: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 14: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 08:21:00
Gregor
Hoi zäme
Vielen Dank beiden für die Unterstützung.
Gregor
;

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