Ausführung ohne Activate
02.07.2019 10:55:25
Peter
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