Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

intersect - auswahl der ergebniszellen

Forumthread: intersect - auswahl der ergebniszellen

intersect - auswahl der ergebniszellen
31.08.2004 16:52:05
lars
hallo!
ich untersuche zwei bereiche aus der name box(z.b. "printarea" und "B1")
falls die beiden bereiche gemeinsame zellen haben, sollen diese auf deren inhalt geprüft werden (z.b. wenn die gemeinsamen zellen leer sind, sollen sie blau gefärbt werden. hier ist der code.
dim zll as CellFormat
If Application.Intersect(Target, Range("WSK")) Is Nothing Then
Else
For Each zll In Application.Intersect(Target, Range("WSK"))
If IsEmpty(zll.Value) Then
zll.Interior.ColorIndex = 40
Else
zll.Interior.ColorIndex = 35
End If
Next
End If
vielen dank!
lars
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: intersect - auswahl der ergebniszellen
Boris
Hi Lars,
eigentlich kapier ich nicht so genau, was du meinst.
Da du die Variable Target verwendest, geh ich mal davon aus, dass du mit einer Ereignigsroutine arbeitest - in meinem folgenden Beispiel ist das das Selection_Change-Ereignis:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim iSect As Range, C As Range
Set iSect = Intersect(Target, Range("WSK"))
If Not iSect Is Nothing Then
For Each C In iSect
C.Interior.ColorIndex = 35 - 5 * IsEmpty(C)
Next C
End If
End Sub

Grüße Boris
Anzeige
AW: intersect - auswahl der ergebniszellen
31.08.2004 18:44:00
lars
einsame spitze boris!
super vielen dank!
;

Beliebteste Forumthreads (12 Monate)

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