Guten Morgen Forum,

hab ein kleines Problem und komm nicht drauf wie man es löst, Suchfunktion hat mich leider auch nicht weitergebracht.

Meinen VBA Code, schaut in Zeile H4 bis NI4 ob in einer Zelle "FT" drinsteht und löscht dann alle werte dieser Spalte, funktioniert auch.

Nun soll er aber nicht alle Werte in dieser Spalte löschen, wenn ein "X" drinsteht, soll er diese Zelle nicht löschen...
komm nicht drauf.
Hier mein Code:

Sub FeiertagLöschen()

Dim FT As Object

For Each FT In ActiveSheet.Range("H4:NI4")
Debug.Print FT.Value
If FT.Value = "FT" Then
Range(Cells(11, FT.Column), Cells(40, FT.Column)).ClearContents
End If
Next FT

End Sub

Danke im voraus Grüße Bernhard