Forums Neueste Beiträge
 

Formatierung per Schleife

23/02/2008 - 16:31 von Felix Hensler | Report spam
Hallo und gleich mal ein schönes Wochenende!

Mein Ziel:

In der Spalte A sollen die Bereiche A28-A55, A98-A125, A168-A195 usw. in
einer bestimmten Art formatiert werden. Also immer 28 Zeilen, danach 70
Zeilen tiefer wieder die 28 Zeilen; danach dasselbe Spielchen in den Spalten
D und L.
Leider bin ich kein Schleifenprofi und würde mich über entsprechende Hilfe
riesig freuen.

Besten Dank
Felix aus Berlin
 

Lesen sie die antworten

#1 Wolfgang Habernoll
23/02/2008 - 17:15 | Warnen spam
Hallo Felix

"Felix Hensler" schrieb im Newsbeitrag
news:fppe80$r34$03$
Hallo und gleich mal ein schönes Wochenende!

Mein Ziel:

In der Spalte A sollen die Bereiche A28-A55, A98-A125, A168-A195 usw. in einer
bestimmten Art formatiert werden. Also immer 28 Zeilen, danach 70 Zeilen
tiefer wieder die 28 Zeilen; danach dasselbe Spielchen in den Spalten D und L.
Leider bin ich kein Schleifenprofi und würde mich über entsprechende Hilfe
riesig freuen.

Besten Dank
Felix aus Berlin



versuche es mal mit diesem Code, da du kein Format nennst mache ich sie mal rot
;-)

Sub FormatInLoop()
Const cOffs As Long = 27 '28
Const cStep As Integer = 70
Dim lngI As Long, lngEnd As Long

lngEnd = Rows.Count - cOffs

With Worksheets("Tabelle3") '' Tabelle anpassen
For lngI = 28 To lngEnd Step cStep
.Range(.Cells(lngI, "A"), .Cells(lngI + cOffs, "A")).Interior.ColorIndex = 3
.Range(.Cells(lngI, "D"), .Cells(lngI + cOffs, "D")).Interior.ColorIndex = 3
.Range(.Cells(lngI, "L"), .Cells(lngI + cOffs, "L")).Interior.ColorIndex = 3
Next
End With
End Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen