aha!
14.01.2011 18:50:57
Christian
...und hier kommt auch schon die Antwort:
Hallo Gerd/Erich,
ich habe getestet: Für die Codes von Euch gelten jeweils: Solange Excel nur nach einem Wort sucht ok, gibt man allerdings einen zweiten Suchbegriff ein und Excel soll die Zellenfarbe auf WortNr.2 in FarbeNr2 ändern, gehts nicht. Es gilt immer nur das letzte Ereignis, was zuerst steht.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$F$18":
Range("F18:G26").Interior.Color = _
IIf(LCase$(Target.Text) = "m", Range("F5").Interior.Color, xlColorIndexNone)
Case "$F$18":
Range("F18:G26").Interior.Color = _
IIf(LCase$(Target.Text) = "d", Range("E5").Interior.Color, xlColorIndexNone)
Case "$C$18", "$D$18"
Tabelle2.Name = Range("C18").Value & ", " & Range("D18").Value
Case "$C$33", "$D$33"
Tabelle3.Name = Range("C33").Value & ", " & Range("D33").Value
End Select
End Sub
Die Änderung der Zellenfarbe reagiert nur auf "m", nicht auf "d". Steht "d" als erstes, reagierts nur auf "d"....
Ein Matthias hat mir in einem anderen Beitrag folgendes programmiert:
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address = "$F$18" Then
Select Case LCase$(Target.Text)
Case Is = "wupp1"
Range("F18:G26").Interior.Color = Range("I5").Interior.Color
Case Is = "wupp2"
Range("F18:G26").Interior.Color = Range("J5").Interior.Color
Case Is = "wupp3"
Range("F18:G26").Interior.Color = Range("K5").Interior.Color
End Select
End if
End Sub
Dies läuft. Wenn ich mir beide Makros anschaue, steht - für mich - das absolut selbe darin. Trotzdem mit unterschiedlichen Resultaten....
Gruß,
Christian