Werte aus Clipboard; nur von ausgewählten Zellen
10.10.2012 11:58:25
ausgewählten
Aktuell versuche ich die Werte markierter und in die Zwischenablage kopierter Zellen auszulesen.
Das Grundprinzip funktioniert recht einfach, siehe Code weiter unten. Damit werden die Werte aus der Zwischenablage in die Textvariable übertragen. Für zusammenhängende Bereiche ist dies in Ordnung. Sind aber selektiv einzelne Zellen ausgewählt, bestehen also "Lücken" in der Auswahl, dann werden alle Werte vom erst bis zum letzt markierten Wert aus der Zwischenablage gelesen.
Frage: Wie können nur die Werte der ausgewählten Zellen aus der Zwischenablage gelesen werden?
Beispiele:
Zellen A2:A5 sind ausgewählt -> alles i.O.
Zellen A2:A3 und A5 sind ausgewählt -> A2:A5 wird aus der Zwischenablage gelesen
Vielleicht kennt jemand die Lösung.
Danke
Gruß, Arthur
Sub MyValuesFromClipboard()
Dim oData As New DataObject
Dim ltText As String
On Error Resume Next
With oData
.GetFromClipboard
ltText = .GetText
End With
Set oData = Nothing
End Sub