Übergabe in Bedingte Formatierung
12.01.2008 16:46:05
Burghard
brauche mal Rat.
Ich möchte über eine Inputbox einen Namen eingeben und diesen mittels bedingter Formatierung markieren lassen.
Wenn ich das manuell mache, geht das. Mittels VBA läuft es aber nicht.
Für mich sieht es aus, als ob die Variable "Suchbegriff" nicht richtig übergeben wird. Ich habe da schon mehrere Schreibvarianten ausprobiert, geht alles nicht.
Sub Farbe_An_Test()
Dim Suchbegriff As String
Suchbegriff = InputBox("Bitte Mannschaft eingeben:", "Einfärben")
Range("C1:D307").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=SUCHEN(Suchbegriff;C1)"
Selection.FormatConditions(1).Interior.ColorIndex = 40
Range("C1").Select
End Sub
Hat jemand eine Lösung?
Schönen Gruß
Burghard
Anzeige