Zeilenmarkierung nur bis Letzte Saplte
09.12.2003 18:50:27
Thorsten
möchte mir mir per makro Zeilen markieren. Allerdings soll nicht die ganze Zeile markiert werden, sondern nur die Zeile bis zur Letzten benutzen Spalte.
Habe das probiert über:
Sub markieren()
Dim a As Integer
a = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row
B = Worksheets("Tabelle3").Cells(1, Columns.Count).End(xlToLeft).Column
For x = 1 To a
If Sheets("Tabelle3").Cells(x, 12).Value = "0" Then
Sheets("Tabelle3").Range(Cells(x), Cells(B)).Interior.ColorIndex = 3
End If
Next
End Sub
Scheinbar hat meine Festlegung des Bereiches da einen Fehler.. wer kann mir da helfen?
MfG Thorsten
Anzeige