Schleife mit Textbox-Eingabe
01.09.2005 10:51:27
Tobias
bitte um eure Hilfe!
Mein Problem: Ich will in einer UserForm einrichten, dass die vorhandenen Tabellenblätter per manueller Eingabe umbenannt werden.
Das mit dem umbenennen klappt auch schon, nur das mit der Schleife noch nicht so ganz......
...hier mein Code:
Private Sub CommandButton1_Click()
Dim name As String
Dim a
For a = 2 To Sheets.Count Step 1
name = TextBox1.Value
Sheets(a).name = "Report_" & name & ""
TextBox1.Value = vbNullString
Next a
End Sub
Ich hab schon unter Recherche geschaut, bin aber leider nicht fündig geworden.
Die Schleife soll nach jeder Umbenennung warten, bis ich wieder auf den Button Klicke, und dann wieder das nächste Blatt umbenennen!
Geht dass überhaupt in einer schleife?
Vielen Dank für eure Hilfe
Beste Grüße
Tobias