Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markro verfeinern

Forumthread: Markro verfeinern

Markro verfeinern
09.10.2008 16:17:22
Matthias
Hallo ich habe folgendes Makro, dass allen Zeilen den Hintergrund Gelb färbt und anschließend Leerzeilen zwischen den beschriebenen Zeilen einfügt:

Sub Form()
For lZeile = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Rows(lZeile).Interior.ColorIndex = 36
Rows(lZeile).Insert Shift:=xlDown
Next lZeile
End Sub


gibt es eine Möglichkeit , die Hintergrundeinfärbung bis zu einer bestimmten Spalte einzugrenzen. Momentan wird wirklich die ganze Zeile eingefärbt. Mein Wunsch wäre eine Grenze (bis Spalte N würde genügen)
Gruß Matthias

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Markro verfeinern
09.10.2008 16:24:00
Ptonka
Hallo,
versuche es mal so:
statt: Rows(lZeile).Interior.ColorIndex = 36
Range(Cells(lZeile, 1), Cells(lZeile, 13)).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Gruß,
Ptonka
AW: Markro verfeinern
09.10.2008 16:34:00
Matthias
Super Ptonka, vielen Dank, genau das suche ich.
Hab nur ein bischen zusammengefasst:
Range(Cells(lZeile, 1), Cells(lZeile, 13)).ColorIndex = 36
Super, damit komme ich weiter!!
Matthias
Anzeige
AW: Markro verfeinern
09.10.2008 16:30:00
Uwe
Hi Matthias,

Sub Form()
Dim lZeile As Long
For lZeile = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Range(Cells(lZeile, 1), Cells(lZeile, 14)).Interior.ColorIndex = 36
Rows(lZeile).Insert Shift:=xlDown
Next lZeile
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: Markro verfeinern
09.10.2008 16:37:48
Matthias
Danke Uwe!
ich hatte schon einen Lösungsvorschlag bekommen, den habe ich aber genau in deinen gewandelt.
Herzlichen Dank!!
Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige