Werte Automatisch Transponieren
05.12.2005 10:57:33
Heinz
Bräuchte bitte wieder mal eure Hilfe.
Habe das untere Makro mittels Recorder aufgezeichnet.
Ich möchte gerne mit Button "bei Klick" Das die Werte von "Schichtplan" N42:N72
in "Bindreiter E." in N10:AR10 Transponiert werden.
Könnte mir Bitte jemand helfen.
Danke Heinz
Private Sub Stunden_Transponieren()
' Stunden_Transponieren Makro
' Makro am 05.12.2005 von Heinz aufgezeichnet
Sheets("Schichtplan").Select
ActiveWindow.SmallScroll ToRight:=5
ActiveWindow.SmallScroll Down:=26
Range("N42:N72").Select
Selection.Copy
Sheets("Bindreiter E.").Select
Range("N10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub