Thema Datum  Von Nutzer Rating
Antwort
Rot Message Box auf aktive Zelle
01.01.2022 20:51:11 Maegge
NotSolved
01.01.2022 22:20:29 volti
*****
Solved
02.01.2022 01:32:37 Maegge
*****
Solved

Ansicht des Beitrags:
Von:
Maegge
Datum:
01.01.2022 20:51:11
Views:
87
Rating: Antwort:
  Ja
Thema:
Message Box auf aktive Zelle

Hallo zusammen

Folgende Fragen:
 

Private Sub Worksheet_Change(ByVal Target As Range)
For Each zelle In Range("L8:M10")
 If zelle.Value = "NB" Then
 MsgBox "Begründung warum keine benötigt wird unter Bemerkungen eintragen.", vbOKOnly + vbInformation, "Sicherheitsschulung nicht benötigt!"
 End If
 
 If zelle.Value = "NEIN" Then
 MsgBox "Es wird eine Schulung oder ein Refresh benötigt." & "" _
 & vbCrLf & "Kontaktperson darüber informieren und die entsprechenden Dokumente vorbereiten.", vbOKOnly + vbInformation, "Sicherheitschulung nicht vorhanden / abgelaufen!"
End If
Next
End Sub

Mit diesem Code öffnet sich bei erkennen von NB oder Nein die Messagebox.

Es soll aber immer nur die aktive Zelle kontrolliert werden. Wenn ich jetzt schon im festgelegten Bereich ein Nein habe und in einer neuen Zeile nochmals ein Nein, wird mir immer für beides die Msgbox angezeigt.

Danke für eure Hilfe


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Message Box auf aktive Zelle
01.01.2022 20:51:11 Maegge
NotSolved
01.01.2022 22:20:29 volti
*****
Solved
02.01.2022 01:32:37 Maegge
*****
Solved