ich hoffe ich erhalte einen Tip.
Habe folgende Makros erstellt.
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Sheets("GF-Tab-Neu").Visible = True
Sheets("GF-TAB-Neu").Unprotect ("ww")
If CheckBox1 = True Then
Sheets("GF-Tab-Neu").Select
ComboBox1.Visible = True
ComboBox1.RowSource = ("I62:I77")
ComboBox1.ListIndex = 0
ComboBox2.Visible = True
Else
ComboBox1.Visible = False
ComboBox2.Visible = False
End If
ComboBox1.RowSource = ("I62:I77")
ComboBox1.ListIndex = 0
Application.ScreenUpdating = True
End Sub
'-----------------------------------------------
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheets("GF-Tab-Neu").Visible = True
Sheets("GF-Tab-Neu").Unprotect ("ww")
If ComboBox1.Value <> "" Then
ComboBox2.RowSource = ComboBox1.Value
ComboBox2.ListIndex = 0 'ersten Wert anzeigen
ComboBox2.ListRows = 40 'Länge der Zeilen
End If
ComboBox1.ListRows = 50
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Private Sub ComboBox2_Change()
Worksheets("Datenbank").Range("G1") = ComboBox2.Value
'schreibt in Mappe=Datenbank
End Sub
Wenn ich mit der ComboBox1 die Hersteller auswähle, die werden alle angezeigt,
soll dann in der ComboBox2 die einzelnen Typen stehen um dann den ausgwählten Typ in die Mapp zu schreiben.
Funktioniert leider nicht.
Beispiel für die Typen (kann ich selbst ergänzen):
Audi: Typen von "GF-Tab-Neu" D3:D40
BMW: Typen von "GF-Tab-Neu" E3:E40
u.s.w.
In der Hoffnung...
Gruß Walter