Formelsuche



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Formelsuche
von: Josef
Geschrieben am: 17.07.2002 - 12:20:17

Hallo!

Wenn in der Spalte H eine rote Schrift ist, dann sollte in der Nebenspalte I eine 1 eingetragen werden, ist die Schrift schwarz dann nichts oder eine 0.

Gäbe es hierfür bitte eine Lösung?

Danke

Josef


nach oben   nach unten

Re: Formelsuche
von: @lex
Geschrieben am: 17.07.2002 - 12:26:26

Grüzi Josef !
Wie folgt:

Sub Test()
Dim iRow, iCol, iCount As Integer
iCol = 8
iRow = Cells(Rows.Count, iCol).End(xlUp).Row
For iCount = iRow To Step -1
    If Cells(iCount, iCol).Font.ColorIndex = 3 Then
        Cells(iCount, iCol + 1).Value = 1
        Else: Cells(iCount, iCol + 1).Value = 0
    End If
Next iCount
End Sub

VG,
Alex

nach oben   nach unten

Re: Formelsuche
von: Josef
Geschrieben am: 17.07.2002 - 12:34:33

Hallo Alex!

Danke für Deine schnelle Hilfe

Josef


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Markierten Bereich erkennen"