Wie erreiche ich, dass eine VBA-MsgBox nur einmal aufpoppt?

Ich habe schon mehrere Beiträge gelesen, bekomme es aber nicht hin. Kann mir einer diesen Befehl korrigieren. Die Msg Box soll nur einmal aufpoppen, wenn dieser bestimmte Wert auftaucht. Der Befehl funktioniert, aber poppt bei jeder weiteren Zelleingabe auf.

Private Sub Worksheet_Change(ByVal Target As Range)
 x = Range("D15").Value
 If x = "LK" Then MsgBox "Dieses Produkt benötigt eine  Lebensmittelkühlung!", vbInformation, "Hinweis" 
End Sub

3 Antworten

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

12.10.2015, 11:46

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D15")) Is Nothing Then
x = Range("D15").Value
If x = "LK" Then MsgBox "Dieses Produkt benötigt eine Lebensmittelkühlung!", vbInformation, "Hinweis"
End If
End Sub

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

Suboptimierer

12.10.2015, 11:48

Falls das Ereignis sich nur auf D15 bezieht, reicht:

If Target = Range("D15") Then...

Statt x = Range("D15").Value kann einfacher in Folge dessen Target.Value verwendet werden.

Oubyi, UserMod Light

12.10.2015, 11:50

@Suboptimierer

Stimmt, da hat die alte Routine mal wieder zugeschlagen.

oomee

12.10.2015, 12:12

Der Befehlt funktioniert aber nur einmalig dann poppt die Msg Box auch bei erneuter Eingabe nicht mehr auf. Ich hätte die Msg Box jedes mal wenn dieser bestimmte Wert drin ist!?

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

12.10.2015, 11:44

Das Ereignis wird bei jeder Änderung in jeder Zelle des Tabellenblatts ausgelöst.

Entweder (je nach Ziel) solltest du x = Target.Value setzen oder den Bereich festlegen, auf den das Ereignis sich beziehen soll:

If Intersect(Target, Range("D1:D15")) is not Nothing then...

Suboptimierer

12.10.2015, 11:51

PS: Für deinen Fall würde eine einfache Gültigkeitsprüfung genügen:

Daten → Datenüberprüfung → Datenüberprüfung...

Oubyi, UserMod Light

12.10.2015, 12:04

@Suboptimierer

Super Idee!
Dort dann Benutzerdefiniert die Formel:
=D15<>"LK"
und bei Fehlermeldung/ Typ --> "Information" aus wählen und den Warn-Text eingeben.

Suboptimierer

12.10.2015, 12:23

@Oubyi, UserMod Light

Der Hinweis muss bei Gleichheit erscheinen.

Danke für das Lob.

Suboptimierer

12.10.2015, 12:27

@Suboptimierer

Habe es getestet: Es verwirrt mich, aber du hast recht. Dort muss <> in die Formel.

oomee

Beitragsersteller

12.10.2015, 12:35

@Suboptimierer

Kannst du mir den kompletten Befehl aufschreiben ... bin bei der schreiberei ein wenig durcheinander gekommen! danke für die schnelle Hilfe

Suboptimierer

12.10.2015, 12:42

@oomee

Zusammenfassung:

Entweder

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("D1:D15")) Is Nothing then 
   If Target.Value = "LK" Then MsgBox "Dieses Produkt benötigt eine Lebensmittelkühlung!", vbInformation, "Hinweis" 
 End If
End Sub

oder

Daten → Datenüberprüfung → Datenüberprüfung... → Benutzerdefiniert

=$D$15<>"LK"

Oubyi, UserMod Light

13.10.2015, 11:05

@Suboptimierer

Es wird doch angegeben, welche Einträge erlaubt sind und das sind alle, die NICHT "LK" lauten. SONST (also bei "LK") wird die Warnmeldung ausgegeben.

Suboptimierer

13.10.2015, 11:08

@Oubyi, UserMod Light

Ja, so wird es sein. Ich dachte nunmal, dass eine Meldung kommen soll, wenn die Bedingung erfüllt ist, nicht dann, wenn sie nicht erfüllt ist.

Suboptimierer

12.10.2015, 11:49

Das Not gehört wahrscheinlich nach vorne (siehe Ouby)

Oubyi, UserMod Light

12.10.2015, 11:51

@Suboptimierer

Tut es. Wollte ich gerade korrigieren, aber Du warst schneller.

Suboptimierer

12.10.2015, 11:52

@Oubyi, UserMod Light

Is Not Null ist gängiger SQL-Syntax. Das bringe ich manchmal durcheinander.

Ähnliche Beiträge

Excel VBA Private Sub Worksheet_Change(ByVal Target As Range)? Help Programm vom Kollegen Bearbeitet

Habe für einen Kollegen ein Programm geschrieben. Das Problem ist nun das er vorher als Change Bedienung einen Befehl drin hat denn ich nicht ganz verstehe(und mein Programm Stört). :/ Der Code hat seinen Sinn deswegen möchte ich ihn gerne drin lassen. Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A7:A100")) Is Nothing Then Exit Sub
   If Target.Value <> "" Then
      Target.Offset(0, 8).Value = Date
   Else
      Target.Offset(0, 8).ClearContents
   End If

End Sub

Ich denke der Code Funktioniert so. Er Speichert in der Variable "Target" die Range A7;A100 und guck nun dann ob sie leer sind wenn ja soll er das Sub Verlassen. Ist das gebiet 0,8 nicht "ungleich" Leer soll es in die Zelle 0,8 bzw "Offset"? Das Datum reinschreiben. Ist Target 0,8 leer? Löscht es die Komplette Zeile?...

So das Programm erzeugt immer wenn man in Spalte A in eine neue Zeile schreibt an der stelle 8/bzw. H das Datum.

Das Problem ist aber das der Debugger anspringt wenn man Zeilen per Rechtsklick Zeilen Löschen rauslöscht. Und da das wiederum unschön ist wäre hilfe wirklich schön :)

mfg Dennis

...zum Beitrag

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zum Beitrag

Excel Makro ausführen bei Änderung in einer Zelle in anderem Tabellenblatt?

Hallo zusammen,

ich habe ein Problem mit Excel, das vermutlich ganz leicht zu lösen ist, alleine komme ich aber nicht weiter.

Ich möchte gerne ein Makro immer bei einer Änderung in einer bestimmten Zelle ausführen lassen. Dazu habe ich bisher folgenden Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, Range("A1")) If Target Is Nothing Then Exit Sub Else FooterLeft End If End Sub

Der funktioniert auch, bloß soll jetzt die aktivierende Zelle nicht A1 auf diesem Tabellenblatt sondern beispielsweise Zelle A6 auf dem Tabellenblatt "Deckblatt" sein.

Was muss ich hier wie umformulieren damit das klappt, oder brauche ich grundsätzlich eine ganz andere Funktion dazu?

Vielen lieben Dank!

...zum Beitrag

Wie ändere ich die Farbe der Blattregisterkarte basierend auf mehrere Zellenwerte?

Das habe ich im Netz gefunden, aber ich brauche die Abfrage für mehrere Zellen (A1:A10)

Kann mir da jemand helfen ??

Gruß Heiko



Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

...zum Beitrag

Datum in Zelle darf nicht Zukünftiges Datum enthalten und muss im Aktuellen Jahr sein?

Hallo,

verzweifelt wende ich mich an das Internet da ich leider nicht weiss wie ich dieses Problem lösen kann. Folgende Idee... / Ich möchte in der Lage sein Spalte A1-A30 ein Datum zu geben das sich nur im Aktuellen Jahr befindet und nicht in der Zukunft liegen kann. Sollte dies der Fall sein soll eine Fehlermeldung Erscheinen mit einem von mir angegebenen Text... Ich habe bereits einen Code mit verschiedenen Funktionen wie Z.B das Zelle A1-A30 die Heute Funktion anwenden jedoch editierbar ist. Leider weiss ich nicht wie ich die o.g. 2 Sachen noch in den code einbinden kann oder wie dies Funktioniert. Ich hoffe ihr könnt mir helfen mit evtl den vollständigen Code? :)

Anbei der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A30")) Is Nothing Then
If Target.Value = "" Then Target.FormulaLocal = "=HEUTE()"
Else
If Intersect(Target, Range("D3:D30")) Is Nothing Then Exit Sub
If Target.Value = "" Then Target.Value = 1 End If End Sub

...zum Beitrag

Ich möchte in der ersten Spalte das aktuelle Datum automatisch eingetragen bekommen, sobald in der selben Zeile in den Spalten B-H etwas eingetragen wird?

diesen Vba Code hab ich schon gefunden:

Private Sub Worksheet_Change(ByVal Target As Range) 'Trägt akt. Datum und Uhrzeit ein A:A ein, wenn B:B nicht leer ist 
If Not Intersect(Target.Cells(1), ActiveSheet.Columns(2).Cells) Is Nothing Then 
If Not IsEmpty(Target.Value) Then If IsEmpty(Target.Cells(1).Offset(0, -1)) Then Target.Cells(1).Offset(0, -1) = Date + Time 'kann auch Date + Time (Datum+Uhrzeit) sein 
End If 
End Sub

...zum Beitrag

Richtig Einfügen in Excel-VBA?

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

Cells.EntireRow.Hidden = False

If Range("E8").Value = "Rogo AC" Then

Columns("U:AH").Hidden = True

Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

Columns("U:AH").Hidden = True

Columns("V").Hidden = False

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

...zum Beitrag

Excel vba Makro beim Blatt/Sheet wechsel?

Hallo zusammen

Ich würde gerne ein Makro ausführen, immer wenn ich das Tabellenblatt wechsle.

Also wenn ich bspw. von Tabelle1 in Tabelle2 wechsel, soll das Makro ausgeführt werden

Bis jetzt habe ich nur eine Möglichkeit gefunden, bei der bei jedem Zelleneintrag das Makroausgeführt wird. Das ist viel zu häufig und macht alles langsam. Super wäre es, wenn es erst beim WEchsel der Tabelle stattfindet.:

mein bisheriges:

Private Sub Worksheet_Change(ByVal Target As Range)

...zum Beitrag

Name + User?

Hallo,

was müsste ich hier anpassen? Ich komme mit der Fehler Meldung nicht zurecht.

Private Declare 36 GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetNTUserA() As String
  
 Dim sBuffer As String
 Dim LSize As Long
 Dim user As String
  
 sBuffer = Space$(255)
 LSize = Len(sBuffer)
  
 Call GetUserName(sBuffer, LSize)
  
 If LSize > 0 Then
  user = Left$(sBuffer, LSize - 1)
 Else
  user = vbNullString
 End If
  
 GetNTUserA = user
  
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 6 Then
    Target.Offset(0, 11).Value = Date
  End If
      
    If Target.Column = 6 Then
    Target.Offset(0, 10).Value = GetNTUserA
  End If

End Sub

...zum Beitrag

Target.Address Fehlermeldung Laufzeitfehler "424": Objekt erforderlich?

Hallo,

ich verschiedene Befehle mit VBA realisieren, um eine Auswahlliste anzupassen. Zum einen sollen Zellen ausgeblendet werden, wenn eine bestimmte Zelle leer ist und daher ein ganzer Teil der Liste entfallen kann. Der Befehl sieht folgendermaßen aus:

Sub HdlZellenVerbergen()

If Target.Address = "$C$9" Then

If C9 = "" Then

Rows("164:195").Hidden = True

Else

Rows("164:195").Hidden = False

End If

End Sub

Da ich mich nun Hals über Kopf in VBA geschmissen habe und schon einige Male Internetrecherche betrieben habe, weiß ich nicht wo der Fehler liegt, da mir hier die Erfahrung fehlt. Der Fehler lautet wie in der Überschrift angegeben. Was muss ich machen, damit das ganze nun funktioniert.

Ein ähnliches Problem erwarte ich dann bei folgendem Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$8" Then

If [C8] = "x" Then [D22] = "y"

End If

End Sub

Auch hier wäre eine Hilfe super.

Vielen Dank im Voraus.

...zum Beitrag

Exel VBA? wert automatisch löschen?

Folgenden Code habe ich..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$5" Then

Range("G5").Value = Range("G5").Value + Target.Value

End If

End Sub

Wie bekomme ich es hin, das sich nach eingabe von E5 der wert automatisch wieder löscht?

danke schon mal

...zum Beitrag

Excel if target.column?

Hallo zusammen,

habe mal wieder ein problem mit excel.... im nachfolgenden code geht alles soweit bis auf die zwei if cods bzw. der eine der sich auf die 4 ("D") Zeile bezieht geht. der code der auf zeile 9 gerichtet ist geht einfach nicht... wenn ich anstelle 9, 8 angebe und ändere gehts. es gehen alle spalten bis auf 8. dann is sense...

kann es sein, dass nur 8 zeilen irgendwie unterstützt werden oder hab ich da was falsch gemacht?

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
   
   If IsEmpty(Target) Then Exit Sub
   If Intersect(Target, Range("a2:h100")) _
      Is Nothing Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Target = UCase(Target)
ERRORHANDLER:
   Application.EnableEvents = True

    If Target.Column = 4 Then Call Zelle11 ' Heim
    
    If Target.Column = 9 Then Call Zelle12 ' Gast
    
    
End Sub

...zum Beitrag

Excel VBA Button Enable?

Hallo Freunde,

Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.

Der Code dafür lautet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  On Error GoTo ErrHandler
  Dim rngButton1 As Integer
  rngButton1 = A1
  If rngButton1 = 2 Then
  CommandButton1.Enabled = False
  Else
  CommandButton1.Enabled = True
  End If
  Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.

Wo liegt der Fehler?

...zum Beitrag

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen