MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.06.2019, 06:12   #1
limpies
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Makroausführung Tabellenblatt Kopfzeile

ein freundliches Hallo an alle,

ich möchte gern aus einem Tabellenblatt aus ein Makro starten, dass auf allen Tabellenblättern eine Kopfzeile hinzufügt. Die Daten dafür soll er von jedem Tabellenblatt aus der Tabelle entnehmen - dies ist leider nötig, da die Kopfzeile jeweils andere Daten enthält.
Leider klappt dies nur bedingt.

Der Code sieht wie folgt aus:

Code:

Sub Makroausfuehren()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ActiveWorkbook.Worksheets
 With Tabellenblatt.PageSetup
  'With ActiveSheet.PageSetup
        .RightHeaderPicture.Filename = "D:neulogo.jpg"
        .RightHeader = "&G"
        .LeftHeader = "&""Calibri (Textkörper)""&10" & "Serial No. Device:" & "" & Range("B2") & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Device:" & "" & Range("B3") & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Short:" & "" & Range("B4") & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Long:" & "" & Range("B5") & Chr(10)
  'End With
 End With
Next Tabellenblatt
MsgBox "Makroausführung beendet!"
End Sub
Hat hier jemand eine Idee?

Vielen Dank im Voraus.

Mit freundlichen Grüßen
limpies
limpies ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 06:57   #2
Mase
MOF Profi
MOF Profi
Standard

Moin,

Zitat:

Leider klappt dies nur bedingt.

Bedeutet was genau?

edit:
Try this:
Code:

Sub Makroausfuehren()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ActiveWorkbook.Worksheets
 With Tabellenblatt
        
        .RightHeaderPicture.Filename = "D:\neulogo.jpg"
        .PageSetup.RightHeader = "&G"
        .PageSetup.LeftHeader = "&""Calibri (Textkörper)""&10" & "Serial No. Device:" & "" & .Range("B2").Value2 & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Device:" & "" & Range("B3").Value2 & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Short:" & "" & Range("B4").Value2 & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Long:" & "" & Range("B5").Value2 & Chr(10)
  
    End With
 
Next Tabellenblatt
MsgBox "Makroausführung beendet!"
End Sub

__________________

gruß
Marco

Geändert von Mase (13.06.2019 um 07:09 Uhr).
Mase ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 08:37   #3
limpies
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Mase,

vielen Dank für Deinen Lösungsvorschlag.

Leider übernimmt er bei Deiner Variante "nur" den Text aus B2 (sprich in dem Fall Serial No.). Bei den anderen steht zwar der Text, aber kein Inhalt aus den jeweiligen Spalten.

Bei meiner Variante hat er nur den Text in die Fußzeile geschrieben, ohne Inhalt.

Er übernimmt auch das Logo leider nicht mehr, hier kommt jetzt die Fehlermeldung "Fehler beim Kompilieren"



Gruß
limpies

Geändert von limpies (13.06.2019 um 09:44 Uhr).
limpies ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 08:40   #4
Mase
MOF Profi
MOF Profi
Standard

Da wurde wohl ein Punkt verschluckt oder hat gefehlt:

Code:

Sub Makroausfuehren()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ActiveWorkbook.Worksheets
 With Tabellenblatt
        
        .RightHeaderPicture.Filename = "D:\neulogo.jpg"
        .PageSetup.RightHeader = "&G"
        .PageSetup.LeftHeader = "&""Calibri (Textkörper)""&10" & "Serial No. Device:" & "" & .Range("B2").Value2 & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Device:" & "" & .Range("B3").Value2 & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Short:" & "" & .Range("B4").Value2 & Chr(10) & _
                       "&""Calibri (Textkörper)""&10" & "Long:" & "" & .Range("B5").Value2 & Chr(10)
  
    End With
 
Next Tabellenblatt
MsgBox "Makroausführung beendet!"
End Sub

__________________

gruß
Marco

Geändert von Mase (13.06.2019 um 08:45 Uhr).
Mase ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 09:43   #5
limpies
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hey Mase,

vielen Dank, es funktioniert.

Ich verstehe nur leider nicht, warum das mit dem Logo einfügen nicht mehr funktioniert.

Code:

 .RightHeaderPicture.Filename = "D:neulogo.jpg"
hier kommt nun die Fehlermeldung "Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden". & Das, obwohl die Datei auf der Platte vorhanden ist.
limpies ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 09:47   #6
Mase
MOF Profi
MOF Profi
Standard

Sehr gern.

Zitat:

Ich verstehe nur leider nicht, warum das mit dem Logo einfügen nicht mehr funktioniert.

Vermutlich liegt es am Code Kopieren aus dem Forum.

Versuch mal folgendes:
.RightHeaderPicture.Filename = "D:\neulogo.jpg"

__________________

gruß
Marco
Mase ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 09:49   #7
limpies
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hi Mase,

Damit gehts :
Code:

 .PageSetup.RightHeaderPicture.Filename = "D:logo.jpg"
ich danke Dir vielmals!

Gruß
limpies
limpies ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:08 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.