Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Target für 2 Bereiche

Target für 2 Bereiche
01.03.2015 20:33:40
WalterK

Hallo,
diese Codezeile funktioniert für 1 Bereich, 

If Not Application.Intersect(Range("O6:O" & LzO + 5), Target) Is Nothing Then
Was muss ich ergänzen, damit der Code zusätzlich noch für den Bereich "S6:S" & LzO + 5 gilt.
Besten Dank für die Hilfe,
Servus, Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Target für 2 Bereiche
01.03.2015 20:46:52
Luschi
Hallo Walter,
so sollte es klappen: 

If Not Application.Intersect(Union(Range("S6:S" & (LzO + 5)), Range("O6:O" & (LzO + 5))), Target) Is Nothing Then
Gruß von Luschi
aus klein-Paris

AW: Target für 2 Bereiche
01.03.2015 21:06:15
Daniel
Hi
alternativ zur Union-Methode gibts noch folgende Varianten:
If Not Application.Intersect(Range("O6:O" & LzO + 5 & ",S6:S" & LzO + 5), Target) Is Nothing Then
oder 
If Not Application.Intersect(Range("O:O,S:S"), Range("6:" &  LzO + 5), Target) Is Nothing Then
Gruß Daniel

Anzeige
AW: Target für 2 Bereiche
01.03.2015 21:07:42
Gerd L
Hallo,
so finde ich es übersichtlicher: 
If Not Intersect(Range("O:O,S:S"), Range("6:" & LzO + 5), Target) Is Nothing Then
Servus Gerd

Besten Dank an alle Helfer ...
01.03.2015 21:40:31
WalterK
... , alles funktioniert.
Schönen Abend und Servus, Walter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige