VBA-Beispiel 010
mail schreiben
mail schreiben

mit Do-Loop Schleife Hintergrundfarbe ermitteln
Diese Schleife schreibt in Spalte B die Hintergrundfarbe der Zelle in Spalte A wenn die Farbe Pastellgrün, helles Gelb, helles Türkis oder keine Farbe (nix) eingestellt wurde.
Hinweis:
die Schleife arbeitet nur solange wie in den Zellen der Spalte A Werte stehen (Loop Until IsEmpty)
Sub Farben()
'die Eintäge in Spalte A müssen lückenlos sein
[A1].Select
  Do
    If Application.ActiveCell.Interior.ColorIndex = 36 Then
    ActiveCell.Offset(0, 1) = "helles Gelb"
    End If

    If Application.ActiveCell.Interior.ColorIndex = 35 Then
    ActiveCell.Offset(0, 1) = "Pastellgrün"
    End If

    If Application.ActiveCell.Interior.ColorIndex = 34 Then
    ActiveCell.Offset(0, 1) = "helles Türkis"
    End If

    If Application.ActiveCell.Interior.ColorIndex = xlNone Then
    ActiveCell.Offset(0, 1) = "nix"
    End If
   'eine Zelle runter
    ActiveCell.Offset(1, 0).Activate
  Loop Until IsEmpty(ActiveCell)

End Sub
Download:   vba010.zip
relevante Links:

top