Autofill

Question

Hallo,

Ich habe eine liste mit zb. 75 Zeilen. Nun möchte ich eine bestimmte nummer in der letzten
Spalte hinzufügen: Dazu habe ich diesen Befehl verwendet:

Sub Makro2()
'
' Makro2 Makro
'

'
Selection.AutoFill Destination:=Range("S2:S75"), Type:=xlFillCopy
Range("S2:S75").Select
End Sub


Wie muss ich nun das makro umbauen, damit er die bestimmte
Zahl automatisch auffüllt?

Die Liste kommt öfters, ist aber unterschiedlich lang. Mal hat sie
50 Zeilen, mal hat Sie 100 zeilen..

Vielen Dank,

Answer 1

Hallo,

versuch es mal so:

Sub auffuellen()

Dim lzeile As Long

'letzte Zeile in Spalte A ermitteln, eventuell anpassen; Spalte A = 1
lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'Spalte S ab Zeile 2 nach unten auffüllen
With ActiveSheet
.Range(.Cells(2, 19), .Cells(lzeile, 19)).FillDown
End With

End Sub

Gruß

M.O.

Answer 2

Hallo M.O.

Vielen Dank!

Hat gefunzt.

LG
Mooz100

Answer 3

Probier's mal mit:

Dim lastrow As Long

lastrow = Worksheets("Sheet1").Range("S2").End(xlDown).Row
MsgBox lastrow
With Worksheets("Sheet1").Range("S2")
.AutoFill Destination:=Range("S2:S" & lastrow), Type:=xlFillCopy
Range("S2:S" & lastrow).Select
End With

Gruss Rolf