|
Hallo schokobons,
vielen lieben Dank :) 1-2 Fragen hab ich leider :(
Ich füge den Code in den Combobox Sub ein.. richtig?
Nun möchte ich gerne, dass diese Combobox die Werte aus Tabelle2 ausliest. ( A2:A37)
Geht das dann so?
Dim R1, R2, Rng As Range
For Each Zelle In Sheets ("Tabelle2") Range("A2:A37")
Cmbx.AddItem Zelle.Value
Zellennr = Zelle.Row
Set R1 = Cells(Zellennr, 2)
Set R2 = Cells(Zellennr, 3)
Set Rng = Union(R1, R2) 'Spalten angeben
For Each Zelle2 In Rng
If (Zelle2.Value = "x") Then 'ueberpruefen, ob auf der gleichen Zeilen 'x' vorhanden sind
'kopiere die Überschrift in die Tabelle 1
End If
Next
Next
Wenn ich nun die Spalten angebe änder ich das ganze doch nun weiter wie folgt:
Dim R1, R2, Rng As Range
For Each Zelle In Sheets ("Tabelle2") Range("A2:A37")
Cmbx.AddItem Zelle.Value
Zellennr = Zelle.Row
Set R1 = Cells(C2, 2)
Set R2 = Cells(P2, 3)
Set Rng = Union(R1, R2) 'Spalten angeben
For Each Zelle2 In Rng
If (Zelle2.Value = "x") Then 'ueberpruefen, ob auf der gleichen Zeilen 'x' vorhanden sind
'kopiere die Überschrift in die Tabelle 1
End If
Next
Next
Also "Zellennr" erstzen.. hoffe ich hab da keinen Denkfehler
LG
Claudia
|