|
Hallo Stephan,
ändere so:
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
Ohne den Punkt vor Cells... wird das aktive Blatt angesprochen, mit Sheets("xyz").Cells... wird das benannte Blatt angeredet.
Das With ist nur aus Bequemlichkeit da.
Gruß der ALteDresdner
|