Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.06.2024 22:07:02
25.06.2024 21:01:55
25.06.2024 19:21:44
Anzeige
Archiv - Navigation
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Letzen wert in Zeile(nicht Spalte)

Letzen wert in Zeile(nicht Spalte)
28.08.2008 21:25:00
hary
Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.

Case Is = Cells(7, 1)
Cells(i, 5).Interior.ColorIndex = 3
Cells(7, 1).Interior.ColorIndex = 3
Range(Cells(i, 6), Cells(i, 58)).Interior.ColorIndex = 3
Case Is = Cells(8, 1)
Cells(i, 5).Interior.ColorIndex = 4
Cells(8, 1).Interior.ColorIndex = 4
Range(Cells(i, 6), Cells(i, 58)).Interior.ColorIndex = 4
usw.


Row.xlup geht(glaube ich) nicht, da in der zeile darunter eine andere Farbe gestellt wird.
Ich braeuchte also Ersatz fuer Cells(i,58). Also Cells(i,bis zum letzten Eintrag)
Fuer'n Tip waere ich dankbar
Gruss Hary

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zelle in Zeile
28.08.2008 21:37:00
Erich
Hallo Hary,
die letzte belegte Spalte ist
Cells(i, Columns.count).End(xlToLeft).Column
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Rueckmeldung
28.08.2008 21:42:00
hary
Danke Erich
Das wars. So aehnlich hatte ich's auch schon vergass bloss den Befehl xltoleft. Hatte xlright(andersrum wird ein Schuh draus), dann lief nix mehr.
Gruss Hary
AW: Letzte Zelle in Zeile
28.08.2008 21:44:00
Erich
Hi noch mal,
da ich dich nicht auf eine falsche (oder umständliche) Fährte locken möchte:
Die letzte belegte Zelle in Zeile i ist (wenn die allerletzte Zelle leer ist)
Cells(i, Columns.count).End(xlToLeft)
Die Spaltennr. brauchst du wohl gar nicht.
Damit könntest du dann schreiben:
Range(Cells(i, 6), Cells(i, Columns.count).End(xlToLeft)).Interior.ColorIndex = 3
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: jau
28.08.2008 22:21:03
hary
Danke Erich
Hab's schon raus bekommen. Brauchte nur den Denkanstoss. ;-)
Gruss Hary

346 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige