Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vereinfachung gesucht

Vereinfachung gesucht
23.04.2003 15:14:31
Remo
Hallo Leute

Ich habe eine Tabelle mit Monaten. In Zeile 3 stehen
die Monate als Zahlen
(Januar (1) in Spalte B, Februar (2) in Spalte C, usw.)
In A1 befindet sich der aktuelle Monat April (4).
Nun möchte ich, dass bis und mit aktuellen Monat alle Spalten
einen gelben Hintergrund erhalten.

Ich löste es mit folgendem Makro, denke jedoch dass es
wesentlich einfacher gehen könnte.

Weiss jemand wie?

Sub Farbe2()
Monat = Range("B1").Value
Januar = Range("B3").Value

If Januar <= Monat Then
Columns("B:B").Select
Selection.Interior.ColorIndex = 6
Else
End If

If Januar + 1 <= Monat Then
Columns("C:C").Select
Selection.Interior.ColorIndex = 6
Else
End If

If Januar + 2 <= Monat Then
Columns("D:D").Select
Selection.Interior.ColorIndex = 6
Else
End If

usw....

End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Vereinfachung gesucht
23.04.2003 15:17:52
Christian

Bedingte Formatierung:
Formel ist: =B3=<$A$1 usw.
Format: gelber Hintergrund

Re: Vereinfachung gesucht
23.04.2003 15:20:02
Christian

Formel ist: =B3<=$A$1 usw.
Sorry so ists richtig

Re: Vereinfachung gesucht
23.04.2003 15:34:19
Remo

Funktioniert nur bedingt.
So werden zwar die einzelnen Zellen der Zeile 3 gelb,
aber nicht die ganzen Spalten

Es geht auch einfacher
23.04.2003 17:10:29
moe

Hallo Remo
probier es mal so

Gruss

moe
Sub Farbe2()
Monat = Range("B2").Value
Range("B1").Activate

For i = 2 To Monat + 1
Columns(i).Select
Selection.Interior.ColorIndex = 6
Next i
End Sub

Re: Es geht auch einfacher
23.04.2003 17:23:03
Remo

genial!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige