If Cells(i, 9).Value = "Nein" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rechnung = Range("I1")
Range("I1").Select
Selection.Copy
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Zollvorlage.xlsm").Activate
Range("M69:O69").Select
ActiveSheet.Paste
Windows("A_Rechnungen.xlsm").Activate
Set rngC = Nothing
Set rng = Nothing