Private Sub CommandButton2_Click()
Dim iloop As Integer
For iloop = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iloop) = True Then
Sheets(ListBox1.List(iloop, 0)).Select
ListBox1.Selected(iloop) = False
End If
Next
Call Vergleichstabelle
End Sub
jetzt möchte ich die auswahl in dem Modul Vergleichstabelle weiterverarbeiten, aber es klappt nicht:
Sub Vergleichstabelle()
Dim rng As Range
Set rng = Worksheets(Listbox1.value).Range("A1").CurrentRegion
etc, etc
die Zeile Set rng ... erzeugt die fehlermeldung
kann jemand weiterhelfen?
grüße
wolfgang