Hallo Steffi
warum prüfst du nicht zuerst alle 3 Textboxen, ob value=""?
Nur wenn der Wert nicht leer ist, soll das Überschreiben ausgeführt werden, oder?
If Not x="" Then
.CenterHeader = "&""Calibri,Fett""&16Funktionskosten " & x
End If
If Not y="" And Not z=""Then
.LeftFooter = "&""Calibri,Fett""&9Erstelldatum: " & y & Chr(10) & "&9Bearbeiter/Abteilung: " & z
End If
Gute Nacht
Liliane
|