Zelleninhalt in Zwischenspeicher legen
01.09.2020 17:25:13
Christian
Habe ein Problem, dass mich an den Rand der Verzweiflung bringt.
Ich möchte, dass wenn ich die Spalte "e" verlasse, der Inhalt der soeben beschriebenen Zelle in die Zwischenablage eingetragen wird, damit man in einem anderen Programm damit weiterarbeiten kann.
Mein Code lautet:
Private Sub worksheet_change(ByVal Wahlzelle As Range)
Dim Makrobereich As Range
Dim MyData As DataObject
Dim Nummer As String
Dim Zeile As Long
Dim Spalte As Long
On Error Resume Next
Set Makrobereich = Range("E:E")
If Not Application.Intersect(Makrobereich, Range(Wahlzelle.Address)) Is Nothing Then
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
Nummer = Cells(Zeile, Spalte - 1).Text
Set MyData = New DataObject
MyData.SetText (Nummer)
MyData.PutInClipboard
End If
End Sub
Der Verweis auf MS Forms 2.0 Library forms ist erstellt, wenn ich die Schritte einzeln durchgehe klappt alles, die Variabel "Nummer" füllt sich schön brav mit dem Zelleninhalt, aber sobald ich anschliessend Ctrl V eingebe, habe ich nur 2 Quadrate: □□
Der eigentliche Text, der mit "Nummer" an die Zwischenablage übergeben wurde, ist nicht mehr vorhanden.
Hat jemand eine Ahnung, was ich falsch mache?
Danke und Gruss
Chrigu