Spaltenköpfe ohne RowSource?
16.12.2013 10:10:40
Ralf
bekanntlich kann man bei ComboBoxen .RowSource und .AddItem nicht gemeinsam nutzen.
Gibt es eine Möglichkeit den Spaltenkopf zu bekommen, obwohl ich .AddItem nutze?
Danke für Hinweise!
Gruß
Ralf
(gekürzter Code, die Einstellungen der Combobox geschehen in einer anderen Sub)
With FPsht
n = 0
combxBA.Clear
combxBA.RowSource = Union(.Cells(1, 2), .Cells(1, 13), .Cells(1, 1), .Cells(1, 14)).Address
ERP = DBsht.Cells(4, 2)
For Each Zelle In .Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count, 2))
If CCur(Zelle.Offset(, 11)) Like ERP & "*" Then
combxBA.AddItem Zelle '''Meldung Zugriff verweigert
combxBA.List(n, 1) = Zelle.Offset(, 11).Value
combxBA.List(n, 2) = Zelle.Offset(, -1).Value
combxBA.List(n, 3) = Zelle.Offset(, 12).Value
n = n + 1
End If
Next
End With