Speichern unter Namen und Datum
Heinz
Habe unteren Code in einer UF.
Ich möchte noch zusätzlich, wenn ich "cmdUebertragen" geklickt habe,das mir die Datei unter "Stundenliste"& Name ist in B3 & Monat & Jahr ist in F1 gespeichert wird. Im selben Ordner.
Zb. Stundenliste Test 1 April 2009
Könnte mir dazu bitte jemand weiterhelfen ?
Gruß
Heinz
Private Sub cmdUebertragen_Click()
'
Private Sub UserForm_Activate()
[B3].Value = txtA.Value 'Name
[A3].Value = txtB.Value 'PersNummer
[F1].Value = TextBox17.Value 'Beginn Stundenliste
[B47].Value = txtD.Value 'Montag Arb.Beginn
[E47].Value = TextBox1.Value 'Montag Arb.Ende
[B48].Value = TextBox5.Value 'Dienstag Arb.Beginn
[E48].Value = TextBox7.Value 'Dienstag Arb.Ende
[B49].Value = TextBox11.Value 'Mittwoch Arb.Beginn
[E49].Value = TextBox12.Value 'Mittwoch Arb.Ende
[B50].Value = TextBox16.Value 'Donnerstag Arb.Beginn
[E50].Value = TextBox18.Value 'Donnerstag Arb.Ende
[B51].Value = TextBox22.Value 'Freitag Arb.Beginn
[E51].Value = TextBox23.Value 'Freitag Arb.Ende
[F100].Value = TextBox2.Value 'Montag Pausezeit
[F101].Value = TextBox8.Value 'Dienstag Pausezeit
[F102].Value = TextBox13.Value 'Mittwoch Pausezeit
[F103].Value = TextBox19.Value 'Donnerstag Pausezeit
[F104].Value = TextBox24.Value 'Freitag Pausezeit
[J47].Value = TextBox4.Value 'Montag Pause bezahlt
[J48].Value = TextBox10.Value 'Dienstag Pause bezahlt
[J49].Value = TextBox15.Value 'Mittwoch Pause bezahlt
[J50].Value = TextBox21.Value 'Donnerstag Pause bezahlt
[J51].Value = TextBox26.Value 'Freitag Pause bezahlt
[M44].Value = TextBox27.Value 'Urlaubsanspruch im Jahr
[M45].Value = TextBox28.Value 'Bildungsurlaub im Jahr
[M46].Value = TextBox29.Value 'Pflegefreistellung im Jahr
'Value = TextBox30.[H3] 'Gesamt Wochenstunden
Unload Me
End Sub
Anzeige