Sub NeuerAuftrag()
Sheets("2. Kostenträger").Activate
Dim letzte
Dim Hauptauftragsnr
Set Hauptauftragsnr = Worksheets("Tabellenblatt2").Range("C3")
With Worksheets("Tabellenblatt1").Activate
For letzte = 2 To Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
If Cells(letzte, 3) = "" Then
Cells(letzte, 3).Value = Worksheets("Tabellenblatt2").Cells(letzte, 3)
Cells(letzte, 3) = Worksheets("Tabellenblatt2").Range(3, 3)
End If
Next
End With
End Sub