um die Liste einer ComboBox mit Daten zu füllen, habe ich folgenden Skript geschrieben: ...
...
Sheets("Dst").Select
ActiveSheet.Range("AK3").Select
Do Until ActiveCell = ""
UserForm2.ComboBox2.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Sheets("pers.D").Select
UserForm2.Show
...
...
Mir gefällt allerdings das Hin und Herschalten zwischen den Arbeitsblättern nicht. Hat jemand eine bessere Idee, um dies zu vermeiden.
Vielen Dank im Voraus.
Wolfgang
aus dem Erzgebirge