Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Target - Bereichsänderung

Forumthread: Target - Bereichsänderung

Target - Bereichsänderung
13.08.2014 14:43:58
A.Appel
Hallo,
ich habe folgendes Problem:
Ein Worksheet wird durch
If Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
auf Änderungen überwacht.
Anschließend verwende ich die Target.Address für eine Case Select Anweisung.
Klappt soweit auch gut ABER:
Wenn der Nutzer nun in Zelle L1 eine "2" einträgt, NICHT auf Enter drückt sondern die "2" nimmt und nach unten zieht weil er auch in den nächsten 5 Zeilen die "2" benötigt läuft mir meine Überwachung auf Fehler.
Jetzt brauche ich eine Möglichkeit ihm Beizubringen, dass er in diesem Fall doch bitte die Änderung Zeile für Zeile abarbeitet. Geht das?

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Target - Bereichsänderung
13.08.2014 15:02:31
MatthiasG
Hi,
das geht so: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, rng As Range
Set rng = Intersect(Target, Range("L:L"))
If Not rng Is Nothing Then
For Each z In rng
MsgBox z.Address
Next z
End If
End Sub

Gruß Matthias

Anzeige
AW: Target - Bereichsänderung
13.08.2014 15:04:18
A.Appel
Dann muss ich praktisch nur noch meine Case-Anweisung in ein eigene Sub packen und mit dem "z" aufrufen. Klasse, doch einfacher als gedacht :)
Danke!

AW: Target - Bereichsänderung
13.08.2014 15:03:31
Daniel
Hi
Dim Zelle as Range
If Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
for Each Zelle In Intersect(Target, Range("L:L"))
... im folgenden dann ZELLE anstelle TARGET verwenden

Gruß Daniel
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