ListBox, Rowsource mit Range füllen
24.04.2019 13:10:31
Michael
ich lese nun schon seit bestimmt 4 Jahren hier im Forum mit und konnte mir immer mit schon bestehenden Beiträgen weiterhelfen. Zu mir, ich nutze VBA hauptsächlich um verschiedene Excel Mappen zu automatisieren, meine VBA Kenntnisse dafür sind eher dürftig würde ich behaupten.
Jetzt ist der Punkt gekommen an dem ich mit Hilfe des Forums und Goo..e nicht mehr weiterkomme. _ Ich möchte mit einer Userform ein Excelfile nach Datumfiltern und die 4 links daneben stehenden Einträge in einer ListBox anzeigen. Dies funktioniert auch mit meinem bisherigen Code, allerdings möchte ich gerne in meinem Code auf Select und Activate verzichten. Könntet ihr mir hierbei helfen ich wäre euch sehr dankbar.
Private Sub UserForm_Activate()
DTPicker1.Value = Now
DTPicker2.Value = Now
Sheets(1).Select
End Sub
Private Sub CommandButton1_Click()
Dim Zelle As Range
Dim Speicher As Range
Dim SpeicherLeer As Range
ActiveSheet.Range("S:S").Select 'Hierdrauf Verzichten
Selection.AutoFilter Field:=1, Criteria1:=">=" & Format_
(DTPicker1, "DD.MM.YYYY"), Operator:=xlAnd _
, Criteria2:="'ohne dieses Activate zeigt mir die
'RowSource die Inhalte von TabellenBlatt1
'an
LtzZeileTabelle2 = Sheets(2).Cells(Rows.Count, 5).End(xlUp).Row
With Me.ListBox1
.ColumnCount = 5 'Anzahl Spalten
.ColumnWidths =("2cm;2cm;2cm;2cm;2cm") 'Spaltenbreiten
.ColumnHeads = True 'mit Überschrift
.RowSource = Range(Sheets(2).Cells(2, 1), Sheets(2).Cells_
(LtzZeileTabelle2, 5)).Address 'Datenbereich
End With
End If
End With
End Sub
Wenn das File benötigt wird lade ich dieses selbstverständlich auch hoch.
Anzeige