Ich habe mit dem Code eines Kollegen einen Erfolg erzielen können:
1
2
3
4
5
|
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
|