if-Abfrage auf Text-Box
20.07.2006 19:09:59
Dirk
Ich möchte mit über eine Textbox die Fußzeile befüllen:
Da funktioniert über das folgende Makro ganz gut:
Sub Arbeit()
Dim ws As Worksheet
For Each ws In Worksheets
ws.PageSetup.LeftFooter = UserForm1.TextBox1.Text
ws.PageSetup.RightFooter = UserForm1.TextBox2.Text
Next ws
UserForm1.Hide
End Sub
Ich möchte jetzt steuern, daß nur der Teil der Fußzeile verändert wird, für den ein Text erfasst wird, d.h. wenn z.B. die Text Box1 leer bleibt, soll die linke Fußzeile nicht gelöscht, sondern unverändert belassen werden.
Wie muss ich die if-Abfrage formatieren ?
Vielen Dank im Voraus
Dirk
Anzeige