Kombinieren zweier Comboboxen

[NanuNana]

Hallo Zusammen,

Ich habe ein kleines Problem mit dem ich nicht weiter komme und finde leider auch keinen so recht helfenden Beitrag dazu.
Ich habe eine Tabelle, in 2 Spalten davon sollten beim Anklicken einer Zelle davon je eine bestimmte (zuvor verborgene) Combobox passend zur Spalte  erscheinen.
Also für Spalte 18(Rubrik) --> Combobox1 und für Spalte 19(Rubrik2) --> Combobox2
Dabei geht es zuerst um eine Obergruppen Auswahl in der Ersten Combobox.1 welche die Auswahl eingrenzt.
Danach geht es in die nächste Spalte in der selben Zeile in der ich in die Combobox.2 klicke und das zuvor eingegrenzte Produkt auswählen kann.

Aber ich glaube ich mache einen Fehler beim Kombinieren beider verborgener Comboboxen im worksheet_Change Event in nebeneinander liegender Spalte.
1. Problem: Die erste Taucht bei klick in die Zelle auf. die 2. jedoch nicht.
2. Problem: Auftauchen tut sie nur nachdem ich die Zelle doppelt angeklickt habe und dann eine andere auswähle.
Ich hoffe ihr könnt mir helfen und muss leider auch dazu sagen dass mein VBA Wissen auch eher beschränkt ist.
LG

Code:

Private Sub worksheet_Change(ByVal Target As Excel.Range)

    ComboBox1.Visible = False
    ComboBox1.LinkedCell = ""
    ComboBox2.Visible = False
    ComboBox2.LinkedCell = ""

    If Cells(18, Target.Column) = "Rubrik" Then
        If Target.Row > 18 Then
            If Target.Cells.Count = 1 Then
                With ComboBox1
                    .Top = Target.Top
                    .Left = Target.Left
                    .Width = Target.Width + 10
                    .LinkedCell = Target.Address
                    .Visible = True
                End With
               
            End If
        End If
    End If
   
                   
    If Cells(19, Target.Column) = "Rubrik2" Then
        If Target.Row > 19 Then
            If Target.Cells.Count = 1 Then
                With ComboBox2
                    .Top = Target.Top
                    .Left = Target.Left
                    .Width = Target.Width + 10
                    .LinkedCell = Target.Address
                    .Visible = True
                End With
               
            End If
        End If
    End If
    End Sub
   

[schauan]

Hallöchen,

Deine Frage ist auf "Erledigt" gesetzt - ist sie das oder war das ein Versehen?

[NanuNana]

Hey schauan,

ja das ist eigentlich so richtig da sich die Fragestellung doch geändert hat.
siehe wie folgt:
https://www.clever-excel-forum.de/thread-20544.html

Ich konnte hier nur leider den Beitrag irgendwie nicht bearbeiten..

LG

[schauan]

Hallöchen,

bearbeiten kannst Du Deine Frage innerhalb von 60 Minuten. Es ist aber auch nicht schlimm, etwaige Änderungen oder Ergänzungen als Folgebeitrag später zu posten.
Es wäre vorteilhaft, wenn Du noch keine Antwort hast zusätzlich zum "Erledigt" eine zu schreiben - da weiß man gleich, dass das nicht versehentlich war. Wäre nämlich nicht der erste Fall

Oder Du schreibst uns eine kurze Meldung mit der Bitte um Schließung