Meldung beim Start von Excel

[Timmihase]

Hallo liebes Forum,

mal eine ganz komische Frage.

Ist es möglich in Excel beim öffnen einer Datei eine Meldung zu bekommen wenn im Bereich von Tabelle1 in den Zellen B4:O43 eine Zelle rot ( vbRed) markiert ist man eine Meldung bekommt wie z.b. :,, Achtung ein Wert wurde geändert,,

Hat folgenden Hintergrund : In einer Datei mit der ich Arbeite stehen Sollwerte. Diese können von jedem Benutzer geändert werden. Das soll so sein. Ändert ein Kollege einen Sollwert wird dieser automatisch rot formatiert.

Nun hab ich aber nicht immer Lust das eine Tabellenblatt aufzumachen und zu schauen ob in Tabelle1 ein Wert makriert ist. Daher wäre eine solche Meldung nett

Vielen Dank für die Hilfe

[AlterDresdner]

Hallo,
wieso komische Frage? Bei Excel ist kein Ding unmöglich...[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
Kopiere das Sub in den Codeteil Diese Arbeitsmappe.

Private Sub Workbook_Open()
Dim zell
  For Each zell In Sheets("Tabelle1").Range("B4:O43")
    If zell.Interior.Color = vbRed Then
      MsgBox "Achtung, Wert geändert!", vbInformation, "Wert geändert"
      Sheets("Tabelle1").Activate
      End
    End If
  Next
End Sub

[Jeanie]

Hallo,
wieso komische Frage? Bei Excel ist kein Ding unmöglich...[img]Dateiupload bitte im Forum - wie's geht: http://www.clever-excel-forum.de/thread-326.html .]
Kopiere das Sub in den Codeteil Diese Arbeitsmappe.

Private Sub Workbook_Open()
Dim zell
  For Each zell In Sheets("Tabelle1").Range("B4:O43")
    If zell.Interior.Color = vbRed Then
      MsgBox "Achtung, Wert geändert!", vbInformation, "Wert geändert"
      Sheets("Tabelle1").Activate
      End
    End If
  Next
End Sub

[Timmihase]

Danke. Läuft soweit