Hallo nach 1000 von jahren muss ich eine winzig kleine VBA anwendung schreiben,
bin allerdings garnicht mehr fit da drin. Dazu kommt das ich generell seit ewige zeit nicht mehr selbstständig etwas geschrieben habe.
Nun zu meinem Programm
ich habe eine Spalte da stehen daten drin wie bspw
äpfel
kirschen
tomaten
äpfel
tomaten
birnen
in meinem programm wird die Spalte solange durchlaufen bis keine werte mehr eingetragen sind, das klappt auch wunderbar,
nun möchte ich diese daten in eine Combobox übertragen allerdings keine doppelten einträge.
hier dazu mal mein aktueller Quellcode
bin allerdings garnicht mehr fit da drin. Dazu kommt das ich generell seit ewige zeit nicht mehr selbstständig etwas geschrieben habe.
Nun zu meinem Programm
ich habe eine Spalte da stehen daten drin wie bspw
äpfel
kirschen
tomaten
äpfel
tomaten
birnen
in meinem programm wird die Spalte solange durchlaufen bis keine werte mehr eingetragen sind, das klappt auch wunderbar,
nun möchte ich diese daten in eine Combobox übertragen allerdings keine doppelten einträge.
hier dazu mal mein aktueller Quellcode
Code:
Dim x() As String
inhalt2 = Worksheets("St_Template").ComboBox2.Value
Worksheets("St_Template").ComboBox2.Clear
zeile = 2
While Worksheets("Stamm").Cells(zeile, 122) <> ""
zeile = zeile + 1
Wend
ReDim x(zeile) As String
y = 2
While Worksheets("Stamm").Cells(y, 122) <> ""
eintrag2 = Worksheets("Stamm").Cells(y, 122)
For j = 1 To zeile
x(j) = Worksheets("Stamm").Cells(y, 122)
If x(j) = eintrag2 Then
inCombo = x(j)
End If
If inCombo = "" Then
Else
Worksheets("St_Template").ComboBox2.AddItem inCombo
End If
Next j
y = y + 1
Wend