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
Hallo,
wo hast du das Listenfeld denn eingefügt, in einem Tabellenblatt oder in einem UserForm?
Hallo Klaus-Dieter,
in einer Userform.
Hallo,
wenn ich mich nicht irre, gibt es diese Eigenschaft nur bei Listenfeldern, die sich auf einem Tabellenblatt befinden.
Hallo,
einen Versuch wert wäre vielleicht die Verwendung der RowSource-Eigenschaft.
Gruß Uwe
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
Hallo
das Stichwort heißt, wie bereits erwähnt, RowSource
MfG Tom
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
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
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