Eigenschaft ListFillRange Eigenschaft fehlt

[MdeJong]

Hallo,

im VBA Editor unter Eigenschaften Listbox soll es die Einstellung "ListFillRange" geben.

Leider gibt es diese Option bei mir nicht.

Muss ich diese in Excel irgendwo in den Exceloptionen einstellen (installieren)?

Gruß

MdeJong

[Klaus-Dieter]

Hallo,

wo hast du das Listenfeld denn eingefügt, in einem Tabellenblatt oder in einem UserForm?

[MdeJong]

Hallo Klaus-Dieter,

in einer Userform.

[Klaus-Dieter]

Hallo,

wenn ich mich nicht irre, gibt es diese Eigenschaft nur bei Listenfeldern, die sich auf einem Tabellenblatt befinden.

[Kuwer]

Hallo,

einen Versuch wert wäre vielleicht die Verwendung der RowSource-Eigenschaft.

Gruß Uwe

[MdeJong]

Hallo Kuwer,

mein Code für das anzeigen Daten aus Tabelle "Datenblatt" sieht so aus:

Code:

Private Sub UserForm_Initialize()
   Me.MultiPage1.Value = 0
   cboAnrede.RowSource = "Anrede"
   
       With Worksheets("Datenblatt")
   
       ListBox1.List() = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 14).Value
 
   End With
End Sub

 leider wird die Überschriften der jeweiligen Spalte nicht in der Userform angezeigt.

Ich habe bisher nur herausgefunden, das man das in dem ListFillRange Eigenschaften angeben soll....doch leider fehlt mir dieses in den Eigenschaften der Listbox in der Userform.

Hier habe ich jetzt von euch, das es einen Unterschied gibt, ob Listbox in der Userform oder außerhalb.

Wie müsste ich jetzt meinem Code sagen, das er das trotzdem machen soll?

Gruß
MdeJong

[Crazy Tom]

Hallo

das Stichwort heißt, wie bereits erwähnt, RowSource


MfG Tom

[MdeJong]

Hallo Crazy Tom :)


mit RowSource habe ich es schon einmal so ausprobiert:

Code:

Private Sub UserForm_Initialize()
   ListBox1.RowSource = "Datenblatt!A1:AE10000"
End Sub

leider geht das auch nicht.


ich habe jetzt die ganze Woche mir Lernvideos reingezogen....erstellen einer Userform.

Habe ein neues Projekt angefangen.....Adressverwaltung.....Mit Userform.....sogar Multipage.....das habe ich verstanden  :05:

Meine Tabelle soll in der Userform mit Multipage auf Page 3 angezeigt werden.
das klappt......doch leider schreibt  der Code die Spaltenüberschriften nicht in der Listbox in der angedeuteten oberen Spate rein.

Meine Adressverwaltung ist eigentlich schon fertig.

Gelernt habe ich jetzt schon einmal über die Videos und durch dein Hilfe vom letzten Projekt :)

Gruß
MdeJong

[Crazy Tom]

Hallo

bei RowSource fangen die Daten in Zeile 2 der Liste an
wenn in der ersten die Überschriften stehen

probier es mal auf diese Weise

Code:

Private Sub UserForm_Initialize()
   Me.MultiPage1.Value = 0
   cboAnrede.RowSource = "Anrede"
   Dim lngLetzte As Long
   With Worksheets("Datenblatt")
       lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
   End With
   With ListBox1
       .RowSource = "Datenblatt!A2:N" & lngLetzte
       .ColumnCount = 14
       .ColumnWidths = "75;25;50;75;25;50;75;25;50;75;25;50;75;25"
       .ColumnHeads = True
   End With
End Sub

MfG Tom

[MdeJong]

Hi Tom,

danke für dein Hilfe.

ich hab noch Besuch und kann es erst später ausprobieren.
Aber wie ich deine Codes kenne, geht es sicher ;)

Diese Zeile:
.ColumnHeads = True


ist das nicht auch in den Listbox Eigenschaften?
dort habe ich schon auf "True" gesetzt.

Gruß
MdeJong