Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform mit Listbox


Betrifft: Userform mit Listbox von: Frank
Geschrieben am: 29.08.2019 20:56:45

Hallo VBA Gemeinde,

ich benötige mal eure Hilfe.
Ich habe eine Userform (Userform1) mit einer Listbox namens "Lst_Artikel".

Nun möchte ich gern über ein CommandButton die "Userform1" mit der
gefüllten Listbox "Lst_Artikel" aufrufen.

Der verwendete Datenbereich A2:D5 kommt aus der Tabelle "tbl_Artikel".

Irgendwie will es nicht funktionieren.
Die Userform1 mit der Listbox "Lst_Artikel" wird aufgerufen, aber OHNE Ihnhalt !

Was mache ich falsch?

Meine Codes lauten:

' Folgendes steht im Modul-1
Sub CommandButton()
UserForm1.Show
End Sub ' Folgendes steht im Modul-2

Private Sub UserForm1_Initialize()

Dim IngZeileMax As Long
Dim wksBlatt As Worksheet

Set wksBlatt = tbl_Artikel
IngZeileMax = wksBlatt.UsedRange.Rows.Count

With Me.Lst_Artikel
.ColumCount = 4
.ColumHeads = True
.ColumWidths = "50;120;100;40"
.RowSource = _
"=" & wksBlatt.Name & "!A2:D" & _
IngZeileMax
.MultiSelect = fmMultiSelectMulti
.BackColor = RGB(165, 165, 165)
.Font.Size = 12
.Font.Bold = True
.ListIndex = 0

End With
End Sub
Liebe Grüße
Frank

  

Betrifft: AW: Userform mit Listbox von: Werner
Geschrieben am: 29.08.2019 21:36:37

Hallo Frank,

das heißt Column und nicht Colum

Private Sub UserForm_Initialize()
Dim IngZeileMax As Long
Dim wksBlatt As Worksheet

Set wksBlatt = Worksheets("tbl_Artikel")
IngZeileMax = wksBlatt.UsedRange.Rows.Count

With Me.Lst_Artikel
    .ColumnCount = 4
    .ColumnHeads = True
    .ColumnWidths = "50;120;100;40"
    .RowSource = wksBlatt.Name & "!A2:D" & IngZeileMax
    .MultiSelect = fmMultiSelectMulti
    .BackColor = RGB(165, 165, 165)
    .Font.Size = 12
    .Font.Bold = True
    .ListIndex = 0
End With
End Sub
Gruß Werner


  

Betrifft: AW: Userform mit Listbox von: GerdL
Geschrieben am: 29.08.2019 21:37:35

Hallo Frank!

' Folgendes steht im Modul-2
Private Sub UserForm1_Initialize()


Diese Prozedur gehört in das Codefenster von UserForm1.
Genauer habe ich sie jetzt nicht durchgesehen.

Gruß Gerd


  

Betrifft: AW: Userform mit Listbox von: Frank
Geschrieben am: 29.08.2019 21:48:53

Hallo Werner,
Hallo GerdL,

ihr habt beide recht.
Es funzt nun.

Es ist genauso, wie ich es mir vorgestellt habe.
Euch beiden vielen lieben Dank und einen schönen Feierabend.

Gruß
Frank


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 29.08.2019 21:52:35




Beiträge aus dem Excel-Forum zum Thema "Userform mit Listbox"