Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gestaltung von Fußzeilen

Gestaltung von Fußzeilen
28.08.2006 10:57:37
Fußzeilen
Hallo zusammen!
Ich möchte mit dem angefügten Makro die Erfassung von Kopf- und Fußzeilen steuern. Siehe Beispiel:
https://www.herber.de/bbs/user/36205.xls
Eine Funktion soll es ermöglichen, die Daten in Kopf- und Fußzeile des aktuellen Arbeitsblattes in die UserForm einzulesen.
Kann mir jemand eine Lösung für das Problem nennen.
Danke im Voraus
Dirk

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

Betreff
Datum
Anwender
Anzeige
AW: Gestaltung von Fußzeilen
28.08.2006 14:05:27
Fußzeilen
Hallo Dirk,
das Makro zum Auslesen der Informationen sieht etwa so aus:

Sub Auslesen()
'Einlesen der Einstellungen des aktuellen Blattes (Tabelle oder Diagramm)
Dim Blatt As Object
Set Blatt = ActiveSheet
With UserForm2
.TextBox1.Text = Blatt.PageSetup.LeftHeader
.TextBox2.Text = Blatt.PageSetup.CenterHeader
.TextBox3.Text = Blatt.PageSetup.RightHeader
.TextBox4.Text = Blatt.PageSetup.LeftFooter
.TextBox5.Text = Blatt.PageSetup.CenterFooter
.TextBox6.Text = Blatt.PageSetup.RightFooter
End With
End Sub

Ich empfehle in diesem Fall, die Makros "Auslesen", "EinBlatt" und "AlleBlätter" nicht in einem allgemeinen Modul (hier Fusszeile) zu speichern, sondern unter der Codeseite des Userforms einzufügen und als "Private Sub ..." zu deklarieren.
Dann besteht nicht die Gefahr, dass man diese Makros versehentlich direkt startet.
Gruß
Franz
Anzeige
AW: Gestaltung von Fußzeilen
28.08.2006 18:58:12
Fußzeilen
Hallo Franz,
das hat bestens funktioniert. Danke auch für den Tip mit der Private Sub.
Gruß
Dirk

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige