Clever-Excel-Forum

Hallo,

ich raffe es nicht Huh

, ich möchte ohne dass das Eingabefenster angezeigt wird und "G2" gleich einsetzen in das Makro, was muss ich wie umstellen?:

Sub AutoAusfüllen()
Dim lnglastrow As Long
Dim rngFormelzelle As Range

lnglastrow = Range("L65536").End(xlUp).Row
Set rngFormelzelle = Application.InputBox(prompt:="Geben" _
& "Sie die Adresse der Formelzelle ein", Type:=8)

Range(rngFormelzelle.Address).AutoFill _
Destination:=Range(rngFormelzelle.Address & ":G" & lnglastrow)
End Sub

Danke schon mal im Voraus.

moin

ungetestet vielleicht so?

Range("G2").AutoFill _
Destination:=Range("G2" & ":G" & lnglastrow)

mfg Tom

Hi,

wenn du bereits das Objekt Range/Cells kennst und verwendest, macht es keinen Sinn mit Adressen zu arbeiten.

Code:
Sub AutoAusfüllen()

Dim lnglastrow As Long

Dim rngFormelzelle As Range

  lnglastrow = Range("L65536").End(xlUp).row

  Set rngFormelzelle = Range("G2")

  rngFormelzelle.AutoFill rngFormelzelle.Resize(lnglastrow - rngFormelzelle.row + 1)

End Sub

VG Juvee

DANKE , TOP!

Hi,

ich frage mich, wann sich endlich einmal flächendeckend herum spricht, dass Excel bereits seit 2007 "etwas" mehr als 65.536 Zeilen hat (nämlich 1.048.576). Und wenn man schon der Meinung ist, dass man so viele Zeilen niemals braucht, wieso dann die "krumme" Zahl und nicht 100, 1.000, 10.000 oder 100.000?

Also verwende in Zukunft statt

Code:
lnglastrow = Range("L65536").End(xlUp).Row

doch besser so etwas wie (oder etwas vergleichbares):

Code:
lnglastrow = Range("L" & Rows.Count).End(xlUp).Row

lnglastrow = Cells(Rows.Count, "L").End(xlUp).Row

silenthunter

Crazy Tom

juvee

silenthunter

HKindler