Hallo zusammen,
ich habe folgendes Problem:
In einer UserForm habe ich eine ComboBox, die mit Namen gefüllt ist. Nach Anwendung des Programms (Speichern der generierten Daten) können andere Anwendungen erfolgen. Wenn ich die UserForm erneut öffne ,lädt sich die ComboBox erneut und füllt die Namen auf.
Dies hat zur Folge, dass die ComboBox mehrmals die gleichen Namen lädt.
Wie kann ich dies vermeiden?
Vielen Dank und Gruß
Özer
PS: Folgenden Code habe ich verwendet:
Private Sub CommandButton1_Click()
Dim Zeile, Spalte As Integer
Dim AlterWert As String
Zeile = 2
UserForm1.ListBox1.Clear
UserForm1.ScrollBar1.Value = 1
UserForm1.TBMinuten = "1"
UserForm1.ComboBox1.Value = "Bitte auswählen"
UserForm1.ComboBox1.AddItem "ABC"
UserForm1.ComboBox1.AddItem "DEF"
UserForm1.ComboBox1.AddItem "GHI"
UserForm1.ComboBox1.AddItem "JKL"
UserForm1.ComboBox1.AddItem "MNO"
Do Until Cells(Zeile, 1).Value = ""
If Cells(Zeile, 1).Value <> AlterWert Then UserForm1.ListBox1.AddItem Cells(Zeile, 1).Value
AlterWert = Cells(Zeile, 1).Value
Zeile = Zeile + 1
Loop
UserForm1.Show
End Sub |