Farbe ändern aufgrund If Bedingung
03.11.2003 13:09:37
Maggus
ich stehe irgendwie auf dem Schlauch und benötige etwas Rat. Bisher habe ich ein Makro das mir aus zwei Tabellenblattern einen Nr. Abgleich fährt und dann bei übereinstimmung (xlPart) eine andere Nummer kopiert.
Mein Problem: Die Nr. über die der Abgleich läuft sind nicht immer exakt gleich z.B. soll 23758 = 23758* sein, doch 23758** sollte nicht ohne weiteres akzeptiert werden. Daher möchte ich eine IF Bedingung einbauen, sobald in dem gefundenen Wert zwei oder mehr * auftauchen soll er mir die neue Zeile farbig markieren, und da tappe ich im dunkel. Wie kann ich das realisieren.
Gruß
Markus
Sheets(1).Activate
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Wert = Cells(i, 1).Value
With Sheets(2).Columns(3)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
MyCell = "00000" + C(1, -1)
Cells(i, 4) = MyCell
End If
End With
Next i