bereich vorher markieren

Bild

Betrifft: bereich vorher markieren von: Eleni
Geschrieben am: 10.02.2005 13:56:40

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

Bild


Betrifft: AW: bereich vorher markieren von: Reinhard
Geschrieben am: 10.02.2005 14:08:43

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


Bild


Betrifft: AW: bereich vorher markieren von: Eleni
Geschrieben am: 10.02.2005 15:08:30

Hi Reinhard,

Danke, funktioniert bestens.


Ciao, Eleni


Bild


Betrifft: Geschlossen, o. T. von: Eleni
Geschrieben am: 10.02.2005 15:10:21

o. T.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "bereich vorher markieren"