Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Meldung beim Start von Excel
#1
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
Antwortento top
#2
Smile 
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
Gruß der AlteDresdner (Win10, Off2010)
Antwortento top
#3
(07.07.2020, 19:45)Hi,ich gucke mal nicht auf den eigentlichen Inhalt.Aber End geht gar nicht.bitte nie benutzen.Das ist, als ob du ein Auto gegen eine Wand fährst um zu bremsen.Ganz böse.Hier könnte man ein Exit Sub benutzen auch ein Exit For  aber niemals ein End. Das ist krank.AlterDresdner schrieb: 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
Gruß Jeanie
Antwortento top
#4
Danke. Läuft soweit
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste