Autofill

Question

Hallo,
Gibt es ein Autofill VBA für folgende Beschreibung?
Spalte A und B werden Daten eingefügt.
In der Spalte c2+d2+e2+f2ist ein Sverweis der auf eine andere Tabelle zugreift.
Nun soll mit dem VBA  die Sverweise bis zum ende von Spalte b ausgefüllt werden.
Hat einer eine Idee?

Mfg Tommi

Answer 1

Hallo Nighty,
das ist meine Lösung, vielleicht war auch meine Frage falsch formuliert. :-)

Dim lngLast As Long


lngLast = Cells(Rows.Count, 2).End(xlUp).Row
Range("C2").Autofill Destination:=Range("C2:C" & lngLast) ', Type:=xlFillDefault
Range("D2").Autofill Destination:=Range("D2:D" & lngLast) ', Type:=xlFillDefault
Range("E2").Autofill Destination:=Range("E2:E" & lngLast) ', Type:=xlFillDefault
Range("F2").Autofill Destination:=Range("F2:F" & lngLast) ', Type:=xlFillDefault
Range("G2").Autofill Destination:=Range("G2:G" & lngLast) ', Type:=xlFillDefault

Range("A2").Select

Aber trotzdem Danke für deine Anregungen.
Gruß Tommi