Spalte nach oben variabel Markieren
28.11.2007 08:25:00
edie
im nachfolgenden Code wird von der aktiven Zelle die Spalte nach oben
markiert bzw. eingefärbt, in dem Fall immer nur vier Zellen.
Nun möchte ich, dass von der aktiven Zelle nach oben markiert bzw.eingefärbt wird
bis zur Zeile 7.
Wie kann man den markierten Bereich variabel gestalten : Cells(lRow - 4, iCol),so
das unabhängig wo gerade die Zelle markiert ist die Spalte bis zur Zeile 7
makriert wird.
Sub Markieren()
Dim lRow As Long
Dim iCol As Integer
lRow = ActiveCell.Row
iCol = ActiveCell.Column
Range(Cells(lRow, iCol), Cells(lRow - 4, iCol)).Interior.ColorIndex = 6
End Sub
Hat jemand eine Idee und kann helfen?
Grüße
Anzeige