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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen