Supportnet / Forum / Tabellenkalkulation
Inputbox mit Schleife bei Abbruch, wie?
Frage
Hallo,
in u.g. Inputbox soll der Nutzer seinen Namen eintragen, der im Blatt gespeichert wird.
Das soll lediglich sicherstellen, dass man nachhalten kann, wer zuletzt an der Datei gearbeitet hat (kann in offener Datei geändert werden, ist aber egal).
Beim Klick auf Abbrechen soll die Inputbox wieder aufgerufen werden, solange, bis mehr als 3 Zeichen eingegeben wurden. Ich dachte, das klappt mit "On Error".
[code]
Sub NamenEingeben()
'Anmeldebildschirm, um Bearbeitername in E1 zu schreiben
On Error GoTo nochmal:
Dim BName As String
nochmal:
BName = Application.InputBox _
("Bitte geben Sie Ihren Namen ein!", "Benutzernamen eingeben")
If Len(BName) < 3 Then
MsgBox "Sie haben keinen gültigen Namen eingegeben!"
GoTo nochmal
Else: Range("BearbName").FormulaR1C1 = BName
End If
End Sub
[/code]
Mein VBA-Horizont reicht leider nicht, um das hinzukriegen.
Kann man das Listing abändern oder muss ich da völlig neu ansetzen?
MfG
schnallgonz
Antwort 1 von eddel
´ Damit sollte es laufen
Sub NamenEingeben()
´Anmeldebildschirm, um Bearbeitername in E1 zu schreiben
On Error Resume Next
Dim BName As String
nochmal:
BName = Application.InputBox _
("Bitte geben Sie Ihren Namen ein!", "Benutzernamen eingeben")
If Len(BName) " 3 Or BName = "Falsch" Then
MsgBox "Sie haben keinen gültigen Namen eingegeben!"
GoTo nochmal
End If
Worksheets("Tabelle1").Cells(1, 5) = BName
End Sub
Sub NamenEingeben()
´Anmeldebildschirm, um Bearbeitername in E1 zu schreiben
On Error Resume Next
Dim BName As String
nochmal:
BName = Application.InputBox _
("Bitte geben Sie Ihren Namen ein!", "Benutzernamen eingeben")
If Len(BName) " 3 Or BName = "Falsch" Then
MsgBox "Sie haben keinen gültigen Namen eingegeben!"
GoTo nochmal
End If
Worksheets("Tabelle1").Cells(1, 5) = BName
End Sub
Antwort 2 von schnallgonz
Hallo eddel,
Danke für die Hilfe, funzt.
Auf die Option "FALSCH" bin ich einfach nicht gekommen.
MfG
schnallgonz
Danke für die Hilfe, funzt.
Auf die Option "FALSCH" bin ich einfach nicht gekommen.
MfG
schnallgonz