Aus Zwischenablage Texte in Excel einfügen.

Question

Hallo Excelfreunde,
gibt es eine Möglichkeit mit einem Makro die ersten zwei Text Einträge (oder vielleicht alle) aus der Zwischenablage (Clipboard) in Excel 2007 einzufügen.


Gruß
fedjo

Answer 1

Hallo,

wo ist da das Problem? Für die ersten beiden Zeilen ist es problematisch, da mit "Einfügen" oder "STRG + V" immer der ganze Text eingefügt wird.

Vielleich kann man mit einer genaueren Beschreibung des Problems noch eine passendere Lösung finden.

Gruß

Helmut

Answer 2

Hallo Helmut,
nicht die ersten beiden Zeilen, sondern die kompleten ersten zwei Einträge von der Zwischenablage. Mit "Einfügen" oder "STRG + V" wird nur der erste Eintrag übernommen.

Ich kopiere nacheinander zweimal Text aus einem anderen Programm und möchte dann in Excel mit einem Makro auf die beiden letzten eingefügten Einträge in der Zwischenablage zugreifen.

Gruß
fedjo

Answer 3

Hallo,
habe nach langer Zeit eine Möglichkeit mit SendKeys gefunden auf die Zwischenablage (Clipboard) in Excel 2007 auf mehrere Texteinträge zuzugreifen. Beispiel (1-3)

Zwischenablage verkleinern und in die Taskleiste verschieben, ist dann fast nicht sichtbar.



Sub Zwischenablage_zu()
Application.CommandBars("Office Clipboard").Visible = False
End Sub
Sub Zwischenablage_öffnen()
Dim octl
With Application.CommandBars("Task Pane")
If Not .Visible Then
Set octl = Application.CommandBars(1).FindControl(ID:=809, recursive:=True)
If Not octl Is Nothing Then octl.Execute
End If
End With
End Sub
Sub Drei_Einträge_Zwischenablage()
Call Zwischenablage_zu
Call Zwischenablage_öffnen

SendKeys "^{UP}{F10}", True
SendKeys "^{TAB}", True
Range("C1").Activate
SendKeys "{ENTER}", True

SendKeys "{DOWN}"
Range("D1").Activate
SendKeys "{ENTER}", True

SendKeys "{DOWN}"
SendKeys "{DOWN}"
Range("E1").Activate
SendKeys "{ENTER}", True
Call Zwischenablage_zu
End Sub

Gruß
fedjo