listenfeld über button füllen
Einzel
Ich fülle eine Listbox über diesen Code.
Nun möchte ich aber das ( .RowSource = "=Kundenstamm!AJ21:AM70") dieser Teil erst über einen
Command Button ausgeführt wird. Hat jemand eine Idee?
Code:
Private Sub UserForm_Initialize()
lblDatum.Caption = Format(Date, "DDDD, DD.MM.YYYY")
'Variable deklarieren
Dim oLB As clsListBoxHeader
Dim aHeaders As Variant
'ListBox-Überschriften definieren
aHeaders = ThisWorkbook.Worksheets("Kundenstamm").Range("AJ20:Am20")
Set oLB = New clsListBoxHeader
With oLB
.Create Me.ListBox1, aHeaders
.BackColor = vbBlack 'Magenta 'RGB(255, 127, 255)
.ForeColor = vbWhite
.ColumnCount = 4
.RowSource = "=Kundenstamm!AJ21:AM70" 'Soll erst bei Button bestätigung ausgeführt _
werden.
End With
Set oLB = Nothing '(Header will remain intact)
End Sub
.RowSource = "=Kundenstamm!AJ21:AM70"
Hat jemand eine Idee?
Gruß
Stephan