Guten Morgen Fabian,
das mache ich.
Ich habe die Spalten Schleife über die Zeilen schleife gelegt mit den Spalten Nummer
For Spalte = 5 To 7
For Zeile = 2 To Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
Select Case Cells(Zeile, Spalte)
Case "c"
Cells(Zeile, 2) = "c"
Case "a"
Cells(Zeile, 2) = "a"
End Select
Next Zeile
Next Spalte
Gruß, Damian