Office: Anzahl leere Zeilen einfügen gemäß Anzahl Zeilen in Zwischenablage

Hallo Ingolf,

das funktioniert sehr gut (habe lediglich kurzfristig den Zielbereich von B3 nach A4 verlegt).
Ich hab grad noch ein kleines Problem: Ich wollte per code vor den neu eingefügten Zeilen aus der Zwischenablage eine Zeile mit Daten einfügen (Eine Art Überschrift mit dem Hinweis auf ein Protokoll, Kalenderwoche, Datum, Link zum Dokument). Das Einfügen dieser Daten funktioniert (siehe code unten, direkt auf deinen folgend), jedoch wird dieser ab dem zweiten Benutzen nicht mit nach unten verschoben, sodaß jeder Übertrag eine eigenständige Überschrift plus link erhält.
Muß ich dazu deinen code noch abwandeln?

Gruß und vielen Dank,
Udo

Code:

 

Hallo Udo,

wenn du den Einfügebereich von A4 nach A5 verschiebst, sollte sich das Problem damit erledigen.

Gruß Ingolf

 

Vielen Dank, Ingolf!

Noch eins: Wenn sich in der Zwischenablage nichts befindet (der user hat sozusagen "vergessen" etwas dorthin zu kopieren), bleibt der code oben bei "ActiveSheet.Paste" hängen. Kann man das auffangen - mit Messagebox und Abbruch?

Gruss Udo

 

Hallo Udo,

der eventuelle Laufzeitfehler lässt sich so abfangen:

Code:

 

Hi Ingolf,

1000 Dank - du hast mir sehr geholfen!

Beste Grüsse,
Udo