Laufzeitfehler 1004 bei Abbruch Inputbox
Gerd Welzel
mittels folgender sub füge ich über eine Inputbox einen
Kommentar in die aktive Zelle ein:
****************************************
Sub Kommentar_ohne_Namen()
On Error GoTo err_kommentar
Dim TMP As String
Dim user As String
With ActiveCell
If Len(.Comment.Text) > 0 Then
Exit Sub
err_kommentar:
TMP = InputBox("Bitte Kommentar eingeben:")
user = Application.UserName
Application.UserName = "unkown user"
.AddComment TMP
.Comment.Visible = False
Application.UserName = user
Resume Next
End If
End With
End Sub
**************************************
Der code ist von jemandem aus dieser ng, weiss aber nicht
mehr, von wem. Der code funktioniert auch super. Nur wenn
ich in der Inputbox auf den button "Abbrechen" klicke, kommt
diese Fehlermeldung:
"Laufzeitfehler 1004", "Anwendungs- oder Objektdefinierter
Fehler".
Wie kann ich das abfangen?
Für Tipps und Hilfen im voraus vielen Dank
--
Mit freundlichen Grüssen
Gerd Welzel
Gerd Welzel
Dr. Eckehard Pfeifer
TMP = InputBox("Bitte Kommentar eingeben:")
if TMP<>"" then
TMP="Ersatz"
end if
user = Application.UserName
Application.UserName = "unkown user"
.AddComment TMP
.Comment.Visible = False
Application.UserName = user
--
Mit freundlichen Grüßen
Eckehard Pfeifer
www.dr-e-pfeifer.de
Ein Blick lohnt sich immer: www.vba-magazin.de
Gerd Welzel
habs gleich probiert, aber leider ohne Erfolg.
Es erscheint die gleiche Fehlermeldung wie zuvor.
Hast du evt. noch einen Tipp?
--
Mit freundlichen Grüssen
Gerd Welzel
"Dr. Eckehard Pfeifer" <pri...@dr-e-pfeifer.de> schrieb im
Newsbeitrag news:uaFQqGScBHA.1000@tkmsftngp07...
Martin Worm
hallo Gerd,
>Sub Kommentar_ohne_Namen()
>On Error GoTo err_kommentar
>Dim TMP As String
>Dim user As String
>With ActiveCell
>If Len(.Comment.Text) > 0 Then
>Exit Sub
>err_kommentar:
> TMP = InputBox("Bitte Kommentar eingeben:")
einfügen: if TMP="" then exit sub
> user = Application.UserName
> Application.UserName = "unkown user"
> .AddComment TMP
> .Comment.Visible = False
> Application.UserName = user
> Resume Next
>End If
>End With
>End Sub
>**************************************
>Der code ist von jemandem aus dieser ng, weiss aber nicht
>mehr, von wem. Der code funktioniert auch super. Nur wenn
>ich in der Inputbox auf den button "Abbrechen" klicke, kommt
>diese Fehlermeldung:
>
hth
--
E-Mail von Martin Worm, Karlsruhe, Deutschland
Adresse: marti...@karlsruhe.netsurf.de
benutze Excel2000(9.0.2812) Win ME
Antworten bitte nur in die Newsgroup
Gerd Welzel
funktioniert so, wie ich wollte.
Vielen Dank und einen schönen Abend noch.
--
Mit freundlichen Grüssen
Gerd Welzel
"Martin Worm" <marti...@karlsruhe.netsurf.de> schrieb im
Newsbeitrag
news:vfiivt48lnrcrh9gr...@4ax.com...
Martin Worm
>Hallo Eckehard,
>
>habs gleich probiert, aber leider ohne Erfolg.
>Es erscheint die gleiche Fehlermeldung wie zuvor.
>
>Hast du evt. noch einen Tipp?
hallo Gerd,
es gibt die Inputbox-funktion und die Inputbox-Methode
Eine gibt bei Abbruch einen Leerstring die andere False zurück.
Ändere versuchsweise den Typ von TMP in Variant und füge nach der
Abfrage ein "msgbox tmp" ein.
Eventuell geht es auch mit Application.inputbox
Dr. Eckehard Pfeifer
--
Mit freundlichen Grüßen
Eckehard Pfeifer
www.dr-e-pfeifer.de
Ein Blick lohnt sich immer: www.vba-magazin.de
"Gerd Welzel" <ger...@gmx.de> schrieb im Newsbeitrag
news:eeWH2YScBHA.1832@tkmsftngp04...
Gerd Welzel
Aber um Vergebung bitten brauchst du nun wirklich nicht
:-)))
Vielen Dank für die Hilfe und schönen Abend noch.
--
Mit freundlichen Grüssen
Gerd Welzel
"Dr. Eckehard Pfeifer" <pri...@dr-e-pfeifer.de> schrieb im
Newsbeitrag news:eFK2K9ScBHA.2008@tkmsftngp02...