MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Moderator: ModerationP

MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon FloMoh » 30. Nov 2020, 13:40

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
FloMoh
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 12. Nov 2020, 11:36

Re: MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon shift-del » 30. Nov 2020, 14:11

Moin

Ich bin nicht der VBA-Experte aber warum verwendest du denn das Worksheet_Change-Event und nicht das Workbook_Open-Event?
Wir sehen uns!
... shift-del
Eine Mustertabelle hilft beim Helfen.
Excel Super-Funktionen: VERWEIS(), INDEX(), WAHL()
Benutzeravatar
shift-del
Moderator
 
Beiträge: 21384
Registriert: 25. Jan 2009, 22:54
Wohnort: Ehemaliges Fabrikgelände

Re: MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon FloMoh » 30. Nov 2020, 14:48

shift-del hat geschrieben: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?
FloMoh
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 12. Nov 2020, 11:36

Re: MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon HKindler » 30. Nov 2020, 15:09

Hi,

wie wäre es mit ausprobieren? :wink:

Allerdings sollte du beim Range noch das Sheet mt angeben...
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5351
Registriert: 04. Jul 2013, 09:02

Re: MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon FloMoh » 30. Nov 2020, 17:06

bin die ganze Zeit dran :)
Leider ohne Erfolg.
FloMoh
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 12. Nov 2020, 11:36

Re: MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon HKindler » 30. Nov 2020, 17:34

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.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5351
Registriert: 04. Jul 2013, 09:02

Re: MsgBox beim Öffnen, wenn in Zelle bestimmter Wert

Beitragvon FloMoh » 02. Dez 2020, 07:28

Dank dir.
Hab den Fehler gemacht, dass ich die falsche Verlinkung hatte.
FloMoh
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15
Registriert: 12. Nov 2020, 11:36


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 19 Gäste