benutzerdefinierte Fußzeile pflegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Datum aus Tabelle Zelle "G1" in Fußzeile aller Blätter übertragen Dim wks As Worksheet, wb As Workbook Set wb = ThisWorkbook If Target.Address = "$G$1" Then For Each wks In wb.Worksheets With wks.PageSetup '.LeftHeader = "xxx" '.CenterHeader = "xxx" '.RightHeader = "xxx" '.LeftFooter = "xxx" .CenterFooter = "Bericht vom: " & Format(Target.Value, "DD.MM.YYYY") '.RightFooter = "xxx" End With Next wks End If End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Datum aus Tabelle Zelle "G1" in Fußzeile aller Blätter übertragen Dim wks As Worksheet, wb As Workbook Set wb = ThisWorkbook If Target.Address = "$G$1" Then If IsDate(Target) Then For Each wks In wb.Worksheets With wks.PageSetup '.LeftHeader = "xxx" '.CenterHeader = "xxx" '.RightHeader = "xxx" '.LeftFooter = "xxx" .CenterFooter = "Bericht vom: " & Format(Target.Value, "DD.MM.YYYY") '.RightFooter = "xxx" End With Next wks Else MsgBox "In Zelle G1 muss ein Datum eingegeben werden!" End If End If End Sub

Hallo Jan,
ich hatte ja geschrieben, dass das Makro im VBA-Editor unter Tabelle1 eingefügt werden muß. Also nicht in ein Modul.
Das Makro hat diesen speziellen Namen und wird automatisch ausgeführt, wenn in der Tabelle Einträge geändert werden. Dies ist die komfortabelste Lösung. Dazu deine Schrittfolge ab Schritt 5 ändern:
1. Neue Excel-Datei angelegt
2. "1.1.2006" in Zelle G1 eingetragen
3. Datei gespeichert
4. ALT-F11 gedrückt
5. Doppel-Klick auf Tabelle1 (die Tabelle in der das Datumsfeld steht)
6. Quelltext im rechten Fenster eingefügt
7. Modul gespeichert (STRG-S)
8. VB-Editor geschlossen
9. Datum in Zelle G1 eingeben/ändern
Falls du den Automatismus nicht möchtest, dann muß das Makro etwas anders aus sehen und in ein Modul eingefügt werden:


Sub Fusszeile()
'Datum aus Tabelle1 Zelle "G1" in Fußzeile aller Blätter übertragen
Dim wks As Worksheet, wb As Workbook, rngZelle As Range
Set wb = ThisWorkbook
Set rngZelle = wb.Sheets("Tabelle1").Range("G1") ' Zelle mit Datum
If IsDate(rngZelle.Value) Then
For Each wks In wb.Worksheets
With wks.PageSetup
'.LeftHeader = "xxx"
'.CenterHeader = "xxx"
'.RightHeader = "xxx"
'.LeftFooter = "xxx"
.CenterFooter = "Bericht vom: " & Format(rngZelle.Value, "DD.MM.YYYY")
'.RightFooter = "xxx"
End With
Next wks
Else
MsgBox "In Zelle G1 muss ein Datum eingegeben werden!"
End If
End Sub

Hoffe du kommst jetzt zurecht.
mfg
Franz

Beliebteste Forumthreads (12 Monate)

benutzerdefinierte Fußzeile pflegen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread