Hallo zusammen stehe gerade auf dem Shclauch und habe keine passende Lösung im Archiv gefunden.
Ich möchte einfach nur die sichtbaren Zellen einer Spalte prüfen; wenn null oder leer dann eine MsgBox
Das ist der aktuelle Stand. Funktioniert aber nur, wenn null oder leer drin ist. Wenn alle Zellen eine Zahl enthalten läuft es nicht?! Vielen Dank für die Hilfe.
Dim letzteZeile As Long
'letzte sichtbare Zeile
With ThisWorkbook.Sheets("Summen")
letzteZeile = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End With
For counter = 2 To letzteZeile
If ThisWorkbook.Sheets("Summen").Range("AK" & counter).Value = "" And ThisWorkbook.Sheets("Summen").Range("AK" & counter).SpecialCells(xlCellTypeVisible) = True Then
MsgBox "Die Bestellung enthält leere Zeilen! Diese müssen erst entfernt werden."
End
Else
If ThisWorkbook.Sheets("Summen").Range("AK" & counter).Value = "0" And ThisWorkbook.Sheets("Summen").Range("AK" & counter).SpecialCells(xlCellTypeVisible) = True Then
MsgBox "Die Bestellung enthält Null-Mengen! Diese müssen erst entfernt werden."
End
End If
End If
Next