Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1584to1588
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

Daten aus letzter Zeile in Sheet1 in UF2 einlesen

Daten aus letzter Zeile in Sheet1 in UF2 einlesen
22.10.2017 13:19:26
Michael
Ich schreibe Daten über eine Userform1 zeilenweise in das Tabellensheet1 (Das funktioniert problemlos.) [In Tabellensheet1 befindet sich in Spalte "B" der Vorname und in Spalte "C" der Nachname.]
Diese beiden Angaben benötige ich ein zweites Mal in einer weiteren Tabelle ("Tabellensheet2"). Im "Tabellensheet2" lässt sich via Button eine weitere Userform2 aufrufen.
Diese Userform2 soll die beiden Angaben "Vor- und Nachname" aus der jeweils letzten Zeile aus Tabellensheet1 automatisch in die Userform2 einlesen, so dass der Benutzer Vor- und Nachname nicht extra ein zweites Mal in die Userform2 eintippen muss.
Ist sowas machbar? Wäre dankbar, wenn jemand einen Hinweis oder einen Bsp.-Code hat. Schönen Rest-Sonntag noch, Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus letzter Zeile in Sheet1 in UF2 einlesen
22.10.2017 13:32:44
Nepumuk
Hallo Michael,
teste mal:
Private Sub UserForm_Initialize()
    Dim lngLastUsedRow As Long
    With Worksheets("Tabelle1")
        lngLastUsedRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        TextBox1.Text = .Cells(lngLastUsedRow, 2).Text
        TextBox2.Text = .Cells(lngLastUsedRow, 3).Text
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Daten aus letzter Zeile in Sheet1 in UF2 einlesen
22.10.2017 14:05:52
Michael
Genial, Funktioniert einwandfrei. Tausend Dank. Liebe Grüße, Michael

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige