Wert suchen und
14.04.2016 16:37:06
Danny
ich habe einen Code mit dem ich einen bestimmten Wert suche.
Wenn er dann das Ergebnis gefunden hat (z.B. A34) soll er
die gesamte Spalte einfärben.
Leider habe ich keinen Schimmer wie ich die beiden Aufgaben verbinden und
gemeinsam abspielen kann. Der Code ist nur für ein Tabellenblatt von A bis R.
Ich hoffe jemand kann mir helfen!!
Vielen Dank im voraus.
'Wert in D6 eingeben dann mit Enter sucht er in Spalte A
'und springt dorthin (funktioniert)
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Target.Address = "$D$6" Then
Range("A9:A600").Find(What:=Range("$D$6"), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate