Autoausfüllen

Question

Hallo,

ich habe folgendes Problem:

In einer Tabelle, die über eine Formulareingabe erweitert werden kann, möchte ich
die letzte beschrieben Zelle in Spalte C ausfindig machen. (Diese Zelle ist mit einer
Formel versehen)
Diese Zelle soll nun mittels "Autoausfüllen" nach unten ausgefüllt werden.

Ich habe 2 Varianten bereits probiert:
Variante 1:

[C:C].SpecialCells(xlLast).Cells(1).Select
ActiveCell.FillDown
( bei dieser Variante funktioniert das Autoausfüllen, allerdings wird nicht die letzte
beschriebene Zelle in der Spalte C angesprochen, sonder eine mit Kommentar
versehene Zelle in mitten meiner Liste. Entferne ich den Kommentar, funktioniert
der Code nicht mehr)

Also hab ich etwas anderes versucht.

Variante 2:

Dim cWert As Variant
cWert = Cells(Range("C65536").End(xlUp).Row, 3).Select
ActiveCell.FillDown
( jetzt wird die letzte Zelle in der Spalte C angesprochen, aber der " Autoausfüllen"-
Befehl wird nicht gemacht)

Also denke ich, dass irgendetwas falsch in meinen Codes ist bzw. die Codes sogar
ungeeignet!

Darum brauche ich einen Rat! Ich hoffe jemand kann mir helfen!

Vielen Dank im Voraus!

MfG

Matthias

Answer 1

Hallo Matthias,
Code in die Tabelle einfügen, die letzte beschrieben Zelle in Spalte C wird dann 3 Zellen nach unten kopiert.

Gruß
fedjo

Sub Autofill()
Range("C65536").End(xlUp).Select
Selection.Copy
S = ActiveCell.Column
z = ActiveCell.Row
Range(Cells(z, S), Cells(z + 3, S)).FillDown
End Sub

Answer 2

Hallo fedjo,

vielen Dank für deine Lösung.
Ich habe es in der Zwischenzeit auch selbst hinbekommen, aber längst
nicht so elegant wie du!

Also vielen Dank nochmal für deine Mühe!

Grüße
Matthias