ich bekomme den Fehler 13 (Typen Unverträglich).
Das hängt mit dem Range-Befehl zusammen. Hilfe. Wie prüfe ich das denn?
If Max = True And Range(Cells(2, 8).Value, Cells(2, 10).Value) "" Then
Cells(1,1) = "Bereich ist leer"
End If
If Max = True And IsEmpty(Range(.Cells(2, 8), .Cells(2, 10))) = True Then
.Cells(1,1) = "Bereich ist leer"
End If
VG AntonOption Explicit
Sub Bereich_leer()
Dim objRng As Range
Dim Max As Boolean
Max = True
Set objRng = ThisWorkbook.Worksheets("Tabelle1").Range(Cells(2, 8), Cells(2, 10))
If Max = True And WorksheetFunction.CountA(objRng) = 0 Then
Cells(1, 1) = "Bereich ist leer"
End If
End Sub
mfg, GraFri