AutoFill für dynamischen Bereich
16.03.2006 11:45:28
Andi
ich benutze folgenden VBA-Code, um die letzte Zeile einer Spalte (hier B) zu ermitteln:
Dim LetzteZeile As Long
LetzteZeile = Range("B1").End(xlDown).Row
Um die erste bis letzte Zelle der Spalte B zu markieren, ohne die ganze Spalte markieren zu müssen, verwende ich:
Range("B1:B" & LetzteZeile)
Wie kann ich jetzt im VBA schreiben, dass ich die AutoFill-Funktion von B LetzteZeile bis Spalte F LetzteZeile benutzen kann?
Bsp.:
LetzteZeile = 10
Also will ich AutoFill für B1:LetzteZeile bis F1:LetzteZeile
(LetzteZeile gilt für alle Spalten!)
Selection.AutoFill Destination:=Range("?"), Type:=xlFillDefault
Bei dieser Gelegenheit, wie geben ich in Range die LetzteSpalte als Startwert an?
Range("?:G" & LetzteZeile)
Hoffe, das war verständlich!?!
Vielen Dank
Andi