Guten Morgen,
ich bins noch einmal :)
ich hab mir das Ganze mal mit einem Buch angeschaut:
Der Code geht die Zeilen A2:A37 durch - nun wann beginnt er damit? Habe versuchsweise ListfillRange eingebaut - so läd er zumindest in der (ActiveX Combobox) die Daten aus meinem Bereich. Trotz allem packt er sich aber nicht die Zeilen etc.
Private Sub ComboBox1_Click()
Dim R1, R2, Rng As Range
Dim AnfangSpalte, EndeSpalte As Integer
AnfangSpalte = 2 ' Spalte B
EndeSpalte = 16 ' Spalte P
For Each Zelle In Range("A2:A37") 'gehe jede Zelle im Bereich A2:A37 durch
Zellennr = Zelle.Row 'aktuelle Zeilennummer
For Spalte = AnfangSpalte To EndeSpalte 'in der aktuellen Zeile überprüfen, ob sich in den Spalten B - P der Wert x befindet
If (Cells(Zellennr, Spalte).Value = "X") Then
ThisWorkbook.Worksheets("Tabelle1").Cells(Zellennr, Spalte).Value = Cells(1, Spalte).Value 'kopiere von der aktuellen Spalte die Überschrift in die Tabelle 1
End If
Next
Next
End Sub
Des Weiteren habe ich mal bei Worksheets die Tabelle 1 eingetragen.
Das Ganze wirkt wie ein Code für einen Button?! Ich möchte gerne das die Combobox mit den Inhalten aus A2:A37 gefüllt wird und je nachdem was ich auswähle soll dann in D14+ die Überschriften stehen von den Punkten mit einem X aus der Zeile des gewählten Objekts in der Combobox.
:/
LG
Claudia
|