Private Sub cmbOK_Click()
Dim x As String
Dim y As String
Dim z As String
TextBox2.Value = Format(Date,"tt.mm.jjjj")
TextBox3.Value = Application.UserName
x = TextBox1.Value
y = TextBox2.Value
z = TextBox3.Value
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.CenterHeader = "&""Calibri,Fett""&16Funktionskosten " & x
.LeftFooter = "&""Calibri,Fett""&9Erstelldatum: " & y & Chr(10) & "&9Bearbeiter/Abteilung: " & z
End With
Application.PrintCommunication = True
Unload usf_Befüllen
End Sub