Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Namen von TextBoxes hochzählen

Gruppe

TextBox

Problem

Wie kann ich die Namen von TextBoxes - Form: TEXT01 - auf Knopfdruck um jeweils 1 hochzählen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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