Prüfen ob Zelle mit k beginnt
Sandra
ich würde gerne einige Formatierungen in einer Excel Datei über ein Makro laufen lassen, dazu möchte ich ich Prüfen ob der Eintrag in Spalte P mit "k" beginnt, wenn ja soll die Schriftfarbe in Spalte O blau werden, sonst schwarz bleiben.
Ich bin nicht sonderlich gut bewandert was VBA angeht und hoffe auf Hilfe.
Bis jetzt sieht mein Code so aus:
Sub Farbeändern()
Dim i As Long
Dim Bereich1 As Range
Set Bereich1 = Range("P7:P5000")
For i = 1 To Bereich1.Columns.Count
If Application.WorksheetFunction.IsText("P7:P5000") Then
Worksheets("Ansatzreihenfolge").Range("O7:O5000").Font.ColorIndex = 5
Else: Worksheets("Ansatzreihenfolge").Range("O7:O5000").Font.ColorIndex = 1
End If
Next
End Sub
Vielen Dank
Sandra