Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
24.10.2025 09:22:50
Filter aktualisieren bei Blattaufruf
24.10.2025 09:06:52
Zählenwenn
23.10.2025 22:02:44
Warum NV bei meiner Rang Formel?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Action ausführen wenn in Felder was geän

Forumthread: Action ausführen wenn in Felder was geän

Action ausführen wenn in Felder was geän
07.11.2021 21:03:43
Tobi
Hallo Leute,
ich habe folgende Sache.
Wenn man in den Feldern C4:D4 oder C6:D6 was einträgt wird eine Aktion ausgeführt. In der Testmappe erscheint die Message Box.
Wenn man in der Combo was auswährt wird das ausgewählte in C4:D4 geschrieben. Aber es erscheint in dem Fall aber keine Message Box.
Was kann man machen dass auch in dem Fall die Messagebox erscheint?
Hier die Musterdatei : https://www.herber.de/bbs/user/148991.xlsm
Liebe Grüße
Tobi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Action ausführen wenn in Felder was geän
07.11.2021 21:09:22
{Boris}
Hi,
die Zellverknüpfung des Steuerelements löst das Change-Ereignis nicht aus. Weshalb nutzt Du nicht die eingebaute Funktion "Datenüberprüfung - Liste" - und zwar direkt für C4:D4 bzw. C6:D6 - ohne den Umweg über die Befüllung "von außen"?
VG, Boris
AW: Action ausführen wenn in Felder was geän
07.11.2021 21:10:28
Nepumuk
Hallo Tobi,
im Modul der Tabelle:

Option Explicit
Private Sub ComboBox1_Change()
Call MsgBox("Es wurde was geändert")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:D4,C6:D6")) Is Nothing Then
Call MsgBox("Es wurde was geändert")
End If
End Sub
Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige