VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Namen von TextBoxes hochzählen

Gruppe

Dialog

Bereich

TextBox

Thema

Namen von TextBoxes hochzählen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox