AW: ComboBox mit Vorauswahl
16.03.2009 11:33:17
Wolle
Hallo Hajo,
danke für die Hilfe. Habe das ganze jetzt so gelöst (nach Deinem Lösungsansatz):
Private Sub LoadData()
Dim meArea
With Tabelle1
meArea = .Range("A4", .Cells(.Rows.Count, 1).End(xlUp))
ComboBox1.List = meArea
If Range("D4") = "x" Then ComboBox1 = Range("A4")
If Range("D5") = "x" Then ComboBox1 = Range("A5")
If Range("D6") = "x" Then ComboBox1 = Range("A6")
End With
End Sub
Jetzt bekomme ich immer den Wert geschrieben, wo in der Spalte D ein x steht. Nun muss ich nur noch ein Makro schreiben, das wenn ich in Tabelle 2 ein durch Klick auf Befehlsschaltfläche das x in Tabelle 1 in Spalte d geschrieben wird. Ganz schön verwirrt.
Nochmal Danke.
PS. Tolles Forum hier.
Gruß Wolle