Hallo ihr Excelspezialisten,
beim Öffnen der UF wird ein bestimmtes Datenblatt ausgewählt. Über eine ComboBox wird eine Auswahl der Datenblätter durchgeführt um die ListBox1 zu füllen.
Nun habe ich folgenden Code:
<pre>Private Sub CommandButton20_Click()
'Anfang ListBox2 fuellen
Dim wsHS As Worksheet
Dim ADatum As Date, EDatum As Date
Dim R1 As Long, R2 As Long
Set wsHS = Worksheets("Hilfstabelle_SchulKalenderjahr")
wsHS.Activate
' ADatum = TextBox2
' EDatum = TextBox3
ADatum = TextBox4
EDatum = TextBox5
ListBox2.Clear
' With Worksheets("Hilfstabelle_SchulKalenderjahr")
With wsHS
R1 = Application.Match(CLng(ADatum), .Columns(11), 1)
R2 = Application.Match(CLng(EDatum), .Columns(12), 1)
ListBox2.ColumnCount = 2
ListBox2.List = Range(Cells(R1, 11), Cells(R2, 12)).Value
End With
'Ende ListBox2 fuellen
End Sub</pre>
Wie kann ich es erreichen, dass die ListBox2 gefüllt wird mit Daten ohne activate?
Besten Dank für eure Hilfe.
Gruss
Peter