Daniel hier aus dem Forum hat mir bei meinem letzten Problem sehr gut weiter geholfen.
Jetzt wollte ich den Code eigenständig erweitern, schaffe dies aber nicht.
Es geht um folgendes:
Ich habe ein Tabellenblatt "Sprachauswahl". Hier wird mittels Optionsfeldern und der verknüpften Zelle F2 eine Sprache ausgewählt und dann auf dem Ergebnisblatt die Sprache angepasst. Daniel hat mir den oberen mit der Kopfzeile zur Verfügung gestellt, jetzt wollte ich selber die Fusszeile hinzufügen.
Das Ergebnis ist aber nicht wie gewünscht. In der Fusszeile wird statt Seite 1 von 2 nun der Pfad geschrieben. Auf der rechten Seite der Fusszeile war eine Grafik eingebunden, die ist jetzt weg. Wieso wird die überschrieben, wenn im Code nur von "CenterFooter" die Rede ist.
Kann mich bitte bei der Richtigstellung der mittleren Fusszeile unterstützen?
Der Prefix 2 Teil ist von mir, der Rest ist von Daniel und funktioniert auch.
Sub Sprachauswahl()
Dim objWS As Worksheet
Dim Prefix As String
Dim FormattedDate As String
Dim FormattedTime As String
Dim PostFix As String
Dim Prefix2 As String
Application.ScreenUpdating = False
Application.PrintCommunication = False
'Kopfzeile
FormattedTime = Format(Time, "hh:mm:ss")
Select Case Worksheets("Sprachauswahl").Cells(2, 6)
Case 1
Prefix = "Druck:"
FormattedDate = Format(Date, "dd. MMMM yyyy")
PostFix = " Uhr von "
Case 2
Prefix = "Print:"
FormattedDate = Format(Date, "MMMM, dd yyyy")
PostFix = " clock by "
Case 3
Prefix = "?"
FormattedDate = Format(Date, "yyyy m dd")
PostFix = "?"
End Select
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightHeader = Prefix & _
FormattedDate & " / " & _
FormattedTime & PostFix & Environ("UserName")
Next objWS
'Fußzeile
'Select Case Worksheets("Sprachauswahl").Cells(2, 6)
'Case 1
'Prefix2 = "Seite &Z von &F"
'Case 2
'Prefix2 = "Page &Z of &F"
'Case 3
'Prefix2 = "?"
'End Select
'For Each objWS In ThisWorkbook.Worksheets
'objWS.PageSetup.CenterFooter = Prefix2
'Next objWS
Application.ScreenUpdating = True
Application.PrintCommunication = True
End Sub
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf