In 300 Zeichen 4 Bestimmte finden

Hallo Zusammen,
Ich habe wieder mal ein Spezielles Problem...:
In einer Zelle steht eine seeehr lange Zeichenfolge (ca 200 Zeichen), die mit Zahlen und Text aus Wörtern und Kutzzeichen gemsicht ist. An einer Stelle kommt eine Numerische Zeichenfolge vor, die IMMER 4-stellig ist und eine Buchhaltungs-Kontonummer repräsentiert. Diese ist nicht mmer gleich.
Das Problem ist nun: Derzeit weiß ich, dass die Kontonummer immer an der gleichen Stelle steht und ich bekomme diesen Wert über die Formel Mid(LangerString, 123, 4) heraus.
Wenn die Datei aber von einem anderen Kunden ausgewertet wird.
Wie erreiche ich, dass diese Zahl egal wo Sie steht erkannt wird? Problem dabei ist.... dass das durchsuchen des Strings schwierig ist, weil zuvor bereits 4-stellige Zahlen auftauchen (z.B. einmal das aktuelle Jahr), und über eine IF-abfrage IsNumeric(Left(Langerstring,4) = True in einer Suchschleife funktioniert das nicht, weil bereits vorher eine Zahlenwert auftauchen könnte, der 5 Stellig ist, und damit würde er über diese Funktion auch als Ergebnis gewertet.
Im Folgenden habe ich mal so einen typischen String (Der ist die Überschrift für darauf folgende Datensätze, die aber nicht die Konteninformation enthlten. Diese Info schreibe ich nach Finden der Zahl dann in die einzelnen Zeilen dazu.... das funktioniert auch soweit.):
Kanzlei-Rechnungswesen pro - RW - 13725/45323/2012 / Firma Musterman - Kontoblatt - Individueller Kontenstapel; Jahreskonto 6850 Sonstiger Betriebsbedarf.
Die Gesuchte Zahl ist die Zahl hinter dem Wort "Jahreskonto". Das Einzige, was ich bis jetzt als "einzigartig" in diesem String für die Kontonummer erkenen kann, ist, dass vor und nach der Kontonummer jeweils ein Leerzeichen steht. Das scheint immer so zu sein. Aber ich bekomme das irgendwie nicjt hin, per VBA den String so durchsuchen u lassen, dass am Ende nur die "6850" übrig bleibt. Diese Zahl könnte auch anders heißen. Wichtig ist, dass ich die Zahl irgendwie in dem String finden und identifizieren.
Freue mich über jeden Tipp.
Dake schon mal...
Freundliche Grüße
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aaTest() Dim strJK As String, strLangerText As String strLangerText = Cells(2, 1) 'Text in A2 strJK = fncJahreskonto(strText:=strLangerText) strJK = fncJahreskonto2(strText:=strLangerText) End Sub Function fncJahreskonto(ByVal strText As String) As String Dim Pos1 As Long, strSuch strSuch = "Jahreskonto " Pos1 = InStr(1, strText, strSuch) + Len(strSuch) fncJahreskonto = Mid(strText, Pos1, 4) End Function Function fncJahreskonto2(ByVal strText As String) As String Dim Pos1 As Long, strSuch 'Untersucht Text nach dem letzten "/" strSuch = "/" Pos1 = InStrRev(strText, strSuch) If Pos1 > 0 Then strText = Mid(strText, Pos1 + 1) strSuch = "Jahreskonto " Pos1 = InStr(1, strText, strSuch) + Len(strSuch) fncJahreskonto2 = Mid(strText, Pos1, 4) End Function

Option Explicit Public Function ZahlInTxt(rngC) As Variant Dim strText As String Dim Regex As Object, Alle As Object, treffer As Object Dim tmp As Variant, L As Integer ReDim tmp(0) strText = " " & rngC.Value & " " Set Regex = CreateObject("Vbscript.Regexp") With Regex .Pattern = " [0-9]{4} " .Global = True Set Alle = .Execute(strText) End With ReDim tmp(0 To Alle.Count - 1) For Each treffer In Alle tmp(L) = 1 * treffer.Value L = L + 1 Next ZahlInTxt = tmp End Function Public Function ZahlInTxtK(rngC) As Variant Dim Regex As Object, ObjAlle As Object Set Regex = CreateObject("Vbscript.Regexp") With Regex .Pattern = " [0-9]{4} " .Global = True Set ObjAlle = .Execute(" " & rngC.Value & " ") End With ZahlInTxtK = 1 * ObjAlle(0) End Function

Hi Sebastian,
schau dir meine Funktion bitte noch mal an.
"Ich hatte vergessen zu erwähnen, dass die Zahl nicht bekannt ist, die gesucht wird.
Die einzige Eigenschaft, die bekannt ist, dass sie vierstellig ist und von 2 Leerzeichen eingeschlossen wird."
Ich denke, genau das habe ich umgesetzt. Hier noch mal ein paar Beispiele, auch mit Ingos und Sepps Lösung:

	A	B	C	D
1	a 4567 v 9876 x	4567	4567	9876
2	adf 66666 5555 zzz	5555	5555	5555
3	a 87654 v 9876	9876	9876	76
4	a 12345 b	#WERT!	#WERT!	2345
5
6	a_4567_v_9876_x	4567	4567	9876
7	adf_66666_5555_zzz	5555	5555	5555
8	a_87654_v_9876_	9876	9876	76_
9	a_12345_b	#WERT!	#WERT!	2345

Formeln der Tabelle

Zelle	Formel
B1	{=TEIL(A1;MIN(WENN((TEIL(A1;ZEILE($1:$300); 1)=" ")(TEIL(A1;ZEILE($6:$305); 1)=" ") NICHT(ISTFEHLER(TEIL(A1;ZEILE($2:$301); 4)*1)); ZEILE($2:$301))); 4)}
C1	=ZahlInTxtK(A1)
D1	{=TEIL(A1;MAX(WENN(ISTZAHL(TEIL(A1;ZEILE($1:$300); 4)*1); ZEILE($1:$300)))-1;4)}
B2	{=TEIL(A2;MIN(WENN((TEIL(A2;ZEILE($1:$300); 1)=" ")(TEIL(A2;ZEILE($6:$305); 1)=" ") NICHT(ISTFEHLER(TEIL(A2;ZEILE($2:$301); 4)*1)); ZEILE($2:$301))); 4)}
C2	=ZahlInTxtK(A2)
D2	{=TEIL(A2;MAX(WENN(ISTZAHL(TEIL(A2;ZEILE($1:$300); 4)*1); ZEILE($1:$300)))-1;4)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Die Beispiele in den Zeilen 1 bis 4 habe ich in die Zeilen 5 bis 9 kopiert und dort die Leerzeichen durch Unterstriche ersetzt,
damit man mehr sieht.
Man sieht die Übereinstimmung zwischen Ingos und meinen Ergebnissen (bis auf die Zahl-Umwandlung).
Man sieht auch, dass Sepps Formel in einigen Fällen kein richtiges Ergebnis liefert.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Option Explicit Sub Testprogramm() Dim strBeisp As String strBeisp = "a 123 4567 xx 9876" MsgBox ZahlInTxtK(strBeisp) strBeisp = "a 123 567 xx 987" MsgBox ZahlInTxtK(strBeisp) End Sub Public Function ZahlInTxtK(strTxt As String) As Variant Dim Regex As Object, ObjAlle As Object Set Regex = CreateObject("Vbscript.Regexp") With Regex .Pattern = " [0-9]{4} " .Global = True Set ObjAlle = .Execute(" " & strTxt & " ") End With If ObjAlle.Count > 0 Then ZahlInTxtK = 1 * ObjAlle(0) Else ZahlInTxtK = "Nichts gefunden" End If End Function

Beliebteste Forumthreads (12 Monate)

	B	C	D	E
3	Da sind 12345 und 4321 und 584 drin. Am Ende steht 9876	4321	9876	#BEZUG!
4	Da sind 12345 und 4321 und 584 drin.	4321

	A	B
1	Kanzlei-Rechnungswesen pro - RW - 13725/45323/2012 / Firma Musterman - Kontoblatt - Individueller Kontenstapel; Jahreskonto 6850 Sonstiger Betriebsbedarf.	6850
2	Andere Kanzlei Blabla xy 9999/7777/2011/ Firma B. A. N. Krott - KontoKonto 1557 BlaBlaBla Trallalla	1557
3

In 300 Zeichen 4 Bestimmte finden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread