Vertragsnummer finden
30.11.2023 21:17:59
Markus
ich tüftel schon seit längerer Zeit an einem Problem und finde keine Lösung dazu.
Und zwar folgendes Szenario:
Ich wandle mit VBA automatisiert eine .pdf-Datei in eine .xlsx-Datei um.
Anschließend möchte ich eine bestimmte Zahlenkombination (Vertragsnummer) aus dieser .xlsx extrahieren.
Diese kann entweder in der selben Zelle hinter dem String "VertragsNr. XXX" stehen (siehe Screenshot 1) oder aber separat in einer neuen Zeile (siehe Screenshot 2).
Es können beide Varianten variabel auftreten, sprich mal Fall 1 und mal Fall 2. Trotzdem muss ich in beiden Fällen verlässlich die "VertragsNr." ermitteln können.
Problematisch ist hier auch die Such-Range in welcher ich die Nummer/einen String suche, da die Tabelle durch die automatische Konvertierung immer ein unterschiedliches Format besitzt (mal mehr, mal weniger Spalten; unterschiedliche Zusammenfassung mehrerer Spalten zu einer Zelle).
Hier mal ein Ausschnitt zu einem meiner Versuche:
JPX_VertragsNr_Zeile = JPX_Arbeitsmappe.Worksheets(1).Range("A:AZ").Find(What:="VertragsNr*").Row
With JPX_Arbeitsmappe.Worksheets(1).Range("A" & JPX_VertragsNr_Zeile & ":" & "AZ" & (JPX_VertragsNr_Zeile + 1))
JPX_VertragsNr = Right(.Find(What:="10*"), 6)
End With
Habt ihr eine Idee oder einen Denkanstoß, wie ich dieses Thema am besten lösen kann?