ich ermittel so das Ende der beschriebene Zelle in der Spalte B:
Dim z As Long
z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(3, 2), Cells(z, 30)).Select
Wenn das Ende erreicht ist, sollen die nächsten 5 Zellen der Spalte A mit einem Buchstaben
gefüllt werden.
Z.B. A210 = w, A211=w u.s.w.
Wie kann man dies schnell durchführen ?
mfg walli