Hallo,
vielleicht kann mir ja jemand helfen:
Ich versuche bei Zellen in der 1. Spalte mit einem bestimmten Wert einen Wert in ein Feld derselben Zeile zu setzen.
Leider tut sich dabei nichts.
Es wäre toll wenn ihr Zeit für eine Antwort hättet.
Vielen Dank schon mal.
Mit freundlichem Gruß
Albert
-----------------------------
Public Sub CDDVDinArtSpalteeinsetzen()
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For t = lz To 2 Step -1
Select Case Cells(t, 1).Value
Case "CD*"
Cells(t, 4).Value = "CD"
Case "DVD*"
Cells(t, 4).Value = "DVD"
End Select
Next t
End Sub