Daten aus PDF Text extrahieren

Guten Abend,
ich habe mehrere PDF Dokumente mit gleichem Aufbau, in denen Daten enthalten sind, die ich gerne in Excel importieren möchte. Die relevanten Textpassagen sehen so aus.
Daten1: [Name] | Daten2: [Zahl (1-4 stellig)] | Daten3: [Zahl (1-4 stellig)] | irrelevanter Text
Daten4: [Zahl (1-4 stellig)] | Daten5: [Zahl (1-4 stellig)] | Daten6: [Zahl (1-4 stellig)] | Daten7: [Zahl (1-4 stellig)] |
Daten8: [Zahl im Format z.zz] | Daten9: [Zahl im Format zzzzz.zz] | Daten10: [Zahl (1-4 stellig)] |
Daten11: [Zahl (1-4 stellig)] | Daten12: [Zahl (1-4 stellig)] | Daten13: [Zahl (1-4 stellig)]
Durch Copy&Paste bekomme ich die Daten in Excel eingefügt, sodass jeweils nach dem | der Inhalt in eine neue Zelle eingefügt wird, siehe hier: https://www.herber.de/bbs/user/150664.xlsx
Mein Ziel ist es nun eine Automatisierung hinzubekommen, sodass mit möglichst wenigen Schritten eine Tabelle befüllt werden kann mit den Daten.
Ich habe nach dem Kopieren der Daten in Excel versucht mit der Formel =RECHTS(A1;SUCHEN(":";A1)) die Daten herauszuholen, das funktioniert aber nicht, auch nicht mit =RECHTS(A1;SUCHEN(":";A1)-x) [verschiedene Zahlen statt "x" versucht], da dort dann häufig noch der Text nach bzw. vor dem ":" angezeigt wird.
Habt ihr Tipps für mich, wie ich da am besten vorgehen kann?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Umsetzen() Dim letzteSpalteQ As Long Dim letzteZeileQ As Long Dim letzteZeileZ As Long Dim nr As Long Dim posDP As Long ' Position des Doppelpunktes Dim spalteQ As Long Dim wert As String Dim wsQ As Worksheet Dim wsZ As Worksheet Dim strNr As String Dim zeileQ As Long Dim zeileZ As Long Dim zf As String Set wsZ = ThisWorkbook.Worksheets("Ziel") letzteZeileZ = wsZ.Cells(wsZ.Rows.Count, "A").End(xlUp).Row zeileZ = letzteZeileZ + 1 Set wsQ = ThisWorkbook.Worksheets("Quelle") letzteZeileQ = wsQ.Cells(wsQ.Rows.Count, "A").End(xlUp).Row For zeileQ = 1 To letzteZeileQ letzteSpalteQ = wsQ.Cells(zeileQ, wsQ.Columns.Count).End(xlToLeft).Column For spalteQ = 1 To letzteSpalteQ zf = Trim$(wsQ.Cells(zeileQ, spalteQ)) If Left$(zf, 5) = "Daten" Then posDP = InStr(zf, ":") If posDP = 7 Or posDP = 8 Then strNr = Mid$(zf, 6, posDP - 6) If IsNumeric(strNr) Then nr = CLng(strNr) wert = Trim$(Right$(zf, Len(zf) - posDP)) wsZ.Cells(zeileZ, nr) = wert End If End If End If Next spalteQ Next zeileQ wsZ.Activate End Sub

Hallo Kosinus,
das lässt sich auch machen. Die Reihenfolge der Kategorien im Blatt "Quelle" kann dabei beliebig sein, es können auch einzelne fehlen.
Das Programm könnte dann z.B. so aussehen:


Sub Umsetzen()
Dim letzteSpalteQ As Long
Dim letzteZeileQ As Long
Dim letzteZeileZ As Long
Dim posDP As Long  ' Position des Doppelpunktes
Dim spalteQ As Long
Dim spalteZ As Long
Dim strKategorie As String
Dim suchErgebnis As Range
Dim wert As String
Dim wsQ As Worksheet
Dim wsZ As Worksheet
Dim zeileQ As Long
Dim zeileZ As Long
Dim zf As String
Set wsZ = ThisWorkbook.Worksheets("Ziel")
letzteZeileZ = wsZ.Cells(wsZ.Rows.Count, "A").End(xlUp).Row
zeileZ = letzteZeileZ + 1
Set wsQ = ThisWorkbook.Worksheets("Quelle")
letzteZeileQ = wsQ.Cells(wsQ.Rows.Count, "A").End(xlUp).Row
For zeileQ = 1 To letzteZeileQ
letzteSpalteQ = wsQ.Cells(zeileQ, wsQ.Columns.Count).End(xlToLeft).Column
For spalteQ = 1 To letzteSpalteQ
zf = Trim$(wsQ.Cells(zeileQ, spalteQ))
posDP = InStr(zf, ":")
If posDP > 0 Then
strKategorie = Left$(zf, posDP - 1)
If Len(strKategorie) > 0 Then
Set suchErgebnis = wsZ.Rows(1).Find(What:=strKategorie, _
LookIn:=xlValues, _
LookAt:=xlWhole)
If Not suchErgebnis Is Nothing Then
spalteZ = suchErgebnis.Column
wert = Trim$(Right$(zf, Len(zf) - posDP))
wsZ.Cells(zeileZ, spalteZ) = wert
End If
End If
End If
Next spalteQ
Next zeileQ
wsZ.Activate
End Sub

https://www.herber.de/bbs/user/150763.xlsm
Viele Grüße
Dieter

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus PDF Text extrahieren

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

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread