Dienstplantool automatisierungen
23.06.2018 19:33:21
Tarkan
1. Ich Kopiere eine Zelle mit einer for-Schleife für den gesamten Monat durch, ich weiss aber nicht wie ich es einrichten kann, dass nur Mo-Fr. ausgefüllt werden. Oder umgekehrt, dass Sa. und so. erkannt und übersprungen wird.
zum Verständnis
spalte A14:A44 stehen die Tage untereinander.
Spalte A6:CZ6 stehen Mitarbeiternamen
Ich habe verschiedene Optionen und brauche diese auch so, z.B. ein Makro kopiert eine Zelle immer für 4 nebeneinanderstehenden Mitarbeiter und das 30 mal ( mit der ersten eingegebenen Zelle sind es dann 31. für ein Monat.
Das bescheidene Makro:
Sub Markt_durchkopieren()
' Markt_durchkopieren Makro
Selection.Copy
Dim i As Long
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 3
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
ActiveCell.Offset(1, -6).Select
ActiveSheet.Paste
For i = 1 To 2
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Next
End Sub
ich weiss leider nicht ob und wie ich die Exceltabelle hier hochladen könnte.
2. Ab Zeile 44 habe ich die Zellen gesperrt um so zu verhindern, dass diese überschrieben werden. Gibt es ein Befehl, das die Schleife stoppt, sobald eine gesperrte Zelle erreicht wird? oder alternativ ein einfach einzufügendes Befehl, dass die Schleife unabhängig vom Anfangspunkt immer fix bei Zeile 44 automatisch stoppt.( Das ist die oben genannte Schleife, die grundsätzlich 30 mal läuft ( for I = 1 to 30 )
vielen Dank
Tarkan