Eintrag nach Farben

Forumthread: Eintrag nach Farben

Eintrag nach Farben

23.09.2005 14:13:02

Josef

Hallo!
Ich habe in der SpalteA ca. 30000 Werte wobei ca. ein drittel gelb markiert ist.
Ich würde bitte folgende Formel suchen:
Wenn der Wert in SpalteA gelb markiert ist , dann soll in SpalteB daneben eine 1 geschrieben werden. Ist keine Markierung vorhanden, dann soll in spalte B kein Eintrag erfolgen.
Danke
Josef

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Eintrag nach Farben

23.09.2005 14:16:51

Dr.
AW: Eintrag nach Farben

23.09.2005 14:40:51

Josef

AW: Eintrag nach Farben

23.09.2005 14:16:51

Dr.

Hi,
so zum Beispiel (den ColorIndex musst Du entsprechend anpassen):


Sub test()
Dim c As Range
For Each c In ActiveSheet.Range("A:A")
If c.Interior.ColorIndex = 36 Then c.Offset(0, 1).Value = 1
Next
End Sub

AW: Eintrag nach Farben

23.09.2005 14:40:51

Josef

Hallo Dr.
Besten Dank für Deine Hilfe
Josef

Forumthread: Eintrag nach Farben

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread