Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1764to1768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform Inhalt speichern

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

Betrifft: AW: Userform Inhalt speichern

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
Was du allerdings mit deiner zweiten Anforderung mit der Reihenfolge auf Blatt Tool meinst versteh ich leider nicht.
Grüße, Bernd
Betrifft: AW: Userform Inhalt speichern
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Inhalt speichern
26.06.2020 11:45:56
Hajo_Zi
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
Was du allerdings mit deiner zweiten Anforderung mit der Reihenfolge auf Blatt Tool meinst versteh ich leider nicht.
Grüße, Bernd
Betrifft: AW: Userform Inhalt speichern
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
AW: Userform Inhalt speichern
26.06.2020 11:45:56
Hajo_Zi
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.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige