ich versuche verkrampft, in eine Listbox (aendloesch_auswahl) Überschriften rein zu bekommen. Diese wird vorher durch ein 2-dim. Array aufgefüllt.
.ColumnHeads ist True!
Der VB-Editor meint felsenfest, dass das Objekt (die Listbox) diese Eigenschaft (.RowSource) nicht unterstützt. Aber in diversen Beiträgen steht diese Form. Selbts in der MS VB Hilfe ist es so dargestellt. Liegt der Fehler auf meiner Seite?
Die Listbox ist ein Steuerelement im Tabellenblatt 3 (hier befindet sich auch das Makro), die Daten befinden sich im Tabellenblatt 5 (1. Zeile mit Überschriften, der Rest sind Daten).
Gibt es eine Möglichkeit, dies zu ändern? Evtl. auch mit "Handarbeit"?
Hier der Code (falls es hilft):
Public Sub Initialisiere_Auswahl()
Dim tabelle5_zeile As Integer
Dim tabelle5_zeilenanzahl As Integer
Dim liste_deals() As String
Dim tabelle5_spalte As Integer
aendloesch_auswahl.Clear
'Wieviele Deals sind vorhanden
tabelle5_zeilenanzahl = 2
Do While Tabelle5.Cells(tabelle5_zeilenanzahl, 1) <> ""
tabelle5_zeilenanzahl = tabelle5_zeilenanzahl + 1
Loop
'Dynamische Speicherzuweisung des Arrays
ReDim liste_deals(0 To (tabelle5_zeilenanzahl - 3), 0 To 11)
For tabelle5_zeile = 2 To (tabelle5_zeilenanzahl - 1)
For tabelle5_spalte = 0 To 11
liste_deals((tabelle5_zeile - 2), tabelle5_spalte) = _
Tabelle5.Cells(tabelle5_zeile, (tabelle5_spalte + 1))
Next tabelle5_spalte
Next tabelle5_zeile
aendloesch_auswahl.List() = liste_deals
aendloesch_auswahl.RowSource = "Tabelle5!A1:L" & (tabelle5_zeilenanzahl - 1)
End Sub