Userform Inhalt speichern
26.06.2020 11:45:56
Hajo_Zi
Liebe Genies,
kann mir bitte jemand helfen, ich verzweifel aber finde den Fehler nicht.
https://www.herber.de/bbs/user/138497.xlsm
Ich möchte Bei dem ToDo Button ausfüllen können, dann soll es in Blatt Tool_3 abgespeichert werden und zwar immer in die nächste freie Zeile und es soll auf Blatt 1 also Tool in der roten Tabelle ausgegeben werden, allerdings in der Reihenfolge, dass das nächste Datum immer als oberstes steht
Falls sich mir jemand annehmen könnte wäre ich sehr dankbar.
Grüße Antje
Servus Antje,
der Übertrag in Tool_3 geht z.B. so:
Private Sub SpeichernButton_Click()
Dim intLZ as Long
'Eingaben der Schaltfläche übernehmen
With ThisWorkbook.Worksheets("Tool_3")
intLZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intLZ, 1) = CDate(TextBox2)
.Cells(intLZ, 2) = TextBox1
.Cells(intLZ, 3) = CDate(TextBox3)
End With
With Me
.TextBox1 = ""
.TextBox2 = ""
End With
MsgBox "Dataset saved"
End Sub
Grüße, Bernd
Hallo Bernd,
lasse den Fragesteller entscheiden ob offen.
Es ist heute nicht mehr üblich eine Rückmeldung zu geben und so ist der Beitrag über 6 Tage offen.
Das ist nur meine Meinung zu dem Thema.
Anzeige