AW: Zeilenumbruch in der Fußzeile
22.04.2004 18:54:09
Fred
Hallo Uwe, danke für deine Bemühung, aber irgend wie funktioniert das nicht.
Hier ist die gesamte Function, evt. findest du den Fehler.
An welcher stelle sollte deine Syntax stehen ?
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
Gruß
Fred