Hallo Jürgen
z.b.
Spalte A wurde gefiltert
K2 bis zur letzten beschriebenen Zeile von Spalte A wird gefüllt mit der Zahl 11 (oder Variable)
Worksheets(1).Range("K2:K" & Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) = 11
Gruß Michael
|