Do - Loop Schleife für Eingabe unterbrechen
16.07.2015 13:46:27
Uli
ich hab immer noch mein blödes (sorry) Problem beim Erfassen von Daten in einer Userform.
Eine Textbox (txtGesamtW) fragt mich nach der Anzahl der Personen. Ich gebe z.B. die Zahl drei ein.
jetzt öffnet sich ein Frame mit 4 Textboxen, die ich ausfülle. Sobald ich den CommandButten OK drücke, sollen die Daten in die letzte Zeile der Tabelle eingetragen werden, und die Textboxen leeren sich. Diese Prozedur geht so lange, wie die Anzahl der Personen ist.
mein Code lautet (Auszug)
Sub cmdOK_Click()
Dim x As Integer
Dim Anzahl As Integer
n = 2
Anzahl = Me.txtGesamtW
Do
If n Anzahl Then
MsgBox "Alle Wohnungen eingetragen"
Unload Me
End If
End Sub