Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Zeilenmarkierung nur bis Letzte Saplte"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen