Ich möchte unterschiedliche Bereiche definieren, mit folgender Syntax geht es aber nicht.
Dim suchbegriff, zeile2, bereich As Range
suchbegriff = Me.TextBox2
zeile2 = 0
Sheets("Bestand").Select
If Label31 = "x" Then
bereich = Range("bd3:bd5000")
ElseIf Label32 = "x" Then
bereich = Range("bj3:bj5000")
End If
With Worksheets("Bestand").bereich - hier kommt der Fehler
...
Gruß
otto