Tabellen-Blätter in ComboBox einlesen
VolkerM
Mit folgendem Code lese ich sämtliche Tabellenblätter in eine UserForm ComboBox ein. Dabei wird Tabelle 1 ausgeschlossen. Nun möchte ich aber zu Tabelle 1 noch eine weitere Tabelle ausschließen.
With cboWks
Dim wks As Worksheet
For Each wks In Worksheets
If Not wks.Name = "Tabelle1" Then
cboWks.AddItem wks.Name
End If
Next wks
End With
Private Sub cboWks_Change()
Worksheets(cboWks.Value).Select
Unload Me
End Sub
Hat jemand eine Idee. Besten Dank im Voraus.
Gruß Volker