Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
564to568
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
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bereich vorher markieren

bereich vorher markieren
10.02.2005 13:56:40
Eleni
Hi Forum,
Habe in Splate D Einträge und will für jede beschriftete Zelle der Spalte D immer die Zellen vorher markieren und einfärben, also z.B. D1 ist beschriftet dann sollen A1 bis C1 markiert und gefärbt werden. Wie spreche ich aber die zu markierende Zellen an?
Hier mal ein Ansatz:
Dim rng As Range
ActiveSheet.Range("F3:F500").Activate
For Each rng In Selection
If rng.Value "" Then
ActiveCell.Interior.ColorIndex = 37
End If
Next
Ciao, Eleni

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

Betreff
Datum
Anwender
Anzeige
AW: bereich vorher markieren
Reinhard
Hi Eleni,
probiers mal so:

Sub tt()
Dim n As Long
With Worksheets("Tabelle1")
.Range("A3:D500").Interior.ColorIndex = xlNone
For n = 3 To 500
If .Cells(n, 4).Value <> "" Then .Range(.Cells(n, 1), .Cells(n, 4)).Interior.ColorIndex = 37
Next n
End With
End Sub
Gruß
Reinhard
AW: bereich vorher markieren
10.02.2005 15:08:30
Eleni
Hi Reinhard,
Danke, funktioniert bestens.
Ciao, Eleni
Geschlossen, o. T.
10.02.2005 15:10:21
Eleni
o. T.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige