08.05.2019, 18:49
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
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
