wenn ich ColumHeads auf true stelle, dann habe ich die Überschriften der Spalten. Aber das steht nur Spalte 1, Spalte2 usw. Es sollen aber die Überschriften (Zeile1) vom sheet stehen.
Wie nur?
Viele Grüße aus Hamburg
Ray
Private Sub UserForm_Initialize()
Dim rngBereich As Range
'Datenbereich ab Zeile 2 in Zeile 1 ist Überschrift
With Tabelle1
Set rngBereich = .Range("A2", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 6)
End With
With ComboBox1
.ColumnHeads = True
.ColumnCount = 6
.RowSource = rngBereich.Address(External:=True)
End With
End Sub