Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Excel 2010 Makro Seite einrichten funktioniert nicht
zurück: Aus listbox datei mit richtigem Programm öffnen weiter: Makro nach uhrzeit starten von mo - so Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
panam
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. März 2013, 10:06
Rufname:

Excel 2010  Makro Seite einrichten funktioniert nicht - Excel 2010 Makro Seite einrichten funktioniert nicht

Nach oben
       Version: Office 2010

Hallo,
ich hatte in Excel 2007 ein Makro zum Seite einrichten aufgezeichnet, welches einwandfrei funktionierte.
In Excel 2010 wollte ich dies importieren; Excel 2010 machte nicht das was Excel 2007 machte: Also neu aufgezeichnet.
JEDOCH klappt das nach wie vor nicht.
Ich möchte:
unten Links: Dateipfad (Schriftgröße 8)
unten Mitte: Seite x von y
unten Rechts: Druck: Datum-Uhrzeit
oben Mitte: Name Tabellenblatt

Excel 2010 gibt Keinen Tabellenblattnamen aus; Rechts "&Druck +Datum" Uhrzeit fehlt; unten Mitte: Seite + Pfad....

Ich kenne mich mit Macroprogrammierung nicht aus; kann nur aufzeichnen....

Anbei der Code, bitte helft mir, Besten Dank!!!
Gruß
Pierre

Sub SeiteEinrichten()
'
' SeiteEinrichten Makro
' Seite einrichten
'
' Tastenkombination: Strg+i
'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.787401575)
.BottomMargin = Application.InchesToPoints(0.787401575)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = "&7&Z" & Chr(10) & "&F"
.CenterFooter = "Seite &P von &N"
.RightFooter = "Druck: &D-&T"
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub
rogstar
learning by doing


Verfasst am:
13. März 2013, 10:37
Rufname:
Wohnort: _Hessen_

AW: Excel 2010  Makro Seite einrichten funktioniert nicht - AW: Excel 2010 Makro Seite einrichten funktioniert nicht

Nach oben
       Version: Office 2010

Hallo,
wenn es dir nur um Header und Footer Einträge geht, reicht das doch schon aus udn funktioniert auch unter Excel 2010
Code:
Sub SeiteEinrichten()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&A"
        .RightHeader = ""
        .LeftFooter = "&7&Z" & Chr(10) & "&F"
        .CenterFooter = "Seite &P von &N"
        .RightFooter = "Druck: &D-&T"
    End With
End Sub

_________________
Gruß, Tobias
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. März 2013, 10:41
Rufname:


AW: Excel 2010  Makro Seite einrichten funktioniert nicht - AW: Excel 2010 Makro Seite einrichten funktioniert nicht

Nach oben
       Version: Office 2010

Hi

ich glaube, daß Problem ist diese Zeile:

Application.PrintCommunication = False

MS hat das eingebaut, weil die Kommunikation mit dem Drucker sehr zeitaufwendig ist, aber sie wird halt zum Einrichten der Seite benötigt, deswegen sollte man den Befehl wieder löschen, wenn man mit aufgezeichnetem Code arbeitet.

Gruß Daniel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: End up, Markieren, Löschen mit Makro 10 detlef42 1290 21. Nov 2006, 16:13
Detlef 42 End up, Markieren, Löschen mit Makro
Keine neuen Beiträge Excel Formeln: SVerweis funktioniert nicht durchgehend 9 havanaclubcup 1006 28. Sep 2006, 21:06
myfake SVerweis funktioniert nicht durchgehend
Keine neuen Beiträge Excel Formeln: ZÄHLENWENN funktioniert nicht!! 6 Gast 2065 19. Sep 2006, 12:23
Willie ZÄHLENWENN funktioniert nicht!!
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung nicht drucken? (oder Makro?) 1 Gast 1223 23. Aug 2006, 13:46
Cabation Bedingte Formatierung nicht drucken? (oder Makro?)
Keine neuen Beiträge Excel Formeln: kann man vorhandene excel funktionen in einem makro aufrufen 1 alwhae 5884 10. Jul 2006, 13:39
Klaus-Dieter kann man vorhandene excel funktionen in einem makro aufrufen
Keine neuen Beiträge Excel Formeln: DateDif funktioniert nicht 6 Excelminimalist 1199 06. Feb 2006, 15:30
Excelminimalist DateDif funktioniert nicht
Keine neuen Beiträge Excel Formeln: makro beim öffnen starten und werte auswählen 0 werner100 636 24. Nov 2005, 13:30
werner100 makro beim öffnen starten und werte auswählen
Keine neuen Beiträge Excel Formeln: Dropdown funktioniert nicht? 2 Gast 1497 07. Nov 2005, 19:36
Gast Dropdown funktioniert nicht?
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Wer kann mir ein Makro erstellen?????? wäre echt nett 1 jvakleve61 2456 28. Okt 2005, 05:55
ae Wer kann mir ein Makro erstellen?????? wäre echt nett
Keine neuen Beiträge Excel Formeln: Autofilter funktioniert nur bis Zeile 143?? 2 landau666 889 07. Sep 2005, 21:10
landau666 Autofilter funktioniert nur bis Zeile 143??
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Makro HILFE !!! BITTE ;D 3 folter 681 03. Sep 2005, 13:32
fl618 Makro HILFE !!! BITTE ;D
Keine neuen Beiträge Excel Formeln: IF Verschachtelungen >7 und wie funktioniert vlookup 9 Karlito 3544 20. Mai 2005, 15:26
Gast IF Verschachtelungen >7 und wie funktioniert vlookup
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps