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()
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
 
'** Durchlauf aller Zeilen
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in der ersten Spalte die Buchstaben "CD" oder "DVD" enthalten sind
    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