Leider habe ich noch einen Fehler gefunden.
Wie kann ich verhindern in dem folgenden Script dass mehrmals der gleiche Eintrag im Tabellenblatt eingetragen wird?
Sub uebertrag()
Dim name(1 To 5) As String
Worksheets("Maske").Select
Name1 = Range("K10")
Name2 = Range("K12")
Name3 = Range("K14")
Name4 = Range("K16")
Name5 = Range("K18")
Worksheets("Aufträge gesammt").Select
Worksheets("Aufträge gesammt").Range("A4").Select
If Worksheets("Aufträge gesammt").Range("A4").Offset(1, 0) "" Then
Worksheets("Aufträge gesammt").Range("A4").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Name1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name5
End Sub