Wie kopiert man den Inhalt einer Zelle in die Zwischenablage?

Question

Ich versuche, den Zellinhalt in die Zwischenablage zu kopieren.

Ich habe genau das in der Excel 2007-Hilfedatei angegebene Beispiel gelesen und ausprobiert. Aus irgendeinem Grund ist das DataObject-Objekt jedoch nicht gültig. Also das Beispiel:

Dim MyData As DataObject

Private Sub CommandButton1_Click()
    Set MyData = New DataObject

    MyData.SetText TextBox1.Text
    MyData.PutInClipboard

    TextBox2.Paste
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Text = "Move this data to a " _
        & "DataObject, to the Clipboard, then to " _
        & "TextBox2!"
End Sub

Funktioniert in meinem Fall nicht. Ich habe jetzt eine ganze Weile gesucht und ich kann keine Antwort darauf finden, warum das DataObject-Objekt nicht verfügbar ist.

Hier ist mein Code:

Dim MyData As DataObject

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Column = 3 Then
        Set MyData = New DataObject
        MyData.SetText ActiveCell.Offset(-1, -1).Text
        MyData.PutInclipboard
    End If    
End Sub

Fehler beim Kompilieren ist: "Benutzerdefinierter Typ nicht definiert" und hebt die Zeile "MyData As DataObject" hervor.

Gibt es eine andere Methode als das einfache Kopieren des Textes in einer Zelle in die Zwischenablage?

Answer 1

Okay, ein paar Dinge:

Zuerst müssen Sie einen Verweis auf die "Microsoft Forms 2.0 Object Library" hinzufügen. Wenn Sie keine Lust haben, sich durchzusuchen, fügen Sie einfach ein Benutzerformular zum Projekt hinzu und löschen es dann sofort, der Verweis bleibt erhalten. Sie benötigen diesen Verweis, um DataObject zu verwenden

Ich werde einen Code anhängen, den ich zum Laufen gebracht habe. Ich habe die Offsets geändert, aber machen Sie, was immer Sie brauchen...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set MyData = New DataObject
    If ActiveCell.Column = 3 Then
        MyData.SetText ActiveCell.Offset(-1, 0).Text
        MyData.PutInClipboard
    End If
End Sub