Re: Nach Speichern Änderungen an Form dahin
08.04.2003 13:30:54
Peter
Ich speichere einfach über denk Klick auf den Icon.Wenn ich mein Skript einmal hab laufen lassen und dann speichere, isses okay. Hier der Code hinter der Form:
Private Sub frm_new_td_Activate() //Load-Skript
Sheets("_control").Select //Parameter laden und CB's füllen
counter = 11
str_val = Range("A10").Value
Do Until str_val = ""
frm_new_td.cb_ver.AddItem (str_val)
str_val = Range("A" & counter)
counter = counter + 1
Loop
counter = 11 //Parameter laden und CB's füllen
str_val = Range("B10").Value
Do Until str_val = ""
frm_new_td.cb_kat.AddItem (str_val)
str_val = Range("B" & counter)
counter = counter + 1
Loop
frm_new_td.cb_prio.AddItem ("1") //CB füllen
frm_new_td.cb_prio.AddItem ("2")
frm_new_td.cb_prio.AddItem ("3")
frm_new_td.cb_stat.AddItem ("offen") // CB füllen
frm_new_td.cb_stat.AddItem ("in Arbeit")
frm_new_td.cb_stat.AddItem ("erledigt")
frm_new_td.cb_stat.AddItem ("on hold")
frm_new_td.t_ter.Value = Date
End Sub
Private Sub cmd_okay_Click() //"Submit" der Form
Application.ScreenUpdating = False
Sheets("_control").Select
ins_line = Range("D10").Value
rol_num = Range("C10").Value
Range("D10").Value = ins_line + 1
Range("C10").Value = rol_num + 1
// Einfügen der Formular Werter in Sheet
Sheets("ToDo's aktiv (intern)").Select
Range("A" & ins_line).Value = rol_num
Range("B" & ins_line).Value = frm_new_td.cb_ver.Value
Range("C" & ins_line).Value = frm_new_td.t_anl.Value
Range("D" & ins_line).Value = frm_new_td.cb_kat.Value
Range("E" & ins_line).Value = frm_new_td.t_auf.Value
Range("F" & ins_line).Value = frm_new_td.cb_prio.Value
Range("G" & ins_line).Value = frm_new_td.t_res.Value
Range("H" & ins_line).Value = frm_new_td.t_ter.Value
Range("K" & ins_line).Value = frm_new_td.cb_stat.Value
Range("L" & ins_line).Value = frm_new_td.t_out.Value
Range("M" & ins_line).Value = frm_new_td.t_bem.Value
Application.ScreenUpdating = True
End Sub