Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fusszeile

Fusszeile
03.06.2007 12:30:00
deep192
Hallo miteinander
kennt jemand eine eine Möglichkeit, eine beliebige Zelle z.B. "J24" im Datumfomat in der Fusszeile darzustellen? Crux: Tabellenübergreifend, d.H die Fusszeile der Tabelle y greift auch auf die Zelle J24,Tabelle x.
Mein Ansatz:
......................................................

Public Sub Fusszeile()
With ActiveSheet.PageSetup
.LeftFooter = "&P" & " von " & "&N"
.CenterFooter = "&A" & Chr(13) & "© Systems"
.RightFooter = [J24]
End With
End Sub


......................................................
Viele Grüsse, deep192

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

Betreff
Datum
Anwender
Anzeige
AW: Fusszeile
03.06.2007 12:45:00
ransi
HAllo
Bau dir eine Schleife über jedes Blatt.
Den Text den du in den RightFooter haben willst musst du genau referenzieren.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub Fusszeile()
Dim sh As Object
For Each sh In Sheets
    With sh.PageSetup
        .LeftFooter = "&P" & " von " & "&N"
        .CenterFooter = "&A" & Chr(13) & "© Systems"
        .RightFooter = Sheets("Tabelle x").Range("J24").Text
    End With
Next
End Sub

ransi

Anzeige
AW: Fusszeile
04.06.2007 13:19:52
deep192
Vielen Dank für den Tipp!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige