Übergehen: Laufzeitfehler '-2147221404(80040064)'
25.05.2009 19:29:35
Lenni
Mit folgendem Code für ein UserForm wurde mir hier im Forum vor einigen Wochen geholfen. Es handelt sich um die Möglichkeit, dass bei Click auf CommandButton5 der zuvor "befüllte" Zwischenspeicher des Rechners in eine TextBox2 geschrieben wird.
Private Sub CommandButton5_Click() Dim objDataObject As DataObject Set objDataObject = New DataObject objDataObject.GetFromClipboard TextBox2.Text = objDataObject.GetText Set objDataObject = Nothing |
Das klappt soweit auch super gut... ...nur wie sich jetzt erst herausgestellt hat, wird mir bei einem leerem Zwischenspeicher folgende Fehlermeldung angezeigt: Laufzeitfehler '-2147221404(80040064)': DataObject:GetText Ungültige FORMATECT-Struktur
Gibt es eine Möglichkeit, eine Prüfung in den Code "einzubauen", dass z.B. eine MsgBox geöffnet wird mit dem Hinweis, dass der Zwischspeicher leer ist, bevor diese Fehlermeldung kommt (...die dann natürlich auch nicht mehr erscheinen soll!)?
Oder was mir auch schon reichen würde: Diese Fehlermeldung ignorieren bzw. zu übergehen und gleich den Cursor in die TextBox2 setzen (...dann zum manuellen befüllen!).
Ich bitte um Eure Hilfe! Vielen Dank!
Viele Grüße aus dem hohen Norden!
Lenni