26.07.2017, 08:52
Hallo zusammen,
ich hoffe, ihr könnt mir weiterhelfen. Ich habe was VBA angeht nur ein sehr geringes Grundwissen und habe jetzt aber eine Exceltabelle vor mir, die mir beim Eintreten verschiedener Ereignisse jeweils ein unterschiedliches Pop-Up Fenster ausspucken soll.
Konkret geht es darum, dass, wenn in Zelle D41 die Summe von 19 überschritten wird ein Pop-Up erscheint und wenn in Zelle E41 die Summe 35 überschritten wird ein anderes Pop-Up erscheint und so weiter (siehe Code).
Wenn in beiden oder noch mehr Zellen die definierte Summe überschritten wird, sollen die jeweiligen Pop-Ups für die Zellen angezeigt werden.
Mithilfe verschiedener Tipps aus dem Internet habe ich mir den unten stehenden Code gebastelt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D41") > "19" Then
MsgBox "4 Nächte Novotel ausverkauft!"
End If
If Range("E41") > "35" Then
MsgBox "5 Nächte Novotel ausverkauft!"
End If
If Range("F41") > "5" Then
MsgBox "4 Nächte Hyatt Regency ausverkauft!"
End If
If Range("G41") > "8" Then
MsgBox "5 Nächte Hyatt Regency ausverkauft!"
End If
End Sub
Es funktioniert auch, bei allen Zellen nur nicht bei G41. Also wenn bei D41-F41 eine oder mehrere Summen überschritten werden, dann kommen die Meldungen für alle relevanten Zellen, wenn G41 überschritten wird kommen aber nur für die anderen betroffenen Zellen die Pop-Ups und nicht das für G41.
Kann mir jemand von euch sagen, woran das vielleicht liegen könnte?
Danke und Grüße
ich hoffe, ihr könnt mir weiterhelfen. Ich habe was VBA angeht nur ein sehr geringes Grundwissen und habe jetzt aber eine Exceltabelle vor mir, die mir beim Eintreten verschiedener Ereignisse jeweils ein unterschiedliches Pop-Up Fenster ausspucken soll.
Konkret geht es darum, dass, wenn in Zelle D41 die Summe von 19 überschritten wird ein Pop-Up erscheint und wenn in Zelle E41 die Summe 35 überschritten wird ein anderes Pop-Up erscheint und so weiter (siehe Code).
Wenn in beiden oder noch mehr Zellen die definierte Summe überschritten wird, sollen die jeweiligen Pop-Ups für die Zellen angezeigt werden.
Mithilfe verschiedener Tipps aus dem Internet habe ich mir den unten stehenden Code gebastelt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D41") > "19" Then
MsgBox "4 Nächte Novotel ausverkauft!"
End If
If Range("E41") > "35" Then
MsgBox "5 Nächte Novotel ausverkauft!"
End If
If Range("F41") > "5" Then
MsgBox "4 Nächte Hyatt Regency ausverkauft!"
End If
If Range("G41") > "8" Then
MsgBox "5 Nächte Hyatt Regency ausverkauft!"
End If
End Sub
Es funktioniert auch, bei allen Zellen nur nicht bei G41. Also wenn bei D41-F41 eine oder mehrere Summen überschritten werden, dann kommen die Meldungen für alle relevanten Zellen, wenn G41 überschritten wird kommen aber nur für die anderen betroffenen Zellen die Pop-Ups und nicht das für G41.
Kann mir jemand von euch sagen, woran das vielleicht liegen könnte?
Danke und Grüße