|
Hallo,
ich habe Rohdaten aus einem PDF in ein Excerl (2016) kopiert. Im PDF sehe ich 3 Spalten, dort nutze ich "strg+a" und "strg+c" im Excell dann "strg+v". Die Daten landen dann nicht wie erwartet in 3 Spalten, sondern untereinaner.
Ziel: Aufbereiten der Daten in 3 Spalten, löschen der leeren Zeilen, die druch das Verschiebe-Makro entstehen.
Laufen lassen, bis keine Daten mehr da sind.
Dazu habe ich dann folgendes (gefunden und für mich angepaast):
[CODE]
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Selection.Cut Destination:=Cells(ActiveCell.Row - 1, ActiveCell.Column + 1)
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Selection.Cut Destination:=Cells(ActiveCell.Row - 2, ActiveCell.Column + 2)
[/code]
Macht: A1 bleibt A1; A2 wird B1; A3 wird C1; Makro ende.
Ergebnis: Geht soweit, aber Zeile 2 und 3 sind dann leer (sollen gelöscht werden, wenn die Daten verschoben wurden).
Makro bleibt in Zeile 3 stehen, sollte weiter laufen und A4 bleibt A4;A5 wird B4;A6 wird C4; usw... auch behandeln.
Ich bin da kein Programmierprofi und hätte da gerne eine Hilfestellung, wier ich das löse kann. Danke.
|