Aktiver Zellbereich in Makro verarbeiten?
05.12.2002 10:23:55
Markus
ein einfacher Command Button innerhalb einer Tabelle soll die folgende Aufgabe erfüllen:
Den markierten Bereich (ein oder mehr Zellen) mit Hintergrundfarbe füllen
Angegangen bin ich es so:
Private Sub CommandButton1_Click()
With ActiveCell.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Markierter Bereich; z.B. D6:D10
Hierbei wird nur jeweils die erste Zelle (D6) des markierten Bereichs geändert.
Wie bekomme ich den ganzen markierten Bereich?
Für Hilfe Danke im voraus,
Gruß
Markus