Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gearde u.ungerade Zahlen in VBA

Forumthread: Gearde u.ungerade Zahlen in VBA

Gearde u.ungerade Zahlen in VBA
05.04.2003 09:58:36
Herbert
Hallo Forum,
Wie spricht man in VBA gerade und ungerade Zahlen an?
Danke
Gruß Herbert

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Gearde u.ungerade Zahlen in VBA
05.04.2003 11:32:20
Herbert

Hallo Rolf,
Danke für deinen Hinweis,
so sieht mein Makro jetzt aus:
(Ich formatiere hier Zellen mit Kalenderwochen)


Sub gerade_ungerade_format()
Dim i As Byte
For i = 1 To 30
 
  If Cells(i, 1).Value Mod 2 = 0 Then
      With Cells(i, 1)
          .Interior.ColorIndex = 49
           .Font.ColorIndex = 11
      End With
     End If
     
   If Cells(i, 1).Value Mod 2 <> 0 Then
     With Cells(i, 1)
          .Interior.ColorIndex = 52
           .Font.ColorIndex = 9
      End With
   End If
  Next
End Sub 
     Gruß Herbert


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige