Supportnet Computer
Planet of Tech

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

Antwort 2 von schnallgonz

Hallo eddel,

Danke für die Hilfe, funzt.
Auf die Option "FALSCH" bin ich einfach nicht gekommen.

MfG
schnallgonz

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: