Werte Transponieren vereinfachen
Heinz
Frage: Ich 9 Schichten A-I die ich von Sheets Schichplan in Sheets Alle Schichten Transponieren muß.
Geht das nicht einfacher.
Da Zb. Schicht A C6:C36 & C42:C72 - Schicht B D6:D36 & D42:72 usw transponiere.
Die Werte liegen immer 1 daneben Schicht A=C Schicht B=D usw.
Gruß
Heinz
Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
'Stunden_Transponieren()Schicht A Sortierer
Sheets("Schichtplan").Range("C6:C36").Copy 'Jänner
Sheets("Alle Schichten").Range("B5").PasteSpecial Paste:=xlPasteValues, Transpose:=True 'Jä _
nner
Sheets("Schichtplan").Range("N6:N34").Copy 'Februar
Sheets("Alle Schichten").Range("B9").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
Februar
Sheets("Schichtplan").Range("Y6:Y36").Copy 'März
Sheets("Alle Schichten").Range("B13").PasteSpecial Paste:=xlPasteValues, Transpose:=True 'Mä _
rz
Sheets("Schichtplan").Range("AJ6:AJ35").Copy 'April
Sheets("Alle Schichten").Range("B17").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
April
Sheets("Schichtplan").Range("AU6:AU36").Copy 'Mai
Sheets("Alle Schichten").Range("B21").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
Mai
Sheets("Schichtplan").Range("BF6:BF35").Copy 'Juni
Sheets("Alle Schichten").Range("B25").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
Juni
Sheets("Schichtplan").Range("C42:C72").Copy 'Juli
Sheets("Alle Schichten").Range("B29").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
Juli
Sheets("Schichtplan").Range("N42:N72").Copy 'August
Sheets("Alle Schichten").Range("B33").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
August
Sheets("Schichtplan").Range("Y42:Y71").Copy 'September
Sheets("Alle Schichten").Range("B37").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
September
Sheets("Schichtplan").Range("AJ42:AJ72").Copy 'Oktober
Sheets("Alle Schichten").Range("B41").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
Oktober
Sheets("Schichtplan").Range("AU42:AU71").Copy 'November
Sheets("Alle Schichten").Range("B45").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
November
Sheets("Schichtplan").Range("BF42:BF72").Copy 'Dezember
Sheets("Alle Schichten").Range("B49").PasteSpecial Paste:=xlPasteValues, Transpose:=True ' _
Dezember
Range("E2").Select
ActiveCell.FormulaR1C1 = "Schicht A"
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub