Schleife in UF solang Textbox leer ist.
16.10.2022 15:43:19
Barolt
ich benötige wieder einen Denkanstoß. Im netzt habe ich einiges gefunden, welches jedoch unklar für mich ist und nicht funktioniert.
Ziel: Ein Formular soll Tabellenblätter anlegen
Es gibt ein Userform mit 2 Textboxen.
Textbox 1: Anzahl der sheets die angelegt werden soll
Textbox 2: Namen für den neu anzulegende sheet
Textbox1 soll dafür sorgen das der loop x-fach ausgeführt wird.
CODE:
Private Sub CommandButton1_Click()
Dim AnzahlSheets As Long
AnzahlSheets = UserForm1.TextBox1.Value
Dim i As Long
For i = 1 To AnzahlSheets
If TextBox2 = "" Then
TextBox2.SetFocus
Else
Sheets.Add
With ActiveSheet
.Name = TextBox2.Value & "(" & i & ")"
TextBox2 = ""
End With
If AnzahlSheets = i Then
Exit Sub
End If
i = i + 1
End If
Next
End Sub
- es bleibt im Textbox2 stecken solang diese leer ist.
- Macht ein tabellenblatt mit dem Namen aus textbox2
ABER(!) zählt nicht i weiter ?
unload userform1 kommt wenn alles durch ist. ;)
Ich bin sehr dankbar für ein denkanstoß
Vielen Dank
Barolt