Zwischenablage
24.09.2003 14:46:39
Nick
ich hoffe es hat einer ne Lösung für mein Problem. Und zwar wenn ich diesen Code ausführe meldet er "Fehler beim Kompilieren: Benutzerdefinierter Type nich denfiniert" kann mir einer Helfen
Option Explicit
Dim ZwischenAblage As DataObject
Sub TextInZwischenablageEinfügen()
Dim Text As String
Set ZwischenAblage = New DataObject
Text = Sheets("Tabelle5").Range("A1").Value
With ZwischenAblage
.SetText Text
.PutInClipboard
End With
Set ZwischenAblage = Nothing
End Sub
Schon mal im voraus Danke
Nick