Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
416to420
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige