Hallo fedjo,
vielen Dank für deine so schnelle Antwort.
Anbei mein geschriebener Code. Da ich leider, leider Anfänger bin wäre ich Dir sehr dankbar, wenn du deine Lösung in meinem Code einarbeiten könntest, da ich nicht weiß wie man es macht.
Vielen Dank schon mal im Voraus.
M.f.G. Micha
Private Sub Worksheet_Change(ByVal Target As Range)
Dim IntZeile As Integer
For IntZeile = 1 To 230
If Cells(IntZeile, 9) = "Fehler!" Then
MsgBox "Achtung! Einnahme/Ausgabe vertauscht!" & vbCrLf & "Erbitte Korrektur", vbInformation
Cells(IntZeile, 2).Interior.ColorIndex = 44
Cells(IntZeile, 3).Interior.ColorIndex = 45
Else
Cells(IntZeile, 2).Interior.ColorIndex = xlColorIndexNone
Cells(IntZeile, 3).Interior.ColorIndex = xlColorIndexNone
End If
If Cells(IntZeile, 10) = "Fehler!" Then
MsgBox "Achtung! Buchungssatz falsch." & vbCrLf & "Übersicht verwenden." & vbCrLf & "Erbitte Korrektur", vbInformation
Cells(IntZeile, 7).Interior.ColorIndex = 6
Else
Cells(IntZeile, 7).Interior.ColorIndex = xlColorIndexNone
End If
Next
End Sub