Es scheint mir dass mein Excel mich nicht mag. Ich erhalte immer noch eine Fehlermeldung jedoch habe ich mit dem Code eines Kollegen einen Erfolg erzielen können:

If Range("A13").Value = "" Then
Sheets("Zusammenstellung_Umsatz").Range("A13").Value = dateaus
Else
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = dateaus
End If

Einziges Problem dass ich nun noch habe ist, dass dieser nur dann funktioniert, wenn ich die UserForm in diesem Sheet öffne. Was muss ich tun, damit der Eintrag auch getätigt wird wenn ich das UserForm im Sheet "Auftragscontrolling" öffne und in das Sheet "Zusammenstellung_Umsatz" schreiben will?Vieln Dank für die Unterstützung