Sub uebertragDB()
Dim name(1 To 6) As String
Worksheets("Abrechnung").Select
ID = Range("F8")
Vorname = Range("H8")
Name1 = Range("J8")
Artikel1 = Range("F15")
Stk1 = Range("J15")
Preis1 = Range("N15")
Worksheets("Datenbank").Select
Worksheets("Datenbank").Range("A2").Select
If Worksheets("Datenbank").Range("A2").Offset(1, 0) <> "" Then
Worksheets("Datenbank").Range("A2").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ID
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Artikel1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Stk1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Preis1
End Sub