Das untere Makkro funkt.nur wenn Blattschutz aufgehoben.
Würde im Makro noch etwas eingebaut gehören,zb.bei Click Blattschutz aufheben,Aktion durchführen,Blattschutz setzen ?
Könnte mir Bitte jemand helfen.
Danke & Gruß Heinz
Private Sub CommandButton1_Click()
Dim jancol As Byte
Dim zrow As Byte
Dim x As Long
If MsgBox("Wollen sie die Daten aktualisieren ? Alte Einträge werden gelöscht !", vbQuestion + vbYesNo, _
" Nachfrage Datenbank Aktualisierung !") = vbNo Then Exit Sub
x = 7
zrow = 30
jancol = 4
For jancol = 4 To 8
Sheets("Jänner").Range(Sheets("Jänner").Cells(x, 4), Sheets("Jänner").Cells(x + zrow, 4)) = _
Sheets("Schichtplan").Range(Sheets("Schichtplan").Cells(6, jancol), Sheets("Schichtplan").Cells(36, jancol)).Value
x = x + 44
Next jancol
Call Stundeneintrag
End Sub