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