Code kürzen
RainerK
habe in Erinnerung, dass man nachfolgenden Code auch etwas kürzen kann.
Allerdings finde ich den passenden Code nichtmehr.
Private Sub UserForm_Initialize()
Auswahl_neu
For Each wks In Worksheets
If wks.Name ActiveSheet.Name And wks.Name "Vorlage Produktblatt" And wks.Name " _
Daten" And wks.Name "Auswahl" Then ComboBox1.AddItem wks.Name
Next
End Sub
Ist jetzt vermutlich zwar noch nicht so relevant, wenn ich jedoch weitere Tabellenblätter einbau wäre es vermutlich mit einer Aufzählung besser.
Gruß Rainer
Anzeige