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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen