Ich suche dringend Hilfe
Kann mir jemand erklären, weshalb der Code nicht funktioniert ?
Der Code sollte folgendes machen:
Suche einen Wert der Höher ist als 0 in Spalte T::T, wenn vorhanden dann MsgBox "Bitte Berrechnungsspalten kontrollieren"
Wenn keinen Wert gefunden der Höher ist als Null Sprich Leere Zellen dann "Keine Berrechnungsfehler gefunden"
wenn der Code nach else Aktiv ist, kommt immer die Meldung "Keine Berrechnungsfehler gefunden" auch wenn in Spalte T:T der Wert höher als 0 ist
Der Wert in Spalte T:T wird durch die Formel (=ZÄHLENWENN) Falsch oder Wahr aus den Spalten K/L/M/N ermittelt
Gibt es eventuell auch eine Möglichkeit, die genauen Zellennamen (K1;M300;N380 etc.) (eventuell auch mehrere) in die MsgBox auszugeben?
Für Eure Hilfe danke ich mich herzlich im voraus
Gruss Marco
Sub FindeFalsch()
Dim c As Range
For Each c In Range("T:T")
If c.Value > 0 Then
MsgBox "Berrechnungsfehler gefunden !" & vbNewLine & "Bitte Berrechnungsspalten _
kontrollieren !"
Else
If c.Value