Problem bei Paste
19.11.2003 09:51:22
Micha
Habe ein Spreadsheet in einer Userform und möchte mit einem Button "Einfügen" paste aus der Zwischenablage machen. Aber die Zwischenablage kopiert sich komplett in die Zelle, sie soll sich aber in die Spalte kopieren.
was mache ich falsch?
Private Sub CommandButton1_Click()
With Spreadsheet1.ActiveSheet
Set Zwischenablage = New DataObject
Zwischenablage.GetFromClipboard
On Error GoTo Errorhandler
'Spreadsheet1.Cells(2, 1).Activate
Spreadsheet1.ActiveCell.Value = Zwischenablage.GetText
On Error GoTo Errorhandler
Set Zwischenablage = Nothing
Exit Sub
Errorhandler:
MsgBox "Zwischenablage ist leer! Bitte kopieren sie Ihre Daten durch Rechtklick der Maus > Kopieren!"
Exit Sub
End With
End Sub