Sheet durchsuchen und Liste erstellen
30.06.2015 09:12:49
Jenny
Ich hab ein Tool gebastelt in dem brav Werte ausgerechnet werden. Diese Werte werden in Zellen Eingetragen. Als nächstes überprüft mein Tool ob diese Werte mit den geforderten Werten der Richtlinie übereinstimmen, wenn nicht werden diese Zellen Rot eingefärbt (oder eben Grün).
Als nächstes will ich diese Sheet überprüfen lassen ob Richtlinie erfüllt oder nicht.
Dies hab ich auch geschafft und zwar so:
Sub Ergebnisse_PV()
Dim zelle As Range
For Each zelle In Sheets("Ergebnisse_PV").Range("A1:DL367")
If zelle.Interior.ColorIndex = 3 Then
MsgBox ("Die BDEW-Richtlinie wird nicht eingehalten! Die Grenzwerte der BDEW-Richtlinie _
werden nicht eingehalten! Prüfen Sie die Ergebnisse!")
Exit Sub
End If
Next
MsgBox ("Die BDEW-Richlinie wird eingehalten! Alle berechneten Ergebnisse liegen im Bereich _
der geforderten Grenzwerte der BDEW-Richtlinie! Die DEA [PV] kann in der Theorie geplant und ausgeführt werden.")
End Sub
Kann mir da jemand helfen?
Vielen Dank schon mal im Voraus!
Liebe Grüße,
Jenny