automatisch neue Zeile

Hallo zusammen,
habe einen Dienstplan, in den in Spalte A das Datum nach Eingabe des Monats und Jahres in je einer Zelle (hier Zelle G2 für Monat und G3 für das Jahr) übernommen wird. In Spalte B trägt der Mitarbeiter hinter die Zelle des jeweiligen Tages seinen Dienstbeginn und in Spalte C sein Dienstende ein. Spalte D errechnet die arbeitsvertragliche Pause und Spalte E die Nettoarbeitszeit. Da sich an einem Wochenende und Feiertag der Dienst splittet, also eine Art Teildienst, wird an dem jeweiligen Tag eine weitere Zeile benötigt um jeweils die beiden Teile des Dienstes in eine eigene Zeile eintragen zu können. Es hat aber immer nur ein Mitarbeiter an den jeweiligen Sams-, Sonn- oder Feiertagen Dienst. Die Möglichkeit, im Vorfeld diese Zeilen bereits für alle MA zu verdoppeln, scheidet somit aus. Daher sollte nur dann eine zusätzliche Zeile automatisch erstellt werden, sobald in der Spalte B, mit dem Dienstbeginn, ein Eintrag vorgenommen wird, und das eben nur an Wochenenden bzw. Feiertagen. Problem u. a. ist durch die wechselnden Monate haben die Wochenende keine feste Position in der Tabelle. Die Anwender haben unterschiedliche Excelkenntnisse, daher sollten zum einen nur Zellen mit Eingabemöglichkeiten ungeschützt bleiben und zum anderen sollten die Anwender nicht per Button eine neue Zeile erzeugen müssen. (Geschweige denn mit Copy und Paste;)
Meint ihr so etwas wäre möglich? Bitte zu beachten, dass meine VBA-Kenntnisse mehr als rudimentär sind.
Ich würde mich freuen, wenn ich Ideen von euch bekommen würde
vielen Dank für eure Zeit und Mühe, beste Grüße, Stephan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klexy,
vielen Dank für deinen Vorschlag. Ist sicher eine leicht umsetzbare Lösung, aber nicht ganz das, was ich mir vorgestellt habe.
Die Spalten F - I sind bereits für weitere Daten belegt: F = Einträge für bezahlte Abwesenheit wie Urlaub, Krankheit usw. G und H für Beginn bzw. Ende eines Bereitschaftsdienstes und I = dessen Stunden. Sicher wäre es ein einfaches, diese Spalten zu verschieben. Allerdings hat derjenige (Arzt), der am WE oder Feiertag "Teildienst" hat, ebenfalls einen gesplitteten Bereitschaftsdienst. Das würde bedeuten ich müsste für den Bereitschaftsdienst ebenfalls mind. 2 weitere Spalten einfügen. Der ganze Plan sollte zudem ausgedruckt in gut lesbarer Schriftgröße auf eine Seite eines A4 Blattes passen. Das tut er zur Zeit auch und mit 1 oder 2 Zeilen mehr würde das auch noch passen.
Ein Arzt hat meist 1 x max. 2 x im Monat ebendiesen Dienst. Die Zellen der restlichen Tage blieben somit leer und wären überflüssig.
Mir schwebte da eine etwas elegantere Lösung vor: nur eine weitere Zeile nach Eingabe in benannter Zelle.
Gibt es da nicht vielleicht eine weitere Lösung?
Grüße, Stephan

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Ende Dim kyDatum As Range Set kyDatum = Target.Offset(0, -1) Dim kyFeiertage As Range Set kyFeiertage = ActiveSheet.Range("C64:C76") Dim kyWochentag As Integer kyWochentag = Weekday(Target.Offset(0, -1), 2) If Target.Column = 2 Then If kyWochentag > 5 Then Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Select Selection.Copy Selection.Insert Shift:=xlDown Application.CutCopyMode = False ElseIf WorksheetFunction.VLookup(kyDatum, kyFeiertage, 1, False) > 0 Then Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Select Selection.Copy Selection.Insert Shift:=xlDown Application.CutCopyMode = False End If Else End If Ende: End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatisch neue Zeile

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread