ich habe eine Excel-Datei, einen Commandbutton und eine Userform. Mit Klick auf den Commandbutton soll sich die Userform öffnen und gleichzeitig sollen Werte aus der Excel-Tabelle dort erscheinen.
Und zwar die letzten Inhalte bestimmter Zeilen. Konkret soll in Textbox 1 der letzte Wert aus Zeile 7 usw. stehen (Mehr siehe Code unten). Dieser Code funktionierte mal in einer anderen Tabelle. Nun müsste ich den Code ändern, damit die Einträge passen. Aber was muss ich ändern? Es wäre super wenn mir jemand helfen könnten, z.B. Jens, der mir damals schon so gut geholfen hat.
Ach ja, der commandbutton_KW_Click soll automatisch zum letzten Eintrag führen von Zeile 7, auch das geht leider (noch) nicht.
Gruß
Marcel
Option Explicit
Private Sub CommandButton_KW_Click()
Cells(7, (Range("IV5").End(xlToLeft).Column)).Activate
End Sub
Private Sub UserForm1_Initialize()
Dim i As Long
i = Range("IV5").End(xlToLeft).Column ' hier das -1 weglassen
Label1 = "KW: " & Cells(5, i)
TextBox1 = Cells(7, i)
TextBox3 = Cells(9, i)
TextBox4 = Cells(17, i)
TextBox6 = Cells(19, i)
End Sub
Private Sub CommandButton_OK_Click()
UserForm1.Hide
End Sub