Alle ungeraden Zellen markieren

[ILoveC000kies]

Servus,

kann mir jemand sagen, wie man in einer Excel Tabelle mithilfe eines Makros (in VBA geschrieben)  die ersten 100 Zellen markieren kann, deren Zeile und Spalte addiert einen ungeraden Wert ergeben?

MfG ILoveC00kies

[Kuwer]

Hallo,

Sub UngeradeHervorheben()

  Dim x As Long, y As Long

  For x = 1 To 100    'Zeilen

    For y = 1 To 100  'Spalten

      'Cells(x, y) = x + y

      If (x + y) Mod 2 Then

        Cells(x, y).Interior.ColorIndex = 4

      End If

    Next y

  Next x

End Sub

Gruß Uwe

[RPP63]

Moin auch von mir!
Warum VBA?
Ist doch eine simple bedingte Formatierung
EDIT:
für die ersten 100 Zellen muss man halt zunächst den Bereich A1:J10 markieren.

	A	B	C	D	E	F	G	H	I	J	K
1
2
3
4
5
6
7
8
9
10
11

Zelle	bedingte Formatierung...	Format
A1	1: REST(ZEILE()+SPALTE();2)	abc

Gruß Ralf

[RPP63]

Gerade durch Zufall entdeckt:
Wenn man bspw. einen Bereich von 100*100 Zellen markieren will, 
könnte man sich ja die Spaltenbezeichnung CV mittels =ADRESSE(1;100) errechnen lassen.
(und dann ins Namenfeld A1:CV100 eintragen und mit ENTER bestätigen)

Das Namenfeld akzeptiert jedoch auch die Z1S1-Schreibweise, egal, was in den Optionen eingestellt ist.
Folglich markiert man 100*100 Zellen einfach mittels
Z1S1:Z100S100

Gruß Ralf