Textboxnummern ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Albrecht,
meines Wissens kann man die Namen der Elemente die schon in einem Userform vorhanden sind nicht per VBA-Routine neu festlegen. Hier ist Handarbeit angesagt und die Namen müssen im Eigenschaften-Fenster des VBA-Editors angepasst werden.
Dabei solltest du nicht "nur" einfach neu durchnummerieren, sondern ggf. auch systematisch die Namen selbst anpassen, so dass der Name etwas über den Inhalt des Steuerelements sagt.
Per VBA kann man weitere Steuerelemente zum Userform hinzufügen, bevor dieses angezeigt wird. Dann hat man auch die Möglichkeit die Namen nach Wunsch festzulegen. Diese Steuerelementen verschwinden aber wieder - spätestens dann wenn die Datei geschlossen wird.
Gruß
Franz

Hallo Albrecht,
ich hab mal im Archiv gestöbert nach "Steuerelement umbenennen".
Hier ist zumindest mal ein Ansatz für Checkboxen.
https://www.herber.de/forum/archiv/1084to1088/1086348_CheckBoxen_mit_VBA_umbenennen.html#1086466
Gruß
Franz

Option Explicit
Sub test()
Dim objCh
Dim i As Integer, ii As Integer
Dim myAr(), myArCh
Dim temSH As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
With ThisWorkbook.VBProject
For i = 1 To .VBComponents.Count
If .VBComponents(i).Name = "UserForm1" Then
Set objCh = .VBComponents(i)
Exit For
End If
Next i
End With
Redim myAr(objCh.Designer.Controls.Count - 1, 1 To 3)
For i = 0 To objCh.Designer.Controls.Count - 1
If TypeName(objCh.Designer.Controls.Item(i)) = "CheckBox" Then
objCh.Designer.Controls.Item(i).Name = "TempNameCH" & i + 1
myAr(ii, 1) = i
myAr(ii, 2) = objCh.Designer.Controls.Item(i).Left
myAr(ii, 3) = objCh.Designer.Controls.Item(i).Top
ii = ii + 1
End If
Next i
Set temSH = Worksheets.Add
With temSH
.Range("A1").Resize(Ubound(myAr, 1) + 1, Ubound(myAr, 2)) = myAr
.UsedRange.Sort .Range("B1"), xlAscending, .Range("C1"), , xlAscending, , , xlNo
myArCh = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
.Delete
End With
ii = 1
For i = 1 To Ubound(myArCh)
objCh.Designer.Controls.Item(myArCh(i, 1)).Name = "CheckBox" & ii
ii = ii + 1
Next i
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

Sub TextBoxen() Dim meTxTBox() As Control Dim tmpControl As Control Dim i As Integer Dim ii As Integer With ThisWorkbook.VBProject.VBComponents("UF_Beratung1") 'Textboxen suchen, 'evtl. Filter erweitern um nur bestimmte Boxen zu finden For Each tmpControl In .Designer.Controls If TypeName(tmpControl) = "TextBox" Then ReDim Preserve meTxTBox(i) Set meTxTBox(i) = tmpControl i = i + 1 End If Next MsgBox LBound(meTxTBox) & vbCr & UBound(meTxTBox) 'temp Name verpassen damit keine doppelt benannt werden For i = LBound(meTxTBox) To UBound(meTxTBox) meTxTBox(i).Name = "tmpName" & i Next i 'neue Namen vergeben For i = LBound(meTxTBox) To UBound(meTxTBox) ii = ii + 1 meTxTBox(i).Name = "TextBox" & ii Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textboxnummern ändern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread