Wenn Wert enthalten, dann 4 Zellen Später....
28.02.2019 14:53:03
Ronny
Da ich jetzt immer mehr beruflich damit zu tun habe, komm ich ins Schleudern
Ich habe Falsche Werte markiert und Überschrieben.
Jetzt will ich den Roten Wert in "AH" prüfen und 4 Zellen später "AL" einen Wert eintragen.
z.B. habe ich den neuen Wert 110519 -> dieser soll jetzt in AL den Wert Laufschiene erhalten.
Damit bin ich sicherlich auf dem Holzweg...?
Sub Werte_Wechseln()
Dim Zelle As Range
For Each Zelle In Range("AH2:AH150")
If Target = "110519" Then Cells(Target.Row, 4) = "LAUFSCHINE"
If Target = "125495" Then Cells(Target.Row, 4) = "BLECH"
If Target = "123865" Then Cells(Target.Row, 4) = "RE-ROHR"
If Target = "123924" Then Cells(Target.Row, 4) = "Q-ROHR"
If Target = "123910" Then Cells(Target.Row, 4) = "Q-ROHR"
If Target = "123849" Then Cells(Target.Row, 4) = "RE-ROHR"
If Target = "159209" Then Cells(Target.Row, 4) = "AL-BL"
If Target = "128688" Then Cells(Target.Row, 4) = "PLATTE"
Next Zelle
End Sub
Anzeige