Microsoft Excel

Herbers Excel/VBA-Archiv

Ausfüllen von A2

Betrifft: Ausfüllen von A2 von: Stan
Geschrieben am: 03.04.2008 21:12:10

Hallo,
Ich füge in einer Mappe per makro eine neue Spalte A, beschrifte A1=Standort, dann beschrifte a2=WA.
Dann fülle WA bis zu letzten belegten Zeile aus.
Alles stimmt nur nach der Speicherung in A2 ist auch das Wort Standort zu sehen.
Woran kann es liegen???
Danke für Hilfe Stan

Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Standort"
Range("A2").Select
ActiveCell.FormulaR1C1 = "WA_GIN"
Range(Range("A2"), Range("A2").Offset(ActiveSheet.UsedRange.Rows.Count - 2, 0)).FillDown
Selection.FillDown
ActiveWorkbook.Save

  

Betrifft: AW: Ausfüllen von A2 von: Daniel
Geschrieben am: 03.04.2008 21:25:06

Hi



die FillDown-Methode wird in VBA eigentlich nicht benötigt, weil du die Werte auch einem grösseren Zellbereich direkt zuweisen kannst (btw die ganze selektiererei ist auch nicht notwenig (auch wenn der Recorder es aufzeichnet):




Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").FormulaR1C1 = "Standort"
Range(Range("A2"), Range("A2").Offset(ActiveSheet.UsedRange.Rows.Count - 2, 0)).FormulaR1C1 = "  _
_
WA_GIN"
ActiveWorkbook.Save





Gruß, Daniel


  

Betrifft: AW: Ausfüllen von A2 von: Stan
Geschrieben am: 03.04.2008 21:41:39

Danke Daniel,
Fuktioniert perfekt.

Gruß Stan