Formel einfügen
02.01.2006 16:07:36
Heinz
Habe unteren Code der mit Button bei Click Formeln einfügt.
Der Button ist im Tab.Blatt "Schichtplan"
Wenn ich auf diesen Klicke werden auch im Tab.Blatt Schichtplan" die Formeln eingefügt.
Das sollte nicht sein,nur in den Tab.Blättern die unten im Code stehen.
Könnte mir bitte jemand helfen ?
Danke Heinz
Sub tt_NEU()
With Worksheets("Schichtplan")
.Range("N13").FormulaLocal = _
"=WENN(N10=1;8;WENN(N10=2;8;WENN(N10=3;8;WENN(RECHTS(N10)=""S"";8;0))))"
Sheets("Bindreiter E.").Range("N13:AR13").Formula = .Range("N13").FormulaR1C1
Sheets("Zimmermann E.").Range("N13:AR13").Formula = .Range("N13").FormulaR1C1
Sheets("Horvath St.").Range("N13:AR13").Formula = .Range("N13").FormulaR1C1
Sheets("Meisinger Edi Jun.").Range("N13:AR13").Formula = .Range("N13").FormulaR1C1
Sheets("Meisinger Edi Sen.").Range("N13:AR13").Formula = .Range("N13").FormulaR1C1
Sheets("Holzmann H.").Range("N13:AR13").Formula = .Range("N13").FormulaR1C1