Daten aus PDF in eine vorgefertige Excel Tabelle ziehen

[mkletsel]

Hallo zusammen,

ich bin neu im Forum und auch neu bei Excel und habe folgendes Problem:

Ich habe eine PDF Datei (keine Bilder, echter Text, laesst sich kopieren), und eine bereits vorgefertigte Excel Tabelle.

Die PDF Datei hat folgenden Aufbau. Paragraph, dann ein Datum im Textformat, dann einen kleinen Text. Alles steht hintereinander, und ist nur durch Bindestriche getrennt. Danach wieder das selbe. Und das auf circa 500 Seiten.

In Excel soll ich nun Paragraphennummer, Datum, und Text in den Spalten dafuer eintragen. Momentan mache ich das umstaendlich per Kopieren und einfuegen.

Gibt es dort auch eine andere Moeglichkeit? Es waere mir echt eine grosse Hilfe.

Vielen Dank im Voraus

[WillWissen]

Hi,

nach dem Einfügen ins Tabellenblatt gehe zu Daten==> Text in Spalten==> Trenner: Bindestrich

[mkletsel]

Vielen Dank fuer deine Antwort, das wuerde jedoch mein Problem nur fuer einen Absatz loesen. Ich habe jedoch circa 10.000 solcher.

Gibt es da eine Rundum-Loesung?

[WillWissen]

Hi,

das wuerde jedoch mein Problem nur fuer einen Absatz loesen.

das verstehe ich nicht.

Du kannst doch alles aus deiner PDF ins Excel kopieren, danach alles markieren und wie oben beschrieben verfahren.

[mkletsel]

Hallo,

die Absaetze selbst sind ja nicht per Bindestrich getrennt. Ich zeige das mal.

[WillWissen]

Hi,

lade bitte eine (!) Seite der PDF-Datei hoch (http://www.clever-excel-forum.de/thread-326.html), damit ich das unter realen Bedingungen testen kann.

[mkletsel]

Anbei eine Seite. Der Text eines Paragraphen kann, wie man hier sieht, auch auf zwei Seiten sein. Ich freue mich sehr ueber jegliche Antwort.

[WillWissen]

Hi,

sobald ich den kopierten Text ins Excel eingefügt habe, stellt es sich mir so dar:

Tabelle1

	A	B	C
1	Decreto Supremo 22129	15 de febrero de 1989	Las importaciones
2	relativas y a las adjudicaciones efectuadas por Yacimientos Petrolíferos Fiscales
3	Bolivianos con anterioridad al 17 de agosto de 1988 por licitaciones o invitaciones
4	públicas o directas convocadas por dicha empresa estatal o sus agencias de
5	compras, se regirán por las normas legales vigentes con anterioridad a la
6	dictación del decreto supremo 21979 de 5 de agosto de 1988.
7	Decreto Supremo 22044	05 de octubre de 1988	Aprueba la adjudicación
8	en favor de la Empresa Boliviana de Comercio Ltda. (EBCO LTDA.) representante
9	de Alfredo Evangelista y Cía SACI y C. de la Argentina, para provisión de seis (6)
10	tanques atmosféricos de techo cónico para almacenamiento de petróleo crudo y
11	mezclas de petróleo crudo y condensado, incluyendo agitadores, medidores de
12	nivel, instrumentos y otros accesorios.
13	Decreto Supremo 22027	19 de septiembre de 1988	Aprueba en favor
14	de la compañía Servicios Aéreos Generales Helimar S.R.L, para la contratación de
15	servicios de helicópteros para apoyos de trabajos sísmicos de la brigada portátil
16	N° 2 de la Gerencia de Exploración.
17	Decreto Supremo 22026	19 de septiembre de 1988	Autorizando la
18	compra directa de periféricos marca WANG.

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Das Datum wird automatisch in Spalte B geschrieben. In Spalte C steht der Anfang des Textes, der bereits zeilenweise in Spalte A eingefügt wurde.

Ich sehe leider keine Möglichkeit, mit Bordmitteln dein Vorhaben zu lösen, da die Texte in unterschiedlich vielen Zeilen aufgeteilt sind. Ob eventuell mit Makros, sofern du sie einsetzen darfst/willst, geht, müssen dir aber unsere Spezalisten sagen.

[Fennek]

Hallo,

bei einem Test von Hand würden die Texte recht sauber in den Zellen der Spalte A abgelegt. Diese könnte per Makro in 3 Spalten für Paragraph, Datum und Text umgesetzt werden. Kriterium wäre Schriftart "fett" für die Paragraphen.

D.h., die Struktur darf nicht vorgegeben sein, sondern entsteht mit dem Makro.

mfg

[Fennek]

Hallo,

wenn die Daten aus dem pdf so wie in meinem vorher hochgeladenen Sheet stehen, hilft dieser Code, die (hoffentlich) gewünschte Spaltenstruktur zu erzeugen:

Code:

Sub Paragr()
Columns("A:B").Insert
lr = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To lr
   If Cells(i, "C").Font.Size = 15 Then
       Cells(i, "C").Offset(2, -2) = Cells(i, "C")
       Cells(i, "C").Offset(2, -1) = Cells(i + 1, "C")
       Range("C" & i & ":C" & i + 1).Clear
   End If
Next i
End Sub

mfg