Zwischenspeicher >Ramses
19.06.2002 22:06:16
Helmut J
Die folgende Sub funktioniert nicht , es gibt die Fehlermeldung
"Benutzerdefenierter Typ nicht defeniert"
in den Satz "Dim ClpObj As DataObject"
In der Liste als was man eine Variabele defeniert fehlt der Typ DataObjekt
Sub Compare_Time()
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
Set ClpObj = New DataObject
ClpObj.GetFromClipboard
Debug.Print ClpObj.GetText
If Format("12:35:00", "hh:mm:ss") = Format(ClpObj.GetText, "hh:mm:ss") Then
Debug.Print "OK"
End If
End Sub
Danke im Vorraus