Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen im Text erkennen

Forumthread: Zahlen im Text erkennen

Zahlen im Text erkennen
16.07.2014 22:00:28
Friedhelm
Hallo,
ich lese mit einem Makro Text ein. Ich möche nun prüfen ob in einer dieser Zelle der Text am Anfang aus 12 Zahlen besteht.
Wie muss ich diese If Abfrage stellen?
Schönen Gruß
Friedhelm

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlen im Text erkennen
16.07.2014 22:12:25
Matze
Hallo Friedhelm ,
hab eben mal in meinen tiefen Excel Verzeichnissen gestöbert,
der Code war von jogy
' Liest Zahlen aus einem String heraus
' matchNr gibt an, welcher Treffer ausgelesen werden soll 
Function getZahl(ByVal myStr As String, Optional ByVal matchNr As Integer = 1)
Dim regEx As Object
Dim Matches As Object
'

eine Funktion die in ein Modul gehört:
in A1 Zb 12345abdefg ; in B1 =getzahl(a1) ; Ergebnis 12345
Matze

Anzeige
AW: Zahlen im Text erkennen
16.07.2014 22:22:53
Daniel
Hi
In VBA mit der Like- Funktion, weil die das # als Joker für Ziffern kennt.
If deintext like "############*" then

Gruß Daniel

AW: Zahlen im Text erkennen
16.07.2014 22:32:50
Matze
Hi Daniel,
danke dafür, so kurz und bündig, das muss man doch auch erst mal wissen.
Matze

Anzeige
Etwas variabler & ggf eleganter wäre wohl ...
17.07.2014 09:36:34
Luc:-?
If dText Like String(12, "#") & "*" Then …! ;-]

Nebenbei (und hier nicht relevant); da die vbFkt String als 2.Argument auch einen (numerischen) ZeichenCode zulässt, den aber auf normale ASCII-Werte moduliert, könnte man sie für einen evtl Einsatz in/als UDF etwas „verbessern“: 
Function ChRep(ByVal zAnz As Long, ByVal zCode, Optional ByVal uCode As Boolean)
If WorksheetFunction.IsNumber(zCode) Then
If uCode And zCode > 255 Then zCode = ChrW(zCode)
End If
ChRep = String(zAnz, zCode)
End Function
Wenn man wollte, könnte man sicher auch die Beschränkung auf 1 Zeichen in Arg2 umgehen, aber dafür gibt's ja die WorksheetFunction.Rept (WIEDERHOLEN, mit umgekehrter Argumentierung!).

Morrn, Luc :-?

Anzeige
Ergänzender Gedanke nur zur UDF
17.07.2014 09:47:00
Luc:-?
Noch cleverer und auch im Sinne des String-Pgmierers wäre es wohl, im uCode-Fall eine CodeZahl in Arg2 erst mit 256^2 zu modulieren → dann würden nahezu beliebig große Zahlen (fast) immer auch ein Ergebnis und keinen Fehler liefern.
Luc :-?

...und noch ein Hinweis zu String
17.07.2014 10:41:17
Luc:-?
Da String als 2.Arg einen Text bzw maximal eine Integer-Zahl erwartet, sollte man darüber (&h7FFF=32767) hinausgehende Long-Werte in der vorgestellten UDF auch im Not uCode-Fall mit 256 (vor-)modulieren, weil String sonst in einen Fehler läuft.
Luc :-?

Anzeige
AW: Zahlen im Text erkennen
17.07.2014 13:25:56
Friedhelm
Hallo Daniel,
in der Kürze liegt die Würze ;-))
Vielen Dank für das Hilfsmittel, es lasst sich wunderbar einbauen.
@ Matze, auch dir vielen Dank für die Mühe
Schönen Gruß
Friedhelm
;

Forumthreads zu verwandten Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Fokus in Textbox und Curser hinter Text
Reinhard

Hallo Wissende,
Autofilter "vergißt" einige Zeilen wenn mehr als 1000 unterschiedliche Listeneinträge da sind.
Deshalb bastelte ich mir folgenden Code. man hat im Blatt eine TextBox und eine Listbox. Je nach Eingabe in die Textbox erscheinen in der Listbox nur die Einträge die anfangs s...
12.09.2008 12:14:38
Thread-ID: 1009326
6 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Text zu Zahl
Rolf

Hallo Leute!
Ein Problem!
Ich habe schon eine Woche verloren wegen
Umwandlung Text in Zahl!
Altes Problem ,es gibt auch Lösungen die jedoch
nicht brauchbar sind.
Also in A1 liegt Text- "5" der soll nach Umwandlung in B1 als Zahl "5"
positioniert sein.Also jedes mal...
26.09.2008 16:51:00
Thread-ID: 1012705
4 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 19:55:29
Thread-ID: 1014539
7 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 20:18:00
Thread-ID: 1014553
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige