Auto Ausfüllen
05.06.2014 13:04:47
Marcus
ich habe ein Makro zum ausfüllen in einer Liste.
Funktioniert aber nur wenn kein Filter die zweite Zeile ausblendet!
Das Makro sollte den gesamten Bereich ausfüllen, auch die ausgeblendeten Zeilen!
Kann mir bitte jemand helfen?
Danke für eure Bemühungen
Marcus
Sub auto_ausfuellen_sbSelect()
If Cells(Rows.Count, 1).End(xlUp).Row > 1 Or _
Cells(1, 1).Value "" Then
Range("AX2:CA" & Cells(Rows.Count, 1).End(xlUp).Row).Select
End If
Selection.FillDown
End Sub
Anzeige