Werte Transponieren
19.12.2005 08:01:35
Heinz
Habe ein Makro für Werte zum Transponieren,für eine Tabelle H6:h36 in B5 das funkt.
Aber wenn ich mehrere Werte Transponieren möchte,so wie unten im Makro angezeigt, dann funkt.das Makro nicht.
Könnte mir bitte jemand helfen ?
Danke Heinz
Private Sub CommandButton1_Click()
'Stunden_Transponieren()
Sheets("Schichtplan").Range("H6:H36").Copy
Sheets("E").Range("B5").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Schichtplan").Range("P6:P36").Copy
Sheets("E").Range("B9").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub
Anzeige