Guten Morgen!

Ich hoffe hier kann mir jemand helfen, ich habe verschiedene Daten, die ich durch eine manuelle Abfrage vom Anwender bekomme und möchte diese Daten jetzt in ein bestimmtest Tabellenblatt immer in die letzten freien Zeilen einfügen. Soweit klappt das auch alles, allerdings werden die Daten immer in das aktive Tabellenblatt eingetragen. Am Ende soll es so aussehen, dass das erste Tabellenblatt einfach nur einen Button beinhaltet, sich dann die Fenster mit den Datenabfragen öffnen und die Daten dann auf das zweite Tabellenblatt mit dem Namen "Datenbank" eingetragen werden.

Frage also: Wie bekomme ich es hin, dass die Daten immer auf das zweite Tabellenblatt geschrieben werden? Mein Code sieht wie folgt aus:

Private Sub CommandButton_Einfügen_Click()

Dim last As Integer
last = Sheets("Datenbank").Cells(Rows.Count, 2).End(xlUp).Row + 1

Cells(last, 1).Value = "Standardanlage"
Cells(last, 2).Value = ComboBox_AnlagenTyp
Cells(last, 3).Value = TextBox_Kunde
Cells(last, 4).Value = TextBox_Projektleiter
Cells(last, 5).Value = TextBox_Auftragsnummer
Cells(last, 7).Value = TextBox_CENummer
Cells(last, 10).Value = TextBox_OrdnerNummer
Cells(last, 8).Value = ComboBox_Konstruktionsjahr
Cells(last, 6).Value = TextBox_Lieferdatum
Cells(last, 11).Value = TextBox_SiebNummer
Cells(last, 15).Value = TextBox_Erreger1Nummer
Cells(last, 16).Value = TextBox_Erreger2Nummer
Cells(last, 17).Value = TextBox_Pumpe1Nummer
Cells(last, 18).Value = TextBox_Pumpe1MotorNummer
Cells(last, 20).Value = TextBox_Pumpe2Nummer
Cells(last, 21).Value = TextBox_Pumpe2MotorNummer

MsgBox ("Die Daten wurden erfolgreich in die Datenbank eingegeben!")
Unload UserForm2
ActiveWorkbook.Save
End Sub

Vielen Dank für eure Hilfe und einen angenehmen Sonntag :)

Stephan