Prüfung
02.02.2004 14:43:25
Monika
ich habe folgendes Problem. ich möchte mit einem Makro bestimmte Zellen überprüfen. wenn in der jeweiligen zelle ein fehler ist, soll eine msg box mit der fehlermeldung wie unten kommen. ich habe hier einen ausschnitt von dem code.
If ThisWorkbook.Sheets("DEZ").Range("G115") <> 0 And _
ThisWorkbook.Sheets("DEZ").Range("A115") = 0 And _
ThisWorkbook.Sheets("DEZ").Range("C115") = 0 _
Then _
a = MsgBox("Es wurde in" & vbCrLf & _
" dem Blatt DEZ in Zeile 115" & vbCrLf & _
"vergessen die Versicherungsart auszuwählen!" & vbCrLf & _
"Dieses muss jetzt nachgeholt werden, da jeder fehlende" & vbCrLf & _
"Wert die Berechnungen der Pivot Tabellen verfälscht.", _
0 + 48, "!!WICHTIG!! Liebe(r) " & Application.UserName)
folgendes:
dieser code muss ja jetzt für jede zeile erstellt werden. geht das auch anders? einen code, der automatisch vorgegebene Zellen überprüft und die jeweilige zeile in die msg box schreibt?
Danke für Eure Hilfe!
Monika