Office: (Office 365) Dynamische Combobox mit zwei Bedingungen

Hallo ich bräuchte einen vba Code welcher eine dynamische Combobox befüllt. Zudem soll die Combobox alle schon eingetragenen Daten in einer Spalte beim Dropdown ausschiessen damit keine Doppelten Einträge getätigt werden. Dies Daten aus der Combobox werden auch in eine Tabelle eingetragen welche"EigThemen" heisst und hier ist es die erste Spalte ab der zweiten Zeile da Überschriften.
Bisher habe ich mir diese gebaut:

Private Sub UserForm_Initialize() 'Ausgehende Combobox
Dim lngRechtesterEintrag As Long
Dim i As Integer
lngRechtesterEintrag = Sheets("Themen").Cells(1, Columns.Count).End(xlToLeft).Column
With Me.ComboBoxHauptprojekt
For i = 1 To lngRechtesterEintrag
Eintrag = Sheets("Themen").Cells(1, i).Value
.AddItem CStr(Eintrag)
Next
End With
lngRechtesterEintrag = Sheets("Uhrzeiten").Cells(1, Columns.Count).End(xlToLeft).Column
With Me.ComboBoxWochentag
For i = 2 To lngRechtesterEintrag
Eintrag = Sheets("Uhrzeiten").Cells(1, i).Value
.AddItem CStr(Eintrag)
Next
End With
Set sh = ThisWorkbook.Sheets("Dozenten")
Me.ComboBoxDozent.Clear
For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Me.ComboBoxDozent.AddItem sh.Range("A" & i).Value
Next i
Set sh = ThisWorkbook.Sheets("Arten")
Me.ComboBoxArt.Clear
For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Me.ComboBoxArt.AddItem sh.Range("A" & i).Value
Next i
Set sh = ThisWorkbook.Sheets("Uhrzeiten")
Me.ComboBoxUhrzeit.Clear
For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Me.ComboBoxUhrzeit.AddItem sh.Range("A" & i).Value
Next i
End Sub

Private Sub ComboBoxHauptprojekt_Change() 'Empfangende Combobox
Dim lngRechtesterEintrag1 As Long
ComboBoxNebenprojekt.Clear
lngRechtesterEintrag = Sheets("Themen").Cells(1, Columns.Count).End(xlToLeft).Column
If ComboBoxHauptprojekt.ListIndex = -1 Then Exit Sub
For i = 1 To lngRechtesterEintrag
Eintrag = Sheets("Themen").Cells(1, i).Value
If ComboBoxHauptprojekt = Eintrag Then
ZeileMax = Sheets("Themen").Cells(Rows.Count, i).End(xlUp).Row
For n = 2 To ZeileMax
nebenprojekt = Sheets("Themen").Cells(n, i)
ComboBoxNebenprojekt.AddItem CStr(nebenprojekt)
Next
End If
Next
End Sub

 

ich konnte Deinen Code nicht testen, was wohl daran liegt das ich nicht auf freme Rechner schaue.
Was ich nicht sehe ist die Überprüfung ob schon vorhanden. Countif()

 

Der Code welcher hier steht habe ich selber zusammen gebaut mit hilfe von YouTube videos und viel Versuchen und Fehler beheben. Der funktioniert soweit.
Zum Ablauf es werden aus der Ausgebenden Cobobox Werte welche in einer Tabelle stehen ausgewählt. Auf der Grundlage dieser Werte wird die ausgebende Combobox aus einer Spalte einer Tabelle gefüllt welche die Überschrift der Auswahl der vorherigen Combobox enthält. soweit so gut. Jetzt werden die ausgewählen Werte der ausgebenden Combobox in eine Tabelle geschrieben.
Ich möchte jetzt als zusätlichen Filter die Werte der ausgehenden Combobox und die Werte der in die Tabelle geschriebenen Werte zusätzlich reduzieren damit eine doppelt Eintragung nicht möglich ist.
Gruß icjc99

 

Gut rmein Beitrag wurde nicht komplett gelesen.
Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Ok danke, für deine Bemühungen.

 

Hallo,

ich setze deinen Code mal in den Code-Tag

Code:

Private Sub UserForm_Initialize() 'Ausgehende Combobox
    Dim lngRechtesterEintrag As Long, sh As Worksheet
    Dim i As Integer, Eintrag$
    lngRechtesterEintrag = Sheets("Themen").Cells(1, Columns.Count).End(xlToLeft).Column
    With Me.ComboBoxHauptprojekt
        For i = 1 To lngRechtesterEintrag
            Eintrag = Sheets("Themen").Cells(1, i).Value
            .AddItem CStr(Eintrag)
        Next
    End With
    lngRechtesterEintrag = Sheets("Uhrzeiten").Cells(1, Columns.Count).End(xlToLeft).Column
    With Me.ComboBoxWochentag
        For i = 2 To lngRechtesterEintrag
            Eintrag = Sheets("Uhrzeiten").Cells(1, i).Value
            .AddItem CStr(Eintrag)
        Next
    End With
    Set sh = ThisWorkbook.Sheets("Dozenten")
    Me.ComboBoxDozent.Clear
    For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
        Me.ComboBoxDozent.AddItem sh.Range("A" & i).Value
    Next i
    Set sh = ThisWorkbook.Sheets("Arten")
    Me.ComboBoxArt.Clear
    For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
        Me.ComboBoxArt.AddItem sh.Range("A" & i).Value
    Next i
    Set sh = ThisWorkbook.Sheets("Uhrzeiten")
    Me.ComboBoxUhrzeit.Clear
    For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
        Me.ComboBoxUhrzeit.AddItem sh.Range("A" & i).Value
    Next i
End Sub

Private Sub ComboBoxHauptprojekt_Change() 'Empfangende Combobox
    Dim lngRechtesterEintrag1 As Long
    ComboBoxNebenprojekt.Clear
    lngRechtesterEintrag = Sheets("Themen").Cells(1, Columns.Count).End(xlToLeft).Column
    If ComboBoxHauptprojekt.ListIndex = -1 Then Exit Sub
    For i = 1 To lngRechtesterEintrag
        Eintrag = Sheets("Themen").Cells(1, i).Value
        If ComboBoxHauptprojekt = Eintrag Then
            ZeileMax = Sheets("Themen").Cells(Rows.Count, i).End(xlUp).Row
            For n = 2 To ZeileMax
                nebenprojekt = Sheets("Themen").Cells(n, i)
                ComboBoxNebenprojekt.AddItem CStr(nebenprojekt)
            Next
        End If
    Next
End Sub

Damit ist dies für jeden besser lesbar.
Schreibe dann in die 1.Zeile: Option Explicit.
Da protestiert dann der Compiler gegen sämtliche nicht deklarierte Variablen.
Dann braucht es die Zusammenhänge für das Füllen der abhängigen Comboboxen.
Deshalb lade anonymisiert mit verwertbaren Datensätzen (wo sich die Zusammenhänge für außenstehende nachvollziehbar abbilden) eine entsprechend aufbereitete Demodatei hoch. Dann ist es einfach und schnell möglich dir zu helfen und einen entsprechenten effizienten Lösungsweg anzubieten.

Gruß Uwe