Werte Transponieren vereinfachen

Forumthread: Werte Transponieren vereinfachen

Heinz

Hallo Leute
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Werte Transponieren vereinfachen

06.12.2010 11:36:10

Rudi

Hallo,
mit ner Schleife:

Private Sub CommandButton6_Click()
Dim lQuelle As Long, lZiel As Long
Application.ScreenUpdating = False
ActiveSheet.Unprotect
lZiel = 5
For lQuelle = 3 To 58 Step 11
'Stunden_Transponieren()Schicht A Sortierer
Sheets("Schichtplan").Cells(6, lQuelle).Resize(31).Copy 'Jänner
Sheets("Alle Schichten").Cells(lZiel, 2).PasteSpecial Paste:=xlPasteValues, Transpose:= _
True
lZiel = lZiel + 4
Next
Range("E2").Select
ActiveCell.FormulaR1C1 = "Schicht A"
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub

Gruß
Rudi

AW: Werte Transponieren vereinfachen

06.12.2010 11:41:01

Heinz

Hallo Rudi
SUPER !!!
Recht herzlichen Dank
Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: Werte Transponieren vereinfachen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread