Hallo zusammen,
so weit bin ich gekommen
Private Sub CommandButton1_Click()
Me.Hide
Inp = InputBox("Geben Sie das Passwort ein", "")
If Inp "" Then
MsgBox "Falsches Passswort"
Exit Sub
End If
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
Sheets("RSPLAN").Unprotect
Sheets("RSFC").Unprotect
Sheets("RSFC").Visible = True
Sheets("RSPLAN").Cells.Copy
Sheets("RSFC").Cells.Select
Sheets("RSFC").Selection.Paste
Application.CutCopyMode = False
Sheets("RSPLAN").Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Cells.Locked = True
ActiveSheet.Protect
Sheets("RSFC").Protect
ActiveWorkbook.Protect
Application.ScreenUpdating = True
End Sub
Irgendwo beim rüberkopieren funktioniert es nicht ;(
Wäre dankbar für ein Tip ;)
Danke
Salim