autofill Formel
19.09.2007 15:12:28
Torsten
hab mal wieder ne kleine Frage, und zwar:
Ich möchte automatisch auf jedes Arbeitsblatt ausser den zwei Blättern Makro und Data eine Formel einfügen.
Ich hab das ganze einmal mit Makro aufzeichnen probiert, aber es klappt leider nicht so wie gewollt.
Sub tst()
Dim ws As Worksheet 'Deklaration ws als Arbeistblatt
For Each ws In ActiveWorkbook.Sheets 'für jedes Arbeitsblatt in der aktiven Datei
If ws.Name "Makro" And ws.Name "Data" Then 'wenn ws ungleich Makro & Data dann
Range("M8").Select 'M8 auswählen
ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]" 'Zelle darüber + 2 Zellen daneben - 1
'Zelle daneben
Range("M8").Select 'M8 auswählen
Selection.AutoFill Destination:=Range("M8:M130"), Type:=xlFillDefault
'automatisch füllen M8 bis M 130
End If
Next ws 'nächstes Arbeitsblatt
End Sub
1. es greif nicht auf jedes Arbeistblatt zu und
2. fügt es die Formel nicht richtig ein
Kann mir jemand helfen?
Eine Beispieldatei folgt in Kürze...
gruß
Torsten