Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige