habe da noch ein Problem:
Der Code Formatiert mir die Zellen nach rechts. Ich möchte das 1 Zelle nach links und 6 Zellen nach rechts markiert wird.
Kurz:
Text szeht in A2 und A1- A6 soll Formatiert werden. Hatte schon mit (1, -1) probiert, aber das geht nicht.
Ich danke Euch für die Hilfe.
Gruß Wolfgang
Sub Zellen_FaerbenWenn()
'
' Auswahl der Fahrzeuge
' Makro am 22.01.2010 von lorenzen aufgezeichnet
'
'
Dim rngZeile As Range, rngZelle As Range
For Each rngZeile In ActiveSheet.UsedRange.Rows
Set rngZelle = Cells(rngZeile.Row, 2) 'Spalte B zuweisen
If rngZelle.Value Like "111" Or _
rngZelle.Value Like "444" Then
rngZelle.Resize(1, 6).Interior.ColorIndex = 15
rngZelle.Resize(1, 6).Font.Bold = True
End If
Next