Herbers Excel-Forum - das Archiv
fortlaufende Formatierung
- fortlaufende Formatierung von Thomas vom 17.11.2003 16:03:43
- AW: fortlaufende Formatierung - von ChrisL am 17.11.2003 17:19:16
- AW: fortlaufende Formatierung - von Thomas am 18.11.2003 08:14:06
- AW: fortlaufende Formatierung - von Thomas am 18.11.2003 08:14:06
- AW: fortlaufende Formatierung - von ChrisL am 17.11.2003 17:19:16
 |
Betrifft: fortlaufende Formatierung
von: Thomas
Geschrieben am: 17.11.2003 16:03:43
Hallo, ich möchte eine Zeilen formatieren, wie das ohne VBA geht,
weiß ich, aber da das immer weiderkehrt, soll das der Computer machen ;)
Meine Tabelle sieht folgendermaßen aus, ein sogenannter 'Datensatz'
ist 8 Zeilen groß. Ich weiß, wie viele Datensätze es gibt und ich
würde es irgendwie mit einem Array lösen wollen. Mir fehlen jedoch
die Programmierkenntnisse. Umständlich würde ich es mit If-Funktionen
auch hinbekommen, ist aber nicht so schön, da es zu verschachtelt ist.
Ich hätte nen globalen Zähler und einen Zwischenzähler. Der globale
ist für das Blatt zuständig und sagt somit, wann schluß ist. Der
Zwischenzähler soll immer nur bis 8 gehen und dann wieder bei 0
beginnen. Wenn der Zwischenzähler 1 ist, soll was passieren, natürlich
auch bei 2, 3 und den anderen Werten. Das ist doch ein Array, oder?
Kann mir da jemand weiterhelfen? Danke!
Gruß Thomas
 |
Betrifft: AW: fortlaufende Formatierung
von: ChrisL
Geschrieben am: 17.11.2003 17:19:16
Hi Thomas
Ob es dazu ein Array braucht?
Jedenfalls würde ich in etwa so vorgehen:
Dim iZeile As Long
Dim AnzahlDatensaetze as Long
AnzahlDatensaetze = 50
For iZeile = 1 to AnzahlDatensaetze * 8 Step 8
Rows(iZeile).Interior.ColorIndex = 6
Rows(iZeile + 1).Interior.Colorindex = 15
Next iZeile
Oder wie auch immer. Rows() ist nur ein Beispiel. Kann auch Cells(Zeile, Spalte) sein etc.
Gruss
Chris
|
Betrifft: AW: fortlaufende Formatierung
von: Thomas
Geschrieben am: 18.11.2003 08:14:06
Hallo Chris
ich werde das mal ausprobieren, danke.
Thomas
| |