Letzte Zelle in Tabellenblatt fix
20.02.2018 13:05:25
Okan
ich habe folgendes Problem. Ich würde mit dem Makro die letzte Zelle ausfindig machen wollen in einem Einzigen Tabellenblatt und die Werte dann dementsprechend eintragen lassen. Sobald ich jedoch in einer anderen Tabelle bin, werden die Werte in die aktive Tabelle eingetragen. Wie muss ich den Code ändern um mein Vorhaben hinzubekommen.
Private Sub Anmelden_Click()
'Erste freie Zelle Ausfindig machen
Dim last As Integer
last = Sheets("JAV_Seminar_Tabelle").Cells(Rows.Count, 1).End(xlUp).Row + 1
'Name
Cells(last, 1).Value = TextBox_Name
'Vorname
Cells(last, 2).Value = TextBox_Vorname
'Ausbildungsstart
Cells(last, 3).Value = TextBox_Ausbildungsstart
'Seminarnummer
Cells(last, 4).Value = TextBox_Seminarnummer
'Schule
Cells(last, 9).Value = TextBox_Schule
'Bildungsurlaubsanspruch
Cells(last, 10).Value = TextBox_Bildungsurlaubsanspruch
'Informationsweitergabe
Cells(last, 11).Value = TextBox_Informationsweitergabe
End Sub
Okan
Anzeige