in der UserBox werden alle Tabellenblätter aufgelistet, nur wenn ich die UserForm öffne ist sie immer lehr, brauche so das der erste Wert gleich erscheint. Wie kann man das machen?
Gruß Thomas
Private Sub UserForm_Activate()
'---------------Liste in ComboBox1 leeren------------------------
For Zähler = 0 To ComboBox1.ListCount
If ComboBox1.ListCount >= 1 Then
'Wenn kein Element ausgewählt wurde, letztes Element der Liste wählen.
If ComboBox1.ListIndex = -1 Then
ComboBox1.ListIndex = ComboBox1.ListCount - 1
End If
ComboBox1.RemoveItem (ComboBox1.ListIndex)
End If
Next Zähler
'---------------Liste in ComboBox1 hinzufügen---------------------
Set ws = ActiveWorkbook.Worksheets
For Each a In ws
ComboBox1.AddItem a.Name
Next a
ComboBox1.Text = ws(1).Name
End Sub