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