|
Servus,
dank schonmal für eure Hilfe!
Hab es geändert, allerdings werden die Werte immernoch in das erste Tabellenblatt geschrieben. Code sieht nun wie folt aus:
Private Sub CommandButton_Einfügen_Click()
Dim last As Long
With Sheets("Datenbank")
last = .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
End With
MsgBox ("Die Daten wurden erfolgreich in die Datenbank eingegeben!")
Unload UserForm2
ActiveWorkbook.Save
End Sub
|