Wert über Variable eintragen
Josef
Mit folgendem Makro wird über eine CB in einer UF in der markiertzen Spalte der Wert "Kranken" grün markiert. Würde auch passen.
Wenn ich jedoch den Wert über eine Variable (TextBox1) eingebe, bekomme ich einen Fehler. Was müßte ich bitte verändern um den gesuchten Wert über eine TB einzugeben?
Danke
Josef
Sub Bedingtes_Format()
Dim dokname As String
dokname = TextBox1.Text
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZÄHLENWENN(I2;""*Kranken*"")"
' "=ZÄHLENWENN(I2;"" & *dokname* & "")"
Selection.FormatConditions(1).Interior.ColorIndex = 4
Range("I2").Select
End Sub
Anzeige