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 Dabei werden aber alle Zeilen blau....
Vielen Dank
Sandra