|
Hallo Roman,
ich denke, du kannst den Löwenanteil für deinen Code durch Aufzeichnung gewinnen, zumindest die Ansätze, die du anschließend bearbeiten kannst. Da du du verschiedenen Längen der Dateien als Problem ansprichst, hier ein Tipp. Die oberste Zelle der Daten kennst du, Die letzte kannst du, wenn unterhalb der Daten keine weiteren Einträge sind, z.B. mit
lz = Cells(Rows.Count, SpaltenNr).End(xlUp).Row 'Spaltennummer beginnen mit 1, also A=1, B=2, ...
bestimmen.
Falls irgendwelche konkreten Probleme bei der Aufzeichnung und deren Modifikation entstehen, melde dich wieder.
Gruß
Holger
|