Wie leeren Rangebereich abfragen?
Holger
mithilfe von Rudi habe ich einen Rangebereich definiert, Kriterium ist ob eine Zelle leer ist.
Nun muss ich aber abfragen, ob es überhaupt solche gibt.
Also habe ich untenstehendes If eingebaubt. Das ist aber totaler Quatsch, denn da kommt er
immer rein, auch wenn ich mit debug.print fststelle, dass der Bereich nicht leer ist.
WIe kann ich prüfen, ob der Rangebereich überhaupt was enthält?
Sub Range
On Error Resume Next ' Falls leer, damit keine Meldung kommt
Set rngContracts = wsContracts.Range("B31:B" & lngLastRowContracts).Offset(0, 16). _
SpecialCells(xlCellTypeBlanks).Offset(0, -16)
If rngContracts = "" Then
MsgBox "Keine neuen Contracts vorhanden!" & Chr(10) & _
"Stellen Sie bitte sicher, dass die Spalte CONTRACT STATE" & Chr(10) & _
"für die neuen Contracts leer ist", vbCritical
End
End If
End Sub
Anzeige