Code kürzen
Peter
wer kann helfen.
Ich möchte diesen Code irgendwie kürzen.
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox2
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox3
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox4
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox5
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
With ComboBox6
.AddItem "Stck"
.AddItem "m"
.AddItem "Paar"
.AddItem "Pack"
.AddItem "Satz"
.AddItem "Ltr."
.AddItem "kg"
.AddItem "Ro"
.AddItem "m²"
.AddItem "m³"
End With
End Sub
Danke und Gruss
Peter