Couldn't you store the data for FunkDef_InterneWerte on a worksheet?
Also, this,
ComboBox1c.AddItem "SPS-Anschluss, allgemein"
ComboBox1c.AddItem "SPS-Anschluss, DE"
ComboBox1c.AddItem "SPS-Anschluss, DA"
ComboBox1c.AddItem "SPS-Anschluss, AE"
ComboBox1c.AddItem "SPS-Anschluss, AA"
ComboBox1c.AddItem "SPS-Anschluss, Multifunktion"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (Undefiniert)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (L)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (N)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (PE)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (+)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (M)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (-)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-KV (SH)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (Undefiniert)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (L)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (N)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (PE)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (+)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (M)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (-)"
ComboBox1c.AddItem "SPS-Anschluss, SPS-AV (SH)"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, allgemein"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, Quelle"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, Eingang"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, Ausgang"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, Switch-Anschluss"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, Ende"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, allgemein"
ComboBox1c.AddItem "Netzwerk- / Bus-Kabelanschluss, Durchgang"
ComboBox1c.AddItem "SPS-Anschluss, allgemein, variabel"
ComboBox1c.AddItem "SPS-Anschluss, variabel"
ComboBox1c.AddItem "SPS-Anschluss, variabel, DE"
ComboBox1c.AddItem "SPS-Anschluss, variabel, DA"
ComboBox1c.AddItem "SPS-Anschluss, variabel, AE"
ComboBox1c.AddItem "SPS-Anschluss, variabel, AA"
ComboBox1c.AddItem "SPS-Kasten"
could be cut down to 1 line of code if you used List and Array.
ComboBox1c.List = Array("SPS-Anschluss, allgemein" ,"SPS-Anschluss, DE", "SPS-Anschluss, DA", "SPS-Anschluss, AE", "SPS-Anschluss, AA", _
"SPS-Anschluss, Multifunktion", "SPS-Anschluss, SPS-KV (Undefiniert)", "SPS-Anschluss, SPS-KV (L)", _
"SPS-Anschluss, SPS-KV (N)", "SPS-Anschluss, SPS-KV (PE)", "SPS-Anschluss, SPS-KV (+)", "SPS-Anschluss, SPS-KV (M)", _
"SPS-Anschluss, SPS-KV (-)", "SPS-Anschluss, SPS-KV (SH)", "SPS-Anschluss, SPS-AV (Undefiniert)", "SPS-Anschluss, SPS-AV (L)", _
"SPS-Anschluss, SPS-AV (N)", "SPS-Anschluss, SPS-AV (PE)", "SPS-Anschluss, SPS-AV (+)", "SPS-Anschluss, SPS-AV (M)", _
"SPS-Anschluss, SPS-AV (-)", "SPS-Anschluss, SPS-AV (SH)", "Netzwerk- / Bus-Kabelanschluss, allgemein", _
"Netzwerk- / Bus-Kabelanschluss, Quelle", "Netzwerk- / Bus-Kabelanschluss, Eingang", "Netzwerk- / Bus-Kabelanschluss, Ausgang", _
"Netzwerk- / Bus-Kabelanschluss, Switch-Anschluss", "Netzwerk- / Bus-Kabelanschluss, Ende", _
"Netzwerk- / Bus-Kabelanschluss, allgemein", "Netzwerk- / Bus-Kabelanschluss, Durchgang", "SPS-Anschluss, allgemein, variabel", _
"SPS-Anschluss, variabel", "SPS-Anschluss, variabel, DE", "SPS-Anschluss, variabel, DA", "SPS-Anschluss, variabel, AE", _
"SPS-Anschluss, variabel, AA", "SPS-Kasten")
I know that might not look like one line but it kind of is.
Oh and most of your With statements aren't needed.
Bookmarks