Hallo,
das ist leider nicht so einfach.
Diese Seiten leben davon, solche Informationen bereitzustellen, und haben ein Interesse daran, dass die Daten nicht einfach (automatisiert) herauskopiert und weiterverarbeitet werden können.
Man könnte möglicherweise Scripte schreiben, die automatisch die Daten erkennen und umformatieren, das kann aber sehr aufwändig sein und muss für eine bestimmte Seite individuell gemacht werden. Ein Makro, dass für all solche Seiten funktioniert, kann es nicht geben.
Auf welche Weise hattest Du die die Daten in XLS importiert? War das schon ein "ungefähr" brauchbares Ergebnis, mit dem man vielleicht weiterarbeiten kann?
KOPIEREN:
Ich fürchte, der "einfachste" Weg wäre, die Daten auf der Seite zu markieren, zu kopieren (Strg-C), in Excel einzufügen (Strg-V) und danach von Hand aufzubereiten.
AUFBEREITUNG:
Die Daten der Seite www.verkehrsmittelvergleich.de scheinen sich besser importieren zu lassen.
Zur Aufbereitung kann man auch ein paar Tricks anwenden.
Zuerst den Text ohne Format in Word einfügen:
- die (gerade eingefügten) Daten aus Excel wieder kopieren (wieder Strg-C drücken)
- ein neues Textdokument erstellen (Notepad) und die Daten einfügen, gleich wieder alles markieren und kopieren (das soll formatierungen entfernen)
- Word öffnen und die Daten (jetzt ohne Formatierungen) einfügen
Dann in Word die funktion "Text ersetzen" öffnen.
Das weitere würde zu umfangreich, um alle Möglichkeiten hier aufzuschreiben, daher hier nur ein paar Hinweise. Wie Du genau vorgehst, musst Du Dir selbst austüfteln
(einzugebender Text ist in geschweiften Klammern, die Klammern sollen nicht mit eingegeben werden):
zB. den überflüssigen Text "Buchen" entfernen:
ersetzen von {^pBuchen^t^t^t^t^t^t}
durch {}
zB. Leerzeilen zwischen der Flugzeit und dem Preis entfernen:
ersetzen von { h^p^t^t^t^t^t^t^p}
durch { h^t}
zB. doppelte Tabstops entfernen^:
ersetzen von {^t^t}
durch {^t},
dies so lange wiederholen, bis der Suchtext nicht mehr gefunden wird
zB. Zeilen die nur einen Tabstop enthalten entfernen:
ersetzen von {^p^t^p} durch {^p}
zB. Leere Zeilen entfernen:
ersetzen von {^p^p} durch {^p}
Erklärung:
^p = Zeilenumbruch
^t = Tabstop
(Weitere möglichkeiten: siehe Word hilfe zu "suchen und ersetzen". MIt "Platzhalter verwenden" gibts noch viel mehr möglichkeiten, das ist aber sehr kompliziert)
Der so aufbereitete Text kann wieder kopiert und in Excel eingefügt werden.
