Hallo,
wie kann ich mittels VBA die Kopfzeile in einer Excel-Tabelle erst ab Seite 3 anzeigen lassen?
Viele Grüße + Danke für jede Antwort!
Dandelion
wie kann ich mittels VBA die Kopfzeile in einer Excel-Tabelle
erst ab Seite 3 anzeigen lassen?
Hallo Dandelion
Du schreibst
Danke für jede Antwort!
Ich gebe Dir hier eine, die nicht Deiner Frage entspricht, aber in diese Richtung geht: Ich hatte ein ähnliches Problem mit dem Drucken und habe es mit folgendem Makro gelöst.
Wie man die Anzeige zwischen den ersten beiden und den übrigen Seiten ändern kann, da kann ich Dir leider nicht helfen. Seite 1 anders als die übrigen, das wirst Du sicher kennen.
Trotzdem viele Grüsse
Niclaus
Sub DruckTest()
AnzSeiten = ExecuteExcel4Macro("Get.Document(50)")
SeitenZahl = InputBox("Welche Seiten sollen gedruckt werden?" & Chr(13) & \_
"a = Seiten 1-2 / b = Seiten 3 - xx", , "a")
If SeitenZahl = "a" Then
mgb = MsgBox("Ist die Datei gespeichert?", 36)
If mgb = 7 Then Exit Sub
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate \_
:=True, IgnorePrintAreas:=False
MsgBox "Achtung: Kopf- und Fusszeilen sind entfernt worden." & Chr(13) & \_
"Schliessen Sie die Datei, ohne sie zu speichern!", 16
End If
If SeitenZahl = "b" Then
If AnzSeiten
wie kann ich mittels VBA die Kopfzeile in einer Excel-Tabelle
erst ab Seite 3 anzeigen lassen?
Hallo Dandelion
Ich habe eine Idee, wie das mit VBA gemacht werden könnte.
Allerdings müsste man dazu wissen: Was meinst Du genau mit „anzeigen“? Seitenansicht, Seitenlayout oder Umbruchvorschau (in Excel 10).
Grüsse
Niclaus
Hallo Niclaus,
danke für deine tolle Unterstützung!
Ich meine die Kopfzeile unter der Seitenansicht. Ich nutze Excel 2007.
Beste Grüße!
Ich meine die Kopfzeile unter der Seitenansicht. Ich nutze Excel 2007.
Hallo Dandelion
Dann versuch’s mal mit folgendem Makro. Ich hoffe, es haut hin.
Meine „Testdatei“ habe ich hochgeladen. Wenn Du auf den jeweiligen Tabellen das grüne Textfeld „Makro Seitenansicht“ anklickst, sollte die Seitenansicht der Tabelle gemäss Deinen Vorstellungen gestartet werden.
http://www.file-upload.net/download-9235981/Kopfzeil…
Grüsse Niclaus
Sub Seitenansicht()
' Die ersten beiden Seiten sollen in der
' Seitenansicht ohne Kopf- und Fusszeilen gezeigt werden
Application.ScreenUpdating = False
ActiveSheet.DisplayAutomaticPageBreaks = True
ActiveWindow.View = xlPageBreakPreview
Hor = ActiveSheet.HPageBreaks.Count
MsgBox "Die Tabelle hat insgesamt " & Hor + 1 & " Seiten", 64
OrigTab = ActiveCell.Worksheet.Name
ActiveWorkbook.Sheets(OrigTab).Copy \_
Before:=ActiveWorkbook.Sheets(OrigTab)
CopTab1 = ActiveCell.Worksheet.Name
' Seiten 1 - 2
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
If Hor
Danke für deine Mithilfe!
Die Lösung ist leider so komplex, dass es für mich nochmal ein hoher Aufwand wäre diese für meinen konkreten Fall umzuschreiben. Dieser Aufwand würde dem Nutzen einfach nicht gerecht werden.
OT Angabe der Excelversion
Allerdings müsste man dazu wissen: Was meinst Du genau mit
„anzeigen“? Seitenansicht, Seitenlayout oder Umbruchvorschau
(in Excel 10).
Grüezi Niclaus,
was meinst du mit „Excel 10“? Die Excel-Version 10, genauer „10.0“ ist Excel 2002. Excel 2010 ist die Version „14.0“. (Das gilt für Windows-Excel, Mac-Excel zählt anders.) Die Excel-Version mit Code abfragen geht so:
MsgBox Application.Version
Gruß
Reinhard
Die Lösung ist leider so komplex, dass es für mich nochmal ein
hoher Aufwand wäre diese für meinen konkreten Fall
umzuschreiben. Dieser Aufwand würde dem Nutzen einfach nicht
gerecht werden.
Hallo Dantelion,
und nu? Anfrage erledigt?
Wenn nicht plauder bitte mal sehr konkret über deinen konkreten Fall.
Mit Seitenansicht meinst du quasi Druckvorschau, dort soll das geschehen mit Unterdrückung der Kopfleiste. Und nach der Seitenansicht, sollen da die Kopfzeilen in Blatt1 und Blatt2 wieder erscheinen oder nich?
Eine Bitte, gewöhne dir unbedingt an im Forum zu antworten auf den Beitrag auf den du dich beziehst.
Gruß
Reinhard
Allerdings müsste man dazu wissen: Was meinst Du genau mit
„anzeigen“? Seitenansicht, Seitenlayout oder Umbruchvorschau
(in Excel 10).was meinst du mit „Excel 10“? Die Excel-Version 10, genauer
„10.0“ ist Excel 2002. Excel 2010 ist die Version „14.0“. (Das
gilt für Windows-Excel, Mac-Excel zählt anders.) Die
Excel-Version mit Code abfragen geht so:
MsgBox Application.Version
Grüezi Reinhard
Ich war nicht mehr sicher, ob mein Excel aus dem Jahr 1910 oder 2010 stammt (
) und in der Schnelle hab ich dann halt 10 geschrieben. Nun weiss ich es: Excel 2010!
Viele Grüsse Niclaus
Ich bin weiterhin dankbar für neue Vorschläge.
Die Kopfzeilen füge ich mittels VBA ein, sie sollen erst ab der dritten Seite sichtbar bzw. gedruckt werden.
Ich denke diese Aussage ist unmissverständlich.
Hallo Dandelion
Ich bin weiterhin dankbar für neue Vorschläge.
Die Kopfzeilen füge ich mittels VBA ein, sie sollen erst ab
der dritten Seite sichtbar bzw. gedruckt werden.
Es ist überhaupt kein Problem, auch die Kopfzeilen per VBA einzufügen.
Ich habe gestern eine Muster-xls hochgeladen für Druck und Ansicht der Kopfzeilen erst ab Seite 3. Schau sie mal an. Und starte mal in der Tabelle „SeitenAnsicht“ das Makro mit dem grünen Knopf
http://www.file-upload.net/download-9235981/Kopfzeil…
Ist diese Musterdatei grundsätzlich gut für Dich?
Was in dieser Musterdatei fehlt, ist folgendes
Die Kopfzeilen füge ich mittels VBA ein
Gib doch einmal in der Muster-Tabelle „SeitenAnsicht“ Deine Kopfzeilen von Hand ein und mache dann den Testlauf per Makro. Ist das Ergebnis nach dem Start des Makros prinzipiell immer noch gut?
Wenn ja, dann kann ich Dir gern noch einen Makro-Teil einfügen, damit Du Deine Kopfzeilen per VBA einfügen kannst. - Wie gibst Du denn jetzt Deine Kopfzeilen ein? Mit Inputbox? Zeig doch bitte mal Dein Makro.
Gibt es auch Fusszeilen und sollen die auch erst ab Seite 3 erscheinen usw.
Am einfachsten ist es, wenn Du Deine Datei hochlädst und die Erklärungen dazu gibst. Dann ist es einfacher, für Dich etwas zu produzieren.
Viele Grüsse Niclaus