Hallo zusammen,

bekomme immer die Fehlermeldung 424 (Objekt erforderlich) weis nicht warum :/
Ziel ist es einen bereich auf Inhalt zu prüfen.

Sub Start()
 
dim Bereich as Range
 
Set Bereich = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 5)).Address <--- Hier kommt der Fehler. 
  
If Bereich Is Nothing Then
      'TU DIES'                                
Else
      'DU DAS'                                
End If

Besten Dank