Sub Auswertung()
Dim PartNumber As String
Dim Parts As String
Dim Quantity As String
Dim CertificateNumber As String
Dim CurrentTime As String
Dim CurrentUser As String
Worksheets("Ausgabe").Select
PartNumber = Range("B2")
Parts = Range("C2")
Quantity = Range("D2")
CertificateNumber = Range("E2")
CurrentTime = Range("F2")
CurrentUser = Range("G2")
Worksheets("Auswertung").Select
Worksheets("Auswertung").Range("B1").Select
If Worksheets("Auswertung").Range("B1").Offset(1, 0) <> "" Then
Worksheets("Auswertung").Range("B1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = PartNumber
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Parts
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Quantity
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CertificateNumber
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CurrentTime
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CurrentUser
Sheets("PartNumber").Select
ActiveWorkbook.Save
End Sub