Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA MsgBox schließen
23.02.2018 08:57:14
Steffen
Hi zusammen,
eine kurze Frage.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M3")) Is Nothing Then
Call Ablauf
ElseIf Not Intersect(Target, Range("A1:J50")) Is Nothing Then
Call Prio
End If
End Sub


Sub Prio()
Range("i3") = "hoch"
MsgBox ("Achtung")
End Sub

Es geht um die Prio Abfrage. Eigentlich klappt alles wunderbar, allerdings schließt die MsgBox nicht bei Betätigen des Ok Buttons. Ich muss die Schleife irgendwie beenden bekomme es aber.
nicht hin.
Danke und LG
Steffen

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA MsgBox schließen
23.02.2018 09:11:07
UweD
Hallo
durch das Range("i3") = "hoch"
wird das changeevent immer erneut aufgerufen.
so gehts
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M3")) Is Nothing Then
Call Ablauf
ElseIf Not Intersect(Target, Range("A1:J50")) Is Nothing Then
Application.EnableEvents = False
Call Prio
Application.EnableEvents = True
End If
End Sub

LG UweD
AW: VBA MsgBox schließen
23.02.2018 09:20:49
Steffen
Super! Vielen Dank für die schnelle Antwort.
Danke für die Rückmeldung owT
23.02.2018 09:24:56
UweD
AW: VBA MsgBox schließen
23.02.2018 09:24:52
Steffen
Mir ist gerade aufgefallen das ich noch eine Ergänzung benötige.
Die Meldung/ Änderung soll nur erscheinen wenn in I3 noch nicht "hoch" eingetragen ist.
Anzeige
AW: VBA MsgBox schließen
23.02.2018 09:29:15
UweD
Hallo nochmal

Sub Prio()
With Range("i3")
If .Value  "hoch" Then
.Value = "hoch"
MsgBox ("Achtung")
End If
End With
End Sub

AW: VBA MsgBox schließen
23.02.2018 09:29:16
Steffen
Ups habe noch eine Funktion vergessen. Eigentlich soll das Feld nur erscheinen, wenn ich in die Tabelle die Wörter "nitrieren", "härten", "anlassen" schreibe.
Danke und LG
AW: VBA MsgBox schließen
23.02.2018 09:46:34
UweD
Hallo nochmal
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    
    If Not Intersect(Target, Range("M3")) Is Nothing Then
        Call Ablauf
    ElseIf Not Intersect(Target, Range("A1:J50")) Is Nothing Then
        If Target Like "*nitrieren*" Or _
           Target Like "*härten*" Or _
           Target Like "*anlassen*" Then
                Application.EnableEvents = False
                Call Prio
        End If
     End If
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Sub Prio()
    With Range("i3")
        If .Value <> "hoch" Then
            .Value = "hoch"
            MsgBox ("Achtung")
        End If
    End With
End Sub

LG UweD
Anzeige
AW: VBA MsgBox schließen
23.02.2018 09:57:04
Steffen
Mega! Vielen Dank für die schnelle Rückmeldung.
Prima! Danke für die Rückmeldung. owT
23.02.2018 09:58:56
UweD

143 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige