Suchergebniss VBA
03.12.2005 13:56:40
Frank
ich habe mit dem unten genannten Code leider ein kleines Problem.
In meiner Userform in ComboBox1 und ComboBox2 sollte es so sein,
nur wenn beide Suchergebnisse übereinander stimmen die Zelle
gelb hinterlegt wird.
Könnte mir bitte jemand behilflich sein.
Private Sub CommandButton1_Click()
Range("A2:A100").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=ComboBox1
Selection.FormatConditions(1).Interior.ColorIndex = 6
Range("B2:B100").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=ComboBox2
Selection.FormatConditions(1).Interior.ColorIndex = 6
Range("A1").Select
End Sub
Viele Grüsse
Frank