Problem mit Autofill
08.03.2007 14:40:07
Hansi
schlage mich mit meinem rudimentären VBA Wissen durch eine Excel Tabelle.
Ich habe folgenden Code:
[code]
Range("A3000:K3000").Select ' auswählen der zeile 3000
Selection.Copy ' zeile kopieren
a = Cells(Rows.Count, 11).End(xlUp).Row 'herausfinden wo die summenbildungszeile ist (in K = 11)
' und anschließend in die darüberliegende zeile gehen
Rows(a).Select 'auswählen
Selection.Insert Shift:=xlDown 'einfügen
Cells(ActiveCell.Row, 4).Select 'menge auswählen um dann einzufärben
With Selection.Interior 'einfärben
.ColorIndex = 40
.Pattern = xlSolid
End With
Cells(ActiveCell.Row, 6).Select ' ep auswählen und einfärben
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Cells(ActiveCell.Row, 10).Select 'Spalte J auswählen
ActiveCell.Offset(-1, 0).Select ' In Spalte J eine Zelle nach oben
Selection.AutoFill Destination:=("ActiveCell:ActiveCell.Offset1,0"), Type:=xlFillDefault
[/code]
die letzte Zeile macht mir Sorgen.
Ich möchte den Formelinhalt der aktiven Zelle, eine Zelle "nach-unten-ziehen".
Bekomme das aber einfach nicht in die Syntax.
Könntet ihr mir helfen?
Danke
Hansi