Hallo zusammen,
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