Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: PageSetup.LeftHeader Problem

PageSetup.LeftHeader Problem
20.07.2004 20:44:13
Christoph
Hallo,
mein Problem ist, dass der Code auf einigen Kundenrechner läuft, auf anderen nicht :-((
Sieht jemand ein Problem? Hat jemand die Erfahrung gemacht, dass Code auf einigen Rechner stoppt, auf anderen nicht?
Bin ratlos...
With ActiveSheet.PageSetup
.LeftHeader = strLH
.CenterHeader = strCH
.RightHeader = strRH
End With
strLH hat zur Laufzeit den Inhalt "Ziel- und Wirkungsorientiertes Berichtswesen"
Fehler 1004: Die LeftHeader-Eigenschaft des PageSetup-Objektes kann nicht festgelegt werden.
Danke
Christoph
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PageSetup.LeftHeader Problem
Nike
Hi,
aber nicht das das active sheet gerade gesperrt/geschuetzt ist?
Ansonsten hatte ich bisher immer nur Probleme mit der Aufloesung
die der eine Drucker unterstuetze und der andere nicht...
Bye
Nike
AW: PageSetup.LeftHeader Problem
21.07.2004 06:25:35
Christoph
nichts ist geschützt, rein gar nichts. Einfach nur ein Blatt, mit Daten.
Jemand eine Idee?
Christoph
Anzeige
AW: PageSetup.LeftHeader Problem
GerdZ
Hallo Christoph,
evtl. ist der eingestellte Drucker nicht vorhanden oder ausgeschaltet?
Gruß
Gerd
genau! Drucker auf Schulungsrechner fehlt
Christoph
Danke!!
Gerd. Ich habe einen neuen Thread zum Thema Defaultprinter aufgemacht.
;
Anzeige
Anzeige

Infobox / Tutorial

PageSetup.LeftHeader Problemlösungen in Excel


Schritt-für-Schritt-Anleitung

Um das Problem mit PageSetup.LeftHeader in Excel zu lösen, gehe wie folgt vor:

  1. Überprüfe den Drucker: Stelle sicher, dass der Standarddrucker auf dem Rechner, auf dem der Code nicht funktioniert, korrekt eingerichtet und angeschlossen ist.

  2. Aktiviere das Arbeitsblatt: Stelle sicher, dass das aktive Blatt nicht geschützt ist. Du kannst dies in den Excel-Optionen überprüfen.

  3. Code anpassen: Verwende den folgenden VBA-Code, um ein Beispiel für die korrekte Verwendung von PageSetup.LeftHeader zu sehen:

    Dim strLH As String
    strLH = "Ziel- und Wirkungsorientiertes Berichtswesen"
    
    With ActiveSheet.PageSetup
       .LeftHeader = strLH
       .CenterHeader = "Center Header"
       .RightHeader = "Right Header"
    End With
  4. Testen: Führe den Code aus und überprüfe, ob der Fehler 1004 weiterhin auftritt.


Häufige Fehler und Lösungen

  • Fehler 1004: Dieser Fehler tritt häufig auf, wenn die LeftHeader-Eigenschaft nicht festgelegt werden kann. Prüfe, ob der Drucker verbunden ist und ob das Arbeitsblatt geschützt ist.

  • Druckerprobleme: Wenn der Drucker auf einem anderen Rechner nicht vorhanden ist, kann dies ebenfalls den Fehler verursachen. Stelle sicher, dass der Drucker korrekt installiert ist und als Standarddrucker eingerichtet wurde.


Alternative Methoden

Falls das Problem weiterhin besteht, kannst du auch folgende Alternativen ausprobieren:

  • Verwende eine andere Excel-Version: Manchmal können unterschiedliche Excel-Versionen zu Komplikationen führen. Teste den Code in einer anderen Version von Excel, um zu sehen, ob das Problem dort ebenfalls auftritt.

  • Manuelle Einstellung: Du kannst die LeftHeader-Einstellung auch manuell über die Seitenlayout-Optionen in Excel vornehmen, um zu prüfen, ob dabei ein Fehler auftritt.


Praktische Beispiele

Hier sind einige Beispiele, wie du PageSetup.LeftHeader verwenden kannst:

  1. Einfache Header-Setzung:

    ActiveSheet.PageSetup.LeftHeader = "Mein Linker Header"
  2. Dynamische Header-Setzung:

    Dim strLH As String
    strLH = "Bericht vom " & Format(Date, "dd.mm.yyyy")
    ActiveSheet.PageSetup.LeftHeader = strLH

Diese Beispiele helfen dir, den leftheader effektiv zu nutzen und mögliche Probleme frühzeitig zu erkennen.


Tipps für Profis

  • Debugging im Code: Nutze die Debug.Print-Anweisung, um Variableninhalte zu überprüfen, bevor du sie an PageSetup.LeftHeader übergibst.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um spezifische Fehler zu identifizieren und zu lösen.

    On Error Resume Next
    ActiveSheet.PageSetup.LeftHeader = strLH
    If Err.Number <> 0 Then
       MsgBox "Fehler beim Setzen des LeftHeaders: " & Err.Description
    End If
    On Error GoTo 0

FAQ: Häufige Fragen

1. Warum kann ich PageSetup.LeftHeader nicht festlegen?
Es kann daran liegen, dass der Drucker nicht vorhanden ist oder das Arbeitsblatt geschützt ist. Überprüfe die Druckereinstellungen und den Schutzstatus des Blattes.

2. Welche Excel-Version sollte ich verwenden?
Die meisten Probleme treten in älteren Excel-Versionen auf. Es wird empfohlen, die neueste Version von Excel zu verwenden, um Kompatibilitätsprobleme zu minimieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige