Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige