Zeilenmarkierung nur bis Letzte Saplte

Bild

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
Bild


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


Bild


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?


Bild


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


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeilenmarkierung nur bis Letzte Saplte"