ich habe mir dieses Makro "gebastelt":
Dim i As Long
With ActiveSheet
.Range("G8").Select
For i = 8 To .Cells(.Rows.Count, 7).End(xlUp).Row
.Cells(i, 7) = Pfad
Next
End With
in der Zelle G8 steht Text.
Jetzt soll der nächste ausgewählte Text in G9 dann G10 u.s.w.
Wobei Pfad der neue Text ist.
gruß walter