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

Hallo,

ich möchte über Zeile B per VBA leere Zeilen einfügen. Die Anzahl der Zeilen soll der Anzahl der Zeilen in der Zwischenablage entsprechen (in der Zwischenablage befindet sich kopierter Text aus einer Tabelle in MS Word).

Den reinen Paste-Vorgang habe ich bereits einem Button in einer Userform zugeordnet:

Range("B3").Select
ActiveSheet.Paste
Unload Userformname

Damit vorhandener Inhalt nicht überschrieben wird, sollte halt vor dem Einfügen eine entsprechende Anzahl Leerzeilen eingefügt werden.

terryjak

:)

 

Hi terryjak!

Probier mal anstatt .paste, .insert:

Code:

 

Hi ZeC,

dadurch wird lediglich die Zelle eine Zeile höher ausgewählt. Eingefügt wird gar nichts mehr.

 

Und hast du's schon mal mit .PasteSpecial probiert?

PasteSpecial.gif

Beispiel:

Code:

 

Hallo terryjak
Das Selecten ist meiner Meinung nach völlig überflüssig. Die Paste Eigenschaft benötigt doch eigtl immer eine Destination oder?
Code:

Oder du kannst es mal mit Insert Rows probieren:
Code:

Danach weiter machen und mit Paste deinen Zwischenablageninhalt einfügen.

Viel Glück und ich hoffe das hilft,
Pitbull

 

Hallo zusammen,

ich denke mit

Code:

sollte das Problem exakt gelöst sein.

Gruß Ingolf

 

Hallo Pitbull,
der Ansatz mit Insert Rows ist bestimmt richtig, allerdings muß die Anzahl der Zeilen definiert werden (soll gleich der Anzahl Zeilen sein, die sich in der Zwischenablage befindet).

Hallo ZeC und IngGi,
'Range("B3").Insert shift:=xlDown' funktioniert natürlich doch, ich hatte nur beim ersten Versuch das daruaf folgende 'Range("B3").Paste' ausgelassen.
Jedoch wird nur eine Zeile eingefügt. Der Inhalt der Zwischenablage überschreibt somit bei einem erneuten Versuch den ersten Eintrag.
Ziel ist, daß mit jedem Ausführen des Codes der Inhalt der Zwischenablage oben in der Datei eingefügt wird und vorhandener Inhalt weiter nach unten rutscht.

Danke euch!

 

Man müsste also die Anzahl der Zeilen aus der Zwischenablage definieren. Wenn diese gleichbleibend wäre ist das natürlich kein Problem, z.b. Rows(3). Wenn diese sich ändert müsste man sie während bzw. vor dem kopieren in die Zwischenablage definieren.

-UPDATE-
Hab gerade mal in der Hilfe gesucht und bin fündig geworden. Proiers doch mal mit der GetFromClipboard Methode
Die Hilfe sagt dazu folgendes:

 

Hallo terryjak,

da hätte ich nochmal genauer drüber nachdenken müssen. Mit .Insert fügt man automatisch die richtige Anzahl Zellen ein. Das funktioniert aber nur, wenn man einen Zellbereich kopiert. Mit einem mehrzeiligen Text, den man auf die entsprechende Anzahl Zeilen einer Exceltabelle aufteilen will, geht's nicht so einfach. Das muss man Schritt für Schritt selbst programmieren. Hier mal ein Beispiel. Ein mehrzeiliger Text, der in der Zwischenablage steht, wird oberhalb von Zelle B3 eingefügt:

Code:

 

Hallo Ingolf,

in der Zeile:

'Range("B3").Resize(intZeilen - 1, 1).Insert Shift:=xlShiftDown'

erhalte ich einen Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler.

Gruss terryjak

 

Hallo terryjak,

das deutet darauf hin, dass in der Zwischenablage ein Zellbereich steht, der mit dem Einfügebereich in Form und/oder Größe nicht übereinstimmt. Allerdings ist es ja so, dass bei dir in der Zwischenablage kein Zellbereich, sondern ein Text steht (davon gehe ich zumindest aus). Dann dürfte aber die Fehlermeldung nicht kommen. Was passiert denn, wenn du - statt das Makro auszuführen - eine einzelne, leere Zelle markierst und dann die Zwischenablage einfügst? Wird dann alles in eine Zelle eingefügt?

Gruß Ingolf

 

Hallo Ingolf,

wenn ich eine einzelne Zelle markiere und die Zwischenablage einfüge, wird alles in mehrere Zeilen eingefügt (entsprechend der kopierten Zeilen in Word).

Die in die Zwischenablage kopierten Werte befinden sich in einer Tabelle in einer Word Datei. Ich bin davon ausgegangen, daß alles was aus Word kommt ein Textformat hat. Aber möglicherweise handelt es sich hier dann um ein anderes Format ?

Gruß Udo

 

Hallo Udo,

einerseits versucht Excel, die Wordtabelle als Objekt einzufügen und nicht als bloßen Text. Andererseits ist Excel aber nicht in der Lage, die Wordtabelle wie einen Excelzellbereich einzufügen. Letztlich bin ich daher auf folgende, nicht gerade elegante, aber funktionierende Methode verfallen:

Code:

 

Hi Ingolf,

so langsam nähert man sich der Lösung *wink.gif*

Mit dem letzten Code wird die erste von 3 Spalten eingefügt, die sich in der Zwischenablage befinden...

Gruss Udo

 

Hallo Udo,

mit 3 Spalten müsste das dann so funktionieren:

Code: