Kann man diese Zeile:
ActiveSheet.PageSetup.RightFooter = "&""Arial""&14" & Sheets("daten").Cells(pintWoche + 1, 6)
so abändern, dass der Text der erscheinen soll bei jeden "/" ein Zeilenumbruch in der Fußzeile erzwingt.
Gruß
Fred
Function fktMeldung(pintWoche As Integer) As String
Dim intDown As Integer
Dim FussRechts As String
intDown = (pintWoche - 1) * 35 + 5
Sheets("daten").Range("b1") = pintWoche
ActiveWindow.ScrollRow = intDown
Cells(intDown, 1).Select
Application.ScreenUpdating = True
With Sheets("daten").Cells(pintWoche + 1, 6)
Application.StatusBar = Sheets("daten").Cells(pintWoche + 1, 6)
If .Value = "" Then
MsgBox "Kein Eintrag!"
Else
MsgBox .Value
FussRechts = "&""Arial""&14" & Sheets("daten").Cells(pintWoche + 1, 6)
FussRechts = Application.WorksheetFunction.Substitute(Text, "/", "/" & Chr(10))
ActiveSheet.PageSetup.RightFooter = FussRechts
End If
End With
End Function