Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Fußzeilen beim Öffnen eintragen

Gruppe

Kopf/Fußzeile

Problem

Wie kann ich in die Fußzeile des 1. Arbeitblattes jeder Arbeitsmappe, die ich öffne, den Pfad, die Seitenzahl und den UserNamen eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Oeffnen()
   Const csFilter  As String = "Excel-Dateien(*.xls), *.xls"
   Dim vFile As Variant
   vFile = Application.GetOpenFilename(dFilter)
   If vFile = False Then Exit Sub
   Workbooks.Open vFile
   With ActiveWorkbook.ActiveSheet.PageSetup
      .LeftFooter = ActiveWorkbook.Path
      .CenterFooter = "&N"
      .RightFooter = Application.UserName
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile