MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

[FloMoh]

Hallo zusammen,

welchen Befehl brauche ich, damit Excel mir nach dem Öffnen der Datei eine MsgBox zeigt, aber nur dann, wenn in Zelle H41 eine Zahl >0 steht?
Kann mir da wer helfen?

Aktuell habe ich diesen Code, der allerdings beim Eintrag in die Zelle die MsgBox ausgibt. Nicht wie gewollt erst nach dem erneuten öffnen der Datei.

Code: Alles auswählen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("H41") > 0 Then
MsgBox ("Achtung! Es befinden sich Daten im Bereich X")
Exit Sub
End If
End Sub

Danke.
Gruß
Flo

[shift-del]

Moin

Ich bin nicht der VBA-Experte aber warum verwendest du denn das Worksheet_Change-Event und nicht das Workbook_Open-Event?

[FloMoh]

Moin

Ich bin nicht der VBA-Experte aber warum verwendest du denn das Worksheet_Change-Event und nicht das Workbook_Open-Event?

reicht es, wenn ich einfach das Open Event verwende?

[HKindler]

Hi,

wie wäre es mit ausprobieren?

Allerdings sollte du beim Range noch das Sheet mt angeben...

[FloMoh]

bin die ganze Zeit dran
Leider ohne Erfolg.

[HKindler]

Hi,

Code: Alles auswählen

Private Sub Workbook_Open()
If Worksheets("DeinBlatt").Range("H41") > 0 Then
    MsgBox ("Achtung! Es befinden sich Daten im Bereich X")
End If
End Sub

War das soo schwer?
Übrigens: Dein Ursprünglich Exit Sub ist total überflüssig.

[FloMoh]

Dank dir.
Hab den Fehler gemacht, dass ich die falsche Verlinkung hatte.