Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenumbruch in der Fußzeile

Zeilenumbruch in der Fußzeile
Fred
Hallo, habe noch mal ne Frage !
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilenumbruch in der Fußzeile
Uwe
Hallo Fred,
so sollte es gehen:
Dim FussRechts As String
FussRechts = "&""Arial""&14" & Sheets("daten").Cells(pintWoche + 1, 6)
FussRechts = Application.WorksheetFunction.Substitute(Text, "/", "/" & Chr(10))
ActiveSheet.PageSetup.RightFooter = FussRechts
Gruß Uwe
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige