ich möchte einen Bereich in einer Tabelle bestimmen (anf, bis fert) und diesen dann als Rowsource für eine Listbox (lsbBer) bestimmen.
Ich habe ein Beispiel aus der Recherche abgewandelt:
Dim strwks As String
Dim strsuch As String
Dim anf As Range
Dim fert As Range
strwks = ActiveSheet.Name
strsuch = comboMonat.Value
For Each c In Sheets(strwks).Range("I1:I900")
If c.Value = strsuch Then
Set anf = c.Offset(9, 5) 'Anfang Bereich
Set fert = c.Offset(22, 6) 'Ende Bereich
lsbBer.RowSource = Range((anf), (fert))
lsbBer.Visible = True
End If
Next
End Sub
Leider funktioniert es nicht. Kann mir jemand sagen, was ich falsch mache?
Der Bereich wird nicht erkannt.
Vielen Dank im voraus
Michael