Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem mit Autofill

Forumthread: Problem mit Autofill

Problem mit Autofill
08.03.2007 14:40:07
Hansi
Hi,
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Autofill
08.03.2007 15:43:32
IngGi
Hallo Hansi,
die Syntax würde so aussehen:
Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(1, 0)), Type:=xlFillDefault
Bei deinen Vorgaben reicht aber auch
ActiveCell.Copy ActiveCell.Offset(1, 0)
Oder noch besser gleich
a = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)
Range("A3000:K3000").Copy
Range("A" & a & ":K" & a).Insert Shift:=xlDown
With Cells(a, 4).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
With Cells(a, 6).Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Cells(a - 1, 10).Copy Cells(a, 10)
Gruß Ingolf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige