Herbers Excel-Forum - das Archiv
Zeilenmarkierung nur bis Letzte Saplte
Betrifft: Zeilenmarkierung nur bis Letzte Saplte
von: Thorsten
Geschrieben am: 09.12.2003 18:50:27
Guten abend,
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
Betrifft: AW: Zeilenmarkierung nur bis Letzte Saplte
von: PeterW
Geschrieben am: 09.12.2003 19:34:00
Hallo Thorsten,
meinst du da so?
Sheets("Tabelle3").Range(Cells(x, 1), Cells(x, B)).Interior.ColorIndex = 3
Gruß
Peter
Betrifft: AW: Zeilenmarkierung nur bis Letzte Saplte
von: Thorsten
Geschrieben am: 09.12.2003 19:57:43
Hi Peter,
ja, das meinte ich....nur bekomme ich da nun zum Teile den Laufzeitfehler 1004.
Woran kann das denn nun liegen?
Betrifft: AW: Zeilenmarkierung nur bis Letzte Saplte
von: PeterW
Geschrieben am: 09.12.2003 21:16:09
Hallo Thorsten,
bei welchem Teil bekommst du den Fehler? Läßt sich der Fehler reproduzieren? Wie rufst du den Code auf? Kannst du vielleicht eine Beispielmappe auf den Server stellen?
Gruß
Peter
Betrifft: AW: Zeilenmarkierung nur bis Letzte Saplte
von: GerdW
Geschrieben am: 09.12.2003 19:38:44
If Sheets("Tabelle3").Cells(x, 12).Value = "0" Then
with Sheets("Tabelle3")
.Range(.Cells(x), .Cells(B)).Interior.ColorIndex = 3
end with
End If
Gerd