Habe mit Makro Recorder unten stehendes Makro aufgenommen.Leider läuft es nicht.
Ich möchte wenn ich in ("Bindreiter E.") A1 eine 1 eingebe,das dann Daten in N13:AR 13 vom einen anderen Blatt ("Schichtplan D6:D36") eingefügt werden.
Noch besser wäre wenn im "Schichtplan"grösser 1 steht,das dann im ("Bindreiter E."N13:AR13) 8,0 eingefügt wird.
Könnte mir bitte da jemand helfen ?
Danke & Gruss Heinz
Sub Schichteneinfügen()
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
Sheets("Schichtplan").Select
Range("D6:D36").Select
Selection.Copy
Sheets("Bindreiter E.").Select
Range("N13:AR13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub