Habe in einer Stundenliste 6 Tab.Blätter für jeden Arbeiter eines.
Nun habe ich 6 Button1 zum Stundeneinfügen.
Könnte man vdas nicht vereinfachen ?
Zum Beispiel im Tab.Blatt "Schichtkalender" Button6 der in allen anderen Tab.Blätter die Stunden einfügt.
Habe unten von 2 Kollegen den Code eingefügt.
Könnte mir da jemand helfen ?
Danke Heinz
Private Sub CommandButton1_Click()
Dim intCol As Integer, lngRow As Long
'--------Stunden_Transponieren-----------
With Sheets("Horvath St.")
If Not IsNumeric(.Range("A7")) Or .Range("A7") = 0 Then Exit Sub
If .Range("A7") > 6 Then
intCol = ((.Range("A7") - 6) * 9) - 3
lngRow = 42
Else
intCol = (.Range("A7") * 9) - 3
lngRow = 6
End If
End With
With Sheets("Schichtplan")
.Range(.Cells(lngRow, intCol), .Cells(lngRow + 30, intCol)).Copy
End With
Sheets("Horvath St.").Range("N10").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub
Private Sub CommandButton1_Click()
Dim intCol As Integer, lngRow As Long
'--------Stunden_Transponieren-----------
With Sheets("Zimmermann E.")
If Not IsNumeric(.Range("A7")) Or .Range("A7") = 0 Then Exit Sub
If .Range("A7") > 6 Then
intCol = ((.Range("A7") - 6) * 9) - 5
lngRow = 42
Else
intCol = (.Range("A7") * 9) - 5
lngRow = 6
End If
End With
With Sheets("Schichtplan")
.Range(.Cells(lngRow, intCol), .Cells(lngRow + 30, intCol)).Copy
End With
Sheets("Zimmermann E.").Range("N10").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub