Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

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




Anzeige
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

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"




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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige