ich brauche eure Hilfe.
wie kann ich es machen, das wenn die Userform geschlossen wird ,die Seite automatisch aktualisiert wird .? ich muss erst auf eine andere Seite gehen das aktualisiert wird..
Sub speichern_click() MsgBox "Einträge speichern?", vbYesok Dim r& Dim wks As Worksheet Set wks = Worksheets("Tabelle2") r = wks.Cells(Rows.Count, 13).End(xlUp).Row + 1 wks.Cells(r, 1) = Label4 wks.Cells(r, 2) = Label2 wks.Cells(r, 3) = ComboBox1.Text wks.Cells(r, 4) = ComboBox2.Text wks.Cells(r, 5) = TextBox6.Text wks.Cells(r, 6) = TextBox7.Text wks.Cells(r, 7) = TextBox4.Text wks.Cells(r, 8) = TextBox5.Text wks.Cells(r, 10) = ComboBox3.Text wks.Cells(r, 11) = TextBox8.Text wks.Cells(r, 12) = TextBox9.Text wks.Cells(r, 13) = TextBox10.Text Unload Me End Sub
Sub speichern_click() MsgBox "Einträge speichern?", vbYesok Dim r& Dim wks As Worksheet Set wks = Worksheets("Tabelle2") r = wks.Cells(Rows.Count, 13).End(xlUp).Row + 1 wks.Cells(r, 1) = Label4 wks.Cells(r, 2) = Label2 wks.Cells(r, 3) = ComboBox1.Text wks.Cells(r, 4) = ComboBox2.Text wks.Cells(r, 5) = TextBox6.Text wks.Cells(r, 6) = TextBox7.Text wks.Cells(r, 7) = TextBox4.Text wks.Cells(r, 8) = TextBox5.Text wks.Cells(r, 10) = ComboBox3.Text wks.Cells(r, 11) = TextBox8.Text wks.Cells(r, 12) = TextBox9.Text wks.Cells(r, 13) = TextBox10.Text letzterEintrag = Worksheets("Tabelle1").Cells(Rows.Count, 8).End(xlUp).Row wks.Cells(19, 5).Value = Worksheets("Tabelle1").Cells(letzterEintrag, 8).Value Unload Me End Sub