vielleicht kann mir jemand einen Tipp geben.
Gibt es eine Möglichkeit eine 10stellige Nummer aus einer Excel Datei auszulesen?
Es geht mir darum eine Kundennummer aus einer Kontoauszugsdatei in ein extra Feld zu selektieren.
Gruß!
Iris
A | B | |
1 | Text 987 abc 0001234567 sonstwas 4567 nochwas | 0001234567 |
Formeln der Tabelle | ||||
|
A | B | |
1 | Uberweisungs-Gutschrift Max Müller 22527 WA LD EREF+123456895018 KREF+YG4557-CT2016-08-17-03 .47.20.901531 SVWZ+MITGL.NR.5356011223 SC MusterMANN | 5356011223 |
Formeln der Tabelle | ||||
|
A | B | |
1 | Ruckuberw. Konto erloschen Max Müller GUSTAV EREF+EtE2016:06:29:09:06:36 :472000 KREF+YG4967-CT2016-07-01-03 .47.26.492921 Z+RUECKUEBERWEISUNG Gewinnausschuettung 2016 fuer Max Müller GUSTAV KdNr. 5251287345 AC04: Konto erloschen Konto aufgelöst | 5251287345 |
2 | Uberweisungs-Gutschrift Meyer Kurt KREF+YG4967-CT2016-08-18-03 .46.39.443643 SVWZ+GENOSSENSCHAFTSANTEILE MITG LIEDSNUMMER 5891239580 | 5891239580 |
3 | Uberweisungs-Gutschrift Mueller Hans EREF+ZV01002078420819000000 02 KREF+YG4967-CT2016-08-18-09 .02.31.374487 SVWZ+Mitgliedsnummer: 51302 55539 | 5130255539 |
4 | Uberweisungs-Gutschrift Nadja Irgendwer KREF+YG4967-CT2016-08-18-09 .02.34.686452 SVWZ+MitgliedsNre 55608459 2 Nad Irgenwiez Aufstockung Anteil e auf 100 Stueck | 556084592 |
5 | Uberweisungs-Gutschrift Steffi Dieda KREF+YG4967-CT2016-08-18-09 .02.37.042002 578908899 1 Dieda Steffi Reck Aufstockung A nteile auf 100 Stuck | 5789088991 |
6 | Uberweisungs-Gutschrift Markus Grün EREF+DAB/B3/359926371/2016- 08-18 KREF+YG4967-CT2016-08-18-10 .01.55.599366 SVWZ+5600892658 | 5600892658 |
7 | Uberweisungs-Gutschrift Hans-Peter Wand KREF+YG4967-CT2016-08-18-14 .02.23.863272 SVWZ+KDNR 580889255801/1 ZA EHLER NR 1152356 GREENPEACE | 580889255801 |
Formeln der Tabelle | ||||||||||||||||
|
' ************************************************************* _
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Function StringFinden(strData As String, Pattern As String) As String
Dim RE As Object, REMatches As Object
Set RE = CreateObject( _
34;vbscript.regexp")
With RE
.MultiLine = False
.Global = False
.IgnoreCase = True
.Pattern = Pattern
End With
Set REMatches = RE.Execute(strData)
StringFinden = REMatches(0)
End Function
A | B | |
1 | Ruckuberw. Konto erloschen Max Müller GUSTAV EREF+EtE2016:06:29:09:06:36 :472000 KREF+YG4967-CT2016-07-01-03 .47.26.492921 Z+RUECKUEBERWEISUNG Gewinnausschuettung 2016 fuer Max Müller GUSTAV KdNr. 5251287345 AC04: Konto erloschen Konto aufgelöst | 5251287345 |
2 | Uberweisungs-Gutschrift Meyer Kurt KREF+YG4967-CT2016-08-18-03 .46.39.443643 SVWZ+GENOSSENSCHAFTSANTEILE MITG LIEDSNUMMER 5891239580 | 5891239580 |
3 | Uberweisungs-Gutschrift Mueller Hans EREF+ZV01002078420819000000 02 KREF+YG4967-CT2016-08-18-09 .02.31.374487 SVWZ+Mitgliedsnummer: 51302 55539 | 5130255539 |
4 | Uberweisungs-Gutschrift Nadja Irgendwer KREF+YG4967-CT2016-08-18-09 .02.34.686452 SVWZ+MitgliedsNre 55608459 2 Nad Irgenwiez Aufstockung Anteil e auf 100 Stueck | 556084592 |
5 | Uberweisungs-Gutschrift Steffi Dieda KREF+YG4967-CT2016-08-18-09 .02.37.042002 578908899 1 Dieda Steffi Reck Aufstockung A nteile auf 100 Stuck | 5789088991 |
6 | Uberweisungs-Gutschrift Markus Grün EREF+DAB/B3/359926371/2016- 08-18 KREF+YG4967-CT2016-08-18-10 .01.55.599366 SVWZ+5600892658 | 5600892658 |
7 | Uberweisungs-Gutschrift Hans-Peter Wand KREF+YG4967-CT2016-08-18-14 .02.23.863272 SVWZ+KDNR 580889255801/1 ZA EHLER NR 1152356 GREENPEACE | 580889255801 |
Formeln der Tabelle | ||||||||||||||||
|
Option Explicit
Function StringFinden(strData As String, Pattern As String) As String
Dim RE As Object, REMatches As Object
Set RE = CreateObject("vbscript.regexp")
With RE
.MultiLine = False
.Global = False
.IgnoreCase = True
.Pattern = Pattern
End With
Set REMatches = RE.Execute(strData)
StringFinden = REMatches(0)
End Function
A | B | C | |
---|---|---|---|
1 | die relevante Zahl beinhaltende Langtexte → Extraktion der Zahl per Formel-Lösung mit | 7 xlFktt & 5 allg UDFs | 1 speziellen UDF |
2 | Ruckuberw. Konto erloschen Max Müller GUSTAV EREF+EtE2016:06:29:09:06:36 :472000 KREF+YG4967-CT2016-07-01-03 .47.26.492921 Z+RUECKUEBERWEISUNG Gewinnausschuettung 2016 fuer Max Müller GUSTAV KdNr. 5251287345 AC04: Konto erloschen Konto aufgelöst | 5251287345 | 5251287345 |
3 | Uberweisungs-Gutschrift Meyer Kurt KREF+YG4967-CT2016-08-18-03 .46.39.443643 SVWZ+GENOSSENSCHAFTSANTEILE MITG LIEDSNUMMER 5891239580 | 5891239580 | 5891239580 |
4 | Uberweisungs-Gutschrift Mueller Hans EREF+ZV01002078420819000000 02 KREF+YG4967-CT2016-08-18-09 .02.31.374487 SVWZ+Mitgliedsnummer: 51302 55539 | 51302 55539 | 5130255539 |
5 | Uberweisungs-Gutschrift Nadja Irgendwer KREF+YG4967-CT2016-08-18-09 .02.34.686452 SVWZ+MitgliedsNre 55608459 2 Nad Irgenwiez Aufstockung Anteil e auf 100 Stueck | 55608459 2 | 556084592 |
6 | Uberweisungs-Gutschrift Steffi Dieda KREF+YG4967-CT2016-08-18-09 .02.37.042002 578908899 1 Dieda Steffi Reck Aufstockung A nteile auf 100 Stuck | 578908899 1 | 5789088991 |
7 | Uberweisungs-Gutschrift Markus Grün EREF+DAB/B3/359926371/2016- 08-18 KREF+YG4967-CT2016-08-18-10 .01.55.599366 SVWZ+5600892658 | 5600892658 | 5600892658 |
8 | Uberweisungs-Gutschrift Hans-Peter Wand KREF+YG4967-CT2016-08-18-14 .02.23.863272 SVWZ+KDNR 580889255801/1 ZA EHLER NR 1152356 GREENPEACE | 5808892558-01 | 580889255801 |
9 | |||
10 | |||
11 | ZFml in C2[:C8]:=--WECHSELN(StringFinden(A2;" [0-9 ?]{10,12} ?| [0-9 ?]{10,12}$|[0-9]{10} $");" ";"") |