Text einfügen wenn Farbe
12.09.2003 23:58:33
Didi
ich habe mir folgendes Makro gebastelt:
Das Makro soll in einer Zeile prüfen, ob bestimmte Farben in Zellen vorhanden sind und in diese, wenn eine Farbe gefunden wurde einen Text einfügen.
Das funktioniert auch prima !!
Es wird aber immer die ganze Zeile von Spalte A:IV durchsucht.
Was muß noch eingebaut werden, damit die Zeile nur von SpalteD : SpalteAH
durchsucht wird ???
Danke für Euerer Hilfe und ein schönes WE
Gruß Didi
Sub Prüfen()
Application.ScreenUpdating = False
ActiveCell.Offset.Rows.EntireRow.Select
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
c.Value = "x"
Else
End If
If c.Interior.ColorIndex = 7 Then
c.Value = "x"
Else
End If
If c.Interior.ColorIndex = 37 Then
c.Value = "x"
Else
End If
If c.Interior.ColorIndex = 43 Then
c.Value = "x"
Else
End If
If c.Interior.ColorIndex = 45 Then
c.Value = "x"
Else
End If
If c.Interior.ColorIndex = 40 Then
c.Value = "x"
Else
End If
If c.Interior.ColorIndex = 48 Then
c.Value = "q"
Else
End If
Range("F12").Select
Next c
End Sub
Anzeige