ich erstelle mit folgendem Code einen Eintrag in der Kopfzeile:
Private Sub Workbook_Open()
Dim objWS As Worksheet
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Druck: " & _
Format(Date, "dd. MMMM yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " Uhr von " & Environ("UserName")
Next objWS
End Sub
Jetzt soll aber der Kopfzeileneintrag in Abhängigkeit von einer Zelle stehen.Der nachfolgende Code funktioniert nicht (ich kann kein VBA), soll aber die funktionsweise erklären.
Private Sub Workbook_Open()
Dim objWS As Worksheet
If Sheets("Sprachauswahl").Range("F2") = 1 Then
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Druck: " & _
Format(Date, "dd. MMMM yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " Uhr von " & Environ("UserName")
Next objWS
If Sheets("Sprachauswahl").Range("F2") = 2 Then
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "Print: " & _
Format(Date, "MMMM, dd yyyy") & " / " & _
Format(Time, "hh:mm:ss") & " clock by " & Environ("UserName")
Next objWS
If Sheets("Sprachauswahl").Range("F2") = 3 Then
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = "压力: " & _
Format(Date, "yyyy m dd") & " / " & _
Format(Time, "hh:mm:ss") & " 从中 " & Environ("UserName")
Next objWS
End Sub
Eine weitere Frage wäre den Befehl Format(Date, ....) als Druckdatum auszugeben. Geht das?Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf