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

Ziffernblöcke aus Text extrahieren

Forumthread: Ziffernblöcke aus Text extrahieren

Ziffernblöcke aus Text extrahieren
15.07.2008 09:48:00
Claus
Hallo zusammen,
immer wieder habe ich Daten aus einem Word-Dokument, in denen sich Materialnummern verstecken.
Es ist als Tabelle aufgebaut. Ich würde gerne diese mehreren Word-Tabellenfenster kopieren, in eine Excel-Datei einfügen und dann auf Knopfdruck (Makro) in einem separaten Tabellenblatt alle enthaltenen Nummernblöcke als jeweils eine Zelle erhalten.
Also ein Makro, der alle Zellen eines Tabellenblatts durchscannt und entsprechend alle Ziffern blockweise erkennt und rausgibt. Würde mir einiges an Arbeit ersparen.
LG
Claus

Anzeige

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 10:09:00
Caruso
Hallo Claus
Tipp von mir: Eine Musterdatei erhöht die Antwortgeschwindigkeit und -genauigkeit.
Gruß
Carlo

AW: Ziffernblöcke aus Text extrahieren
15.07.2008 10:19:00
Claus
Habe eine Musterdatei hochgeladen, aber wo ist die jetzt? Wie kann ich den link drauf machen?

AW: Ziffernblöcke aus Text extrahieren
15.07.2008 10:22:00
David
den Link bekommst du direkt nach dem Hochladen und den musst du in dein Posting reinkopieren.
Gruß
David

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 11:37:54
Peter
Hallo Claus,
das könnte (nachdem due deine Bereiche angepasst hast) so gehen:
'
' es sollen nur Ziffern aus den Zellen extrahiert werden
'

Public Sub OnlyDigits()
Dim re      As Object
Dim rCelle  As Range
Set re = CreateObject("vbscript.regexp")
re.Pattern = "[^0-9]+"
re.Global = True
For Each rCelle In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Worksheets("Tabelle3").Cells(rCelle.Row, 2).Value = re.Replace(rCelle.Value, "")
Next rCelle
Set re = Nothing
End Sub


Gruß Peter

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 12:04:00
Claus
Hallo Peter,
vielen Dank. Das ist es schon fast. Hier werden jetzt aber alle Ziffern innerhalb einer Zelle ausgeworfen. Ich möchte aber noch mehr, nämlich wenn mehrere Ziffernblöcke in einer Zelle sind, auch mehrere Zellen mit den entsprechenden Zahlen.
Also anstatt: 233559023350 in B1 eben 23; 355; 902335; 0 in Zellen untereinander. Ich fürchte, das ist wesentlich komplizierter. Soll übrigens auch für Spalte A gelten, da kann auch Text drin sein, zufällig in diesem Beispiel sind es nur Zahlen.

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 10:12:31
Tino
Hallo,
hättest du eine Beispielmappe?
Gruß Tino

AW: Ziffernblöcke aus Text extrahieren
15.07.2008 12:25:00
Erich
Hallo Claus,
diese Prozedur schreibt die Ziffernblöcke aus B1:Bnnn in die entsprechenden Zeilen im Blatt "Ziffernblöcke",
allerdings die zu einer Zelle gehörenden Blöcke in einer Zeile in mehrere Spalten: 

Sub Ziffernbloecke()
Dim rng As Range, strE As String, intC As Integer, intP As Integer
Dim strZ As String
Worksheets("Daten aus Word").Select
With Worksheets("Ziffernblöcke")
.Cells.ClearContents
.Cells.NumberFormat = "@"
For Each rng In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
strE = ""
intC = 1
For intP = 1 To Len(rng)
strZ = Mid(rng, intP, 1)
If strZ Like "[0-9]" Then
strE = strE & strZ
ElseIf strE > "" Then
.Cells(rng.Row, intC) = strE
strE = ""
intC = intC + 1
End If
Next intP
If strE > "" Then .Cells(rng.Row, intC) = strE
Next rng
End With
End Sub

Wenn du die einzelnen Ziffernblöcke untereinander schreibst, kannst du nicht mehr erkennen,
welche Blöcke aus welcher Quellzelle stammen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 12:40:00
Claus
Hallo Erich,
vielen Dank erst mal.
Leider komme ich grade nicht zum testen, muss gleich in eine Besprechung, werde es am späten Nachmittag ansehen.
Aber: Mir wäre es untereinander doch lieber, denn ich benötige weniger die Zuordnung zur ursprünglichen Zelle, sondern ich möchte die Zahlen entsprechend filtern und wieder in ein anderes Programm einfügen.
Bonuswunsch: Könnte man aus allen (z steht jetzt für Ziffer, t für text) zzzzzzttz noch zzzzzz00z machen und ausgeben?
Herzliche Grüße
Claus

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 12:40:00
Erich
Hallo Claus,
und hier noch ne Version, die die Spalten A und B verarbeitet und die Bläcke untereinander ausgibt.
Rechts neben jedem Block steht die Quellzelle. 

Sub ZiffernbloeckeUntereinander()
Dim rng As Range, strE As String, lngZ As Long, intP As Integer
Dim strZ As String
Worksheets("Daten aus Word").Select
With Worksheets("Ziffernblöcke")
Range(.Columns(1), .Columns(2)).ClearContents
.Columns(1).NumberFormat = "@"
lngZ = 1
For Each rng In Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
strE = ""
For intP = 1 To Len(rng)
strZ = Mid(rng, intP, 1)
If strZ Like "[0-9]" Then
strE = strE & strZ
ElseIf strE > "" Then
.Cells(lngZ, 1) = strE
.Cells(lngZ, 2) = rng.Address(0, 0)
strE = ""
lngZ = lngZ + 1
End If
Next intP
If strE > "" Then
.Cells(lngZ, 1) = strE
.Cells(lngZ, 2) = rng.Address(0, 0)
lngZ = lngZ + 1
End If
Next rng
.Select
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 18:27:38
Claus
Boah, toll wie viele gute Versionen ihr da extra für mich produziert. Hoffentlich ist es jetzt nicht unverschämt von mir, das Beste aus verschiedenen Versionen zusammenzuwünschen?
An sich am Klarsten und mein Favorit ist: Version von Erich G. am 15.07.2008 12:40:22
Dazu käme dann noch mein Bonuswunsch: Könnte man aus allen (z steht jetzt für Ziffer, t für text) zzzzzzttz noch zzzzzz00z machen und ausgeben?
Eure Gedanken dazu waren auch o.k.: Ich möchte also tatsächlich zwei Buchstaben (normalerweise "xx", aber wenn jemand "vv" für Version schreibt oder irgendwas anderes gilt das eben auch) durch "00" ersetzt haben, weil per firmeneigener Definition daraus eine ebensolche Gruppe wird. In gewisser Weise ist es natürlich eine Manipulation - eben eine gewollte - und es wäre dann noch das Tüpfelchen auf dem i, wenn dieses "00" z. B. in roter Schrift wäre, damit man zwar damit weiterarbeiten kann, aber immerhin erkennt, dass der Makro entsprechend eingegriffen hat.
Leider durchschaue ich die VB-Codes so wenig, dass ich mir jetzt die entsprechenden Teile nicht mal zusammenstupfen kann. Also wäre echt nett, wenn ihr mir das Ganze jetzt noch fertig bauen könntet.
Liebe Grüße derweil.

Anzeige
AW: Ziffernblöcke aus Text extrahieren
15.07.2008 21:13:30
Erich
Hi Claus,
probier mal (wenig elegant, aber mit RegExp kenne ich mich einfach zu wenig aus...) 

Sub ZiffernbloeckeUntereinander2()
Dim rng As Range, strE As String, lngZ As Long, intP As Integer
Dim strZ As String, strW As String
Worksheets("Daten aus Word").Select
With Worksheets("Ziffernblöcke")
Range(.Columns(1), .Columns(2)).ClearContents
.Columns(1).NumberFormat = "@"
lngZ = 1
For Each rng In Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
strW = rng
strE = ""
For intP = 1 To Len(strW)
If intP  "" Then
.Cells(lngZ, 1) = strE
.Cells(lngZ, 2) = rng.Address(0, 0)
strE = ""
lngZ = lngZ + 1
End If
Next intP
If strE > "" Then
.Cells(lngZ, 1) = strE
.Cells(lngZ, 2) = rng.Address(0, 0)
lngZ = lngZ + 1
End If
Next rng
.Select
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Ziffernblöcke mit Einfärben
16.07.2008 07:24:00
Erich
Hi Claus,
probier mal 

Sub ZiffernbloeckeUntereinander3()
Dim rng As Range, strE As String, lngZ As Long, intP As Integer
Dim strZ As String, strW As String
Dim arrI(1 To 10) As Integer, intI As Integer, intJ As Integer
Worksheets("Daten aus Word").Select
With Worksheets("Ziffernblöcke")
Range(.Columns(1), .Columns(2)).ClearContents
With .Columns(1)
.NumberFormat = "@"
.Font.ColorIndex = 0
End With
lngZ = 1
For Each rng In Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
strW = rng
strE = ""
For intP = 1 To Len(strW)
strZ = Mid(strW, intP, 1)
If intP  " " And _
Not Mid(strW, intP + 1, 1) Like "[0-9]" And _
Mid(strW, intP + 1, 1) = Mid(strW, intP + 2, 1) And _
Mid(strW, intP + 3, 1) Like "[0-9]" Then
strE = strE & strZ & "00" & Mid(strW, intP + 3, 1)
intP = intP + 3
intI = intI + 1
arrI(intI) = Len(strE) - 2
ElseIf strZ Like "[0-9]" Then
strE = strE & strZ
ElseIf strE > "" Then
With .Cells(lngZ, 1)
.Value = strE
For intJ = 1 To intI
.Characters(arrI(intJ), 2).Font.ColorIndex = 3
Next intJ
End With
intI = 0
.Cells(lngZ, 2) = rng.Address(0, 0)
strE = ""
lngZ = lngZ + 1
End If
Next intP
If strE > "" Then
With .Cells(lngZ, 1)
.Value = strE
For intJ = 1 To intI
.Characters(arrI(intJ), 2).Font.ColorIndex = 3
Next intJ
End With
intI = 0
.Cells(lngZ, 2) = rng.Address(0, 0)
lngZ = lngZ + 1
End If
Next rng
.Select
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: noch eine Version
15.07.2008 13:23:38
Erich
Hi Tino,
dein Vorschlag entspricht im Ergebnis etwa dem: 

Sub Ziffernbloecke2()
Dim rng As Range, strE As String, lngC As Long, intP As Integer
Dim strZ As String, strW As String
Worksheets("Daten aus Word").Select
With Worksheets("Ziffernblöcke")
.Cells.ClearContents
.Cells.NumberFormat = "@"
For Each rng In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
strW = rng.Offset(0, -1) & " " & rng
strE = ""
lngC = 1
For intP = 1 To Len(strW)
strZ = Mid(strW, intP, 1)
If strZ Like "[0-9]" Then
strE = strE & strZ
ElseIf strE > "" Then
.Cells(rng.Row, lngC) = strE
strE = ""
lngC = lngC + 1
End If
Next intP
If strE > "" Then .Cells(rng.Row, lngC) = strE
Next rng
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
aber nur fasst ;-)
15.07.2008 13:44:49
Tino
Hallo Erich,
kommt in etwa hin.
Nur meine Version geht davon aus, dass z. Bsp. bei 902335xx0 die Buchstaben xx oder 23-355 der - zur Zahl gehören.
Ich weis gefordert waren nur die Zahlen,
aber ohne diese Zeichen hat mir einfach der Sinn in diesen Zahlen gefehlt!
Ist ja ein Forum und dies war nur ein Vorschlag.
Gruß Tino

www.VBA-Excel.de


Anzeige
eine Version 2; untereinander u. rot
15.07.2008 20:15:00
Tino
Hallo,
die einzelnen Zellen kommen jetzt untereinander und die Zelle in denen eine Änderung gemacht wurde bekommen die Textfarbe rot.
Auf das einfärben der einzelnen Textpassagen habe ich jetzt verzichtet.
https://www.herber.de/bbs/user/53836.xls
Gruß Tino

www.VBA-Excel.de


Anzeige
Einzelzeichen in rot
15.07.2008 22:25:53
Tino
Hallo,
so habe mal noch etwas gebastelt.
Jetzt werden nur die Zeichen rot gefärbt die vom Makro geändert wurden.
Ausgiebige Tests habe ich jetzt nicht gemacht.
https://www.herber.de/bbs/user/53838.xls
Gruß Tino

http://www.VBA-Excel.de


Anzeige
Korrektur, kann Alphabet nicht mehr ;-)
15.07.2008 23:39:12
Tino
Hallo,
na ich glaube, ich muss dass Alphabet noch mal üben, ich habe in der Liste dass „n“ vergessen.
sorry
hier die Korrektur.
https://www.herber.de/bbs/user/53840.xls
Gruß Tino

http://www.VBA-Excel.de


Anzeige
AW: Code Optimierung, schneller
16.07.2008 10:50:00
Tino
Hallo,
mit etwas Code Umstellung geht es etwas schneller.
Wahrscheinlich könnte man noch mehr optimieren.
Mit über 2000 gefundenen Zahlen.
https://www.herber.de/bbs/user/53852.xls
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Ziffernblöcke aus Text extrahieren
16.07.2008 09:54:18
Claus
Also ich bin begeistert. Habe soeben beide Versionen kurz geckecked, beide haben funktioniert. Tino hat die Einarbeitung von Textblöcken universeller interpretiert, was manchmal wohl auch benötigt wird, an Erichs Version gefällt mir die Anzeige der Urzelle und schnellere Laufzeit.
Sodele, leider habe ich jetzt keine Zeit für ausführliche Tests, das hole ich aber nach und gebe auf jeden Fall nochmal Bescheid. Ach so, und es gibt ja dieses Sprichwort mit dem kleinen Finger und der ganzen Hand, evtl. kommt also noch ein Bonuswunsch dazu, der sich aber erst formulieren lässt, wenn ich ´ne Weile damit gearbeitet habe. Aber das wäre ja dann schon fast so, als ob ihr Auftragsprogrammierer für mich wärt, ich weiß ja jetzt schon nicht, wie ich mich bedanken soll. Auf jeden Fall kann ich sagen, dass ich mich wirklich sehr freue.
Da ich mich auch nicht für eine der beiden Versionen entscheiden kann und will, werde ich Zwei Schaltflächen einbauen und somit beide Versionen nutzen.
Also, in ein paar Tagen hört ihr nochmals von mir.
Bis dahin liebe Grüße vom begeisterten
Claus
Anzeige
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Text aus Text extrahieren
Eddie

Guten morgen an ALLE :-)
Ich will gerne aus folgenden Text einen bestimmten text extrahieren und Ihn dann in einer anderen Zelle anders zusammenbauen
In A1 steht: DasIstEin01Test12345Name
In B1 soll stehen Huhu01Test123 Start
Der Text ändert sich immer, aber der Anfang DasIst...
07.01.2009 08:42:07
Thread-ID: 1037441
3 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Einträge aus Textdatei extrahieren
Stefan

Hallo,
ich habe eine Textdatei, in der sich Email Adressen immer an einer Stelle finden, die so aufgebaut ist:
xxxxx@yahoo.de
Wie kann ich alle Email Adressen automatisiert aus dieser Datei auslesen?
Daaaanke
Stefan
31.03.2009 12:35:38
Thread-ID: 1065586
3 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Zweites Wort der Zelle fett
Sandra

Hallo zusammen,
ich möchte für den Bereich A2:D100 die Zellen so darstellen, dass das erste Wort normal, das zweite Wort aber mit Fettdruck hervorgehoben wird.
Die automatische Korrektur soll mit der "Änderungsfunktion des Tabellenblattes" erfolgen.
Beispiel (Zelle A2):
Sandra M...
05.07.2009 19:23:09
Thread-ID: 1086503
9 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Datum aus 2 Zellen in 1 Zelle übernehmen
gerhard

Hallo zusammen,
Bitte um VBA Hilfe!
In meiner Tabelle stehen in der Spalte H ein Datum im Format z.B in der Zelle H50 29.07.2008 in der Spalte I steht ebenfalls ein Datum im Format z.B in der Zelle I50 06.10.2008
Jetzt soll in der Spalte G in Zelle G50 automatisch folgender Eintrag...
11.09.2009 07:40:30
Thread-ID: 1101896
3 Beiträge
Wert aus Zelle herauslesen
Johannes

Hallo zusammen,
weiß jemand, wie man eine Zahl aus einer Zelle mittels einer Formel herauslesen kann und mit dieser auch weiter rechnen kann?
Beispiel:
In Zelle A1 steht (das ' signalsiert den Zellanfang und -ende):
' 600 Haushaltswaren'
Jetzt möchte in A2 nur den W...
28.09.2009 11:51:34
Thread-ID: 1105996
3 Beiträge
Zeilenhöhe aus Zelle bestimmter Sp übernehmen
Peter

Guten Tag
Ich habe eine Tabelle, in der in Spalte G ab Zeile 1 bis x steht, wieviel die Zeilenhöhe betragen soll. Nun möchte ich diese Zeilenhöhen mit Makro zuweisen und zwar zuerst die letzte Zeile mit Inhalt anwählen und dann rückwärts bis Zeile 1 abarbeiten.
Mit nachstehendem Code bi...
26.10.2009 14:49:49
Thread-ID: 1112247
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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