Speichern unter
14.12.2007 07:46:00
Heinz
Ich möchte gerne wenn ich auf den Button "cmdUebertragen_Click()"
Klicke, das die Arbeitsmappe unter "Stundenliste" und den Namen in B3 gespeichert wird.
Also zb. "Stundenliste Test".
Bisher habe ich wie im unteren Code, mit einer MsgBox darauf aufmerksam gemacht.
Denn die Arbeitsmappe "Vorlage" sollte immer unverändert bleiben.
Könnte mir dazu jemand bitte weiterhelfen.
Gruß Heinz
Private Sub cmdUebertragen_Click()
ActiveSheet.Unprotect
If txtA.Value "" Then
Cells(3, 2).Value = txtA.Value '[B3]= Name
End If
If MsgBox("Wurde die Stundenliste schon unter einen anderen Namen als Vorlage abspeichert ?", _
vbQuestion + vbYesNo, _
" Nachfrage speichern unter !") = vbNo Then Exit Sub
Unload Me
ActiveSheet.Shapes("Button 38").Visible = False
ActiveSheet.Protect
End Sub