Formel einfügen
06.01.2006 10:59:00
Heinz
Habe die Frage vor ein paar Tagen schon mal gestellt,leider konnte sie mir niemand beantworten.
Vielleicht hat heute jemand eine Lösung.
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" N6:N39 auch 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