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

Löschen d. vorhandenen Kopf- und Fußzeileneinträge

Löschen d. vorhandenen Kopf- und Fußzeileneinträge
26.10.2006 16:14:17
Ellen
Unter Ansicht/Kopf- und Fußzeile kann ich beide benutzerdefiniert einrichten. Was immer ich als benutzerdefinierte Kopf- und Fußzeile eintrage, es wird in das Auswahlfenster Kopf- bzw. Fußzeile eingetragen.
Das Problem: Diese Eintragung lassen sich nicht mehr löschen und können von jedem Empfänger dieser Datei gesehen werden.
Gibt es einen Weg, diese Einträge zu löschen?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen d. vorhandenen Kopf- und Fußzeileneinträge
Orakel
so löschst Du alle Eintragungen:
Sub loeschen()
    Dim objWorksheet As Worksheet
    Dim strHeader() As String, strFooter() As String
    Dim intCount As Integer
    ReDim strHeader(1 To Worksheets.Count, 1 To 3)
    ReDim strFooter(1 To Worksheets.Count, 1 To 3)
    For Each objWorksheet In ThisWorkbook.Worksheets
        intCount = intCount + 1
        With objWorksheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
        End With
    Next objWorksheet
    intCount = 0
    End Sub
Anzeige
AW: Löschen d. vorhandenen Kopf- und Fußzeileneinträge
Orakel
kürzer:
Sub loeschen()
    Dim objWorksheet As Worksheet
    For Each objWorksheet In ThisWorkbook.Worksheets
        With objWorksheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
        End With
    Next objWorksheet
    End Sub
Anzeige
AW: Löschen d. vorhandenen Kopf- und Fußzeileneinträge
27.10.2006 08:54:03
Ellen
Danke. Ich habe das mal ausprobiert, aber da steht immer noch was drin. Ich vermute, das sind die Standardvorgaben von Microsoft, z. B. Seite 1, der Dateiname, erstellt von ...., und die kann man nicht rauslöschen. Ich melde mich nochmals, falls ich noch weitere Fragen habe.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige