Laufzeitfehler 1004
28.12.2003 13:03:29
Thomas
Ich habe da eine kleine Frage an Euch. Wieso bekomme ich immer einen Laufzeitfehler zugestellt? In einer anderen Datei klappt es.
Private Sub Namen()
On Error GoTo fehler
Dim eingabe As String
eingabe = ""
If Range("E25").Text = "Mein Name ist" Then
Range("E25").Select
While eingabe = ""
eingabe = InputBox("Bitte geben Sie Ihren Namen ein ")
Wend
Range("E25").Value = "Excel für " & eingabe
End If
Exit Sub
fehler:
MsgBox "Es gibt Probleme beim Aufruf der Startseite und der Startzelle"
End Sub
Besten Dank für Eure Hilfe.
Gruss Thomas
Anzeige