Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

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