gerade oder ungerade ermitteln
13.08.2008 15:49:48
LotharP
ich habe eine Mappe mit ca 30 Blättern.
Ab Blatt 7 möchte ich immer wieder zwei unterschiedliche Aktionen pro Blatt ausführen.
Wie ermittele ich ob der Blattindex gerade oder ungerade ist.
Zum besseren Verständnis hier mein Ansatz:
Sub SHEETSFILL()
Dim BLC As Byte ' BlattCounter
Dim BLI As Byte 'Blattindex
BLI = 7
Do While BLI
Er beginnt bei 7 und beim nächsten Blatt soll er statt CTRCUS die andere Anweisung durchführen CUSLAB. Nur wie kann ich abfragen ob BLI gerade oder ungerade ist.