Gruppe
Dialog
Problem
Wie kann ich die Namen von TextBoxes - Form: TEXT01 - auf Knopfdruck um jeweils 1 hochzählen lassen?
StandardModule: basMain
Sub TextFelderUpDate()
Dim txtBox As TextBox
Dim vTxt As Variant
Dim iCounter As Integer
For iCounter = ActiveSheet.TextBoxes.Count To 1 Step -1
Set txtBox = ActiveSheet.TextBoxes(iCounter)
vTxt = CInt(Right(txtBox.Name, 2)) + 1
txtBox.Name = Left(txtBox.Name, 4) & Format(vTxt, "00")
txtBox.Text = txtBox.Name
Next iCounter
End Sub