Herbers Excel/VBA-Archiv

Wenn Wert enthalten, dann 4 Zellen Später....

• Wenn Wert enthalten, dann 4 Zellen Später.... von Ronny vom 28.02.2019 14:53:03
• AW: Wenn Wert enthalten, dann 4 Zellen Später.... - von guennih am 28.02.2019 14:57:50
  • AW: Wenn Wert enthalten, dann 4 Zellen Später.... - von Ronny am 01.03.2019 09:56:10

Betrifft: Wenn Wert enthalten, dann 4 Zellen Später.... von: Ronny
Geschrieben am: 28.02.2019 14:53:03

Servus!

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

Betrifft: AW: Wenn Wert enthalten, dann 4 Zellen Später.... von: guennih
Geschrieben am: 28.02.2019 14:57:50

Statt "if target" "if Zelle"

Statt "Cells(Target.Row, 4)" "Zelle.offset(0,4)"

Gruß,
Günther

Betrifft: AW: Wenn Wert enthalten, dann 4 Zellen Später.... von: Ronny
Geschrieben am: 01.03.2019 09:56:10

Super!

Vielen Dank!

Beste Grüße

Beiträge aus dem Excel-Forum zum Thema "Wenn Wert enthalten, dann 4 Zellen Später...."