Hallo Clancy,
mit der Codezeile
Sheets("Tabelle2").Cells(Selection.Row, 1) = UserForm1.TextBox1.Valueewird Dir der Wert aus der TextBox in das Tabellenblatt mit dem Namen "Tabelle2" in Spalte A in der entsprechenden Zeile eingetragen.
Dein 2. Wunsch ist etwas heikler. Man könnte zwar mit der Codezeile
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Tabelle2").Cells(Selection.Row, 1)
End Subbden Wert aus Tabellenblatt "Tabelle2" aus Spalte A wieder in die TextBox zurücklesen, aber dann darf man zwischen dem Schließen der UserForm und dem erneuten Aufrufen der Userform in keine andere Zelle einer anderen Zeile klicken, da dann ja die Zeile nicht mehr stimmen würde.
Man könnte hier mit einer Variablen arbeiten, die man in einem Standardmodul als Public deklariert. Dazu einfach ein Modul einfügen und in dieses Modul dann die Zeile
Public lngLastRow As Longgwobei Du der Variablen "lngLastRow " auch einen anderen Namen vergeben kannst. In die UserForm schreibst Du dann in das Ereignis, mit dem Du den Wert in die Zelle in Tabellenblatt "Tabelle2" schreibst die Codezeilen
lngLastRow = Selection.Row
Sheets("Tabelle2").Cells(lngLastRow, 1) = UserForm1.TextBox1.Valueein das Ereignis "UserForm_Initialize" der USerForm schreibst Du dann
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Tabelle2").Cells(lngLastRow, 1)
End SubbDer Wert der Variablen bleibt solange erhalten bis er überschrieben wird. Nachteil hier, wird die Datei geschlossen und wieder geöffnet, kann nicht mehr festgestellt werden, in welcher Zeile der letzte Eintrag stattgefunden hat.
Damit man auch nach dem Schließen und Öffnen auf dei letzte Zeilennummer zurückgreifen kann, muss dieser Wert irgendwo in der Datei abgespeichert werden. Ich mache mir hierzu immer ein Tabellenblatt, dass ich Hilfstabelle nenne und dann ausblende. Ich lasse dann die Zeilennummer in eine bestimmte Zelle dieses Hilfstabellenblatts schreiben. Wenn ich dann die Datei speichere, schließe und wieder öffne, kann ich den Wert aus dieser Zelle auslesen und weiß dann, welche Zeile die letzte bearbeitete war.
Ich habe Dir zur Veranschaulichung mal eine Beispieldatei erstellt, in der alle 3 Varianten aufgezeigt werden. Lade Dir die Datei unter
http://www.excelbeispiele.de/beispiele_supportnet/Beispiel_Clancy.xls mal herunter und schaue es Dir an.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]