Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich

Forumthread: Zellbereich

Zellbereich
Hubert
Hallo zusammen,
ich will, wenn im Zellbereich A2:C15 eine Zelle oder auch mehrere Zellen aktiv sind sofort eine MsgBox auf geht und mir ne Meldung ausgibt.
Danke für jede Hilfe
Hubert
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellbereich
Matthias
Hallo Hubert,
Code ins Arbeitsblattmodul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const bereich = "A2:C15"
If Not Intersect(Range(bereich), Target) Is Nothing Then
MsgBox "Meldung"
End If
End Sub

Gruß Matthias
AW: Zellbereich
Hubert
Jungs ihr seit echt Spitzeeeeeeeeeee!!!!!
Danke schön
mfg Hubert aus dem sonnigen Ulm
Anzeige
AW: Zellbereich
Thomas
Grüezi Hubert
Verwende dazu z.B. die folgende Ereignis-Prozedur im Codemodul des betreffenden Tabellenblattes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Hier den Bereich anpassen
Set Target = Application.Intersect(Target, Range("A1:C15"))
If Target Is Nothing Then Exit Sub
MsgBox "Mind. eine Zelle im Bereich A1:C15 ist markiert!"
End Sub

Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-4 / xl2000 SP-3]
Anzeige
AW: Zellbereich
Hubert
Funktioniert genau so wie ich es brauche,.....
Echt Spitzeee
Vielen Dank + viele Grüße aus dem sonnigen Ulm
Hubert
AW: Aber gerne doch...
26.04.2004 12:00:31
Thomas
Grüezi Hubert
...und Danke für das Feedback.
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-4 / xl2000 SP-3]
;

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