<![CDATA[Office-Fragen.de - Portal]]> https://office-fragen.de/ Tue, 09 Jun 2026 09:54:32 +0000 MyBB <![CDATA[Termine ausdruccken]]> https://office-fragen.de/thread-29322.html Sun, 31 May 2026 13:08:52 +0200 ArianeH]]> https://office-fragen.de/thread-29322.html
ich benutze Office 2024. Wie drucke ich Termine monatsweise aus?

Viele Grüße]]>
ich benutze Office 2024. Wie drucke ich Termine monatsweise aus?

Viele Grüße]]> <![CDATA[PQ Abfrage Geodaten]]> https://office-fragen.de/thread-29321.html Wed, 27 May 2026 12:31:24 +0200 Luna-Maxx]]> https://office-fragen.de/thread-29321.html folgender Hintergrund. 
Ich betreibe schon lange Ahnenfroschung und nehme neben den Generalogie Programm auch Excel (2024 LTSC und O365) als Grundlage für Statikstiken und Auswertungen, welches mir die bekannten Programme nicht so liefern können, wie ich es gern hätte.

Erster Schritt zb. = Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=ORT%2C+LAND"))
Liefert mir hoffentlich nur einen Record (haut bei Rabat hin, weil einzig) .. 
Funktioniert bei Orten die mehrfach im Land vorkommen suboptimal .. abder damit kann ich noch leben ...

Problem zum hier bei Rabat ist aber:
= Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=Rabat%2C+Marokko"))

Liefert Rabat ⵔⴱⴰⵟ الرباط, باشوية الرباط, Préfecture de Rabat عمالة الرباط, Rabat-Salé-Kénitra ⵔⴱⴰⵟ-ⵙⵍⴰ-ⵇⵏⵉⵟⵔⴰ الرباط-سلا-القنيطرة, Maroc ⵍⵎⵖⵔⵉⴱ

die PQ Abfrage habe ich mit nem Kollegen dann konvertiert, gefiltert Transponiert und gestuft ..
Ergebnis dann für mich
Ort    Land    lat    lon

diese Geodaten werden dann woanders weioterverarbeitet

Ich bin neuling auf PQ ... gibt es andere Seiten die mir Diese Daten liefern können?

Gruß 
Lunamaxx
[Bild: Screenshot-2026-05-27-123051.jpg]]]> folgender Hintergrund. 
Ich betreibe schon lange Ahnenfroschung und nehme neben den Generalogie Programm auch Excel (2024 LTSC und O365) als Grundlage für Statikstiken und Auswertungen, welches mir die bekannten Programme nicht so liefern können, wie ich es gern hätte.

Erster Schritt zb. = Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=ORT%2C+LAND"))
Liefert mir hoffentlich nur einen Record (haut bei Rabat hin, weil einzig) .. 
Funktioniert bei Orten die mehrfach im Land vorkommen suboptimal .. abder damit kann ich noch leben ...

Problem zum hier bei Rabat ist aber:
= Json.Document(Web.Contents("https://nominatim.openstreetmap.org/search?format=json&q=Rabat%2C+Marokko"))

Liefert Rabat ⵔⴱⴰⵟ الرباط, باشوية الرباط, Préfecture de Rabat عمالة الرباط, Rabat-Salé-Kénitra ⵔⴱⴰⵟ-ⵙⵍⴰ-ⵇⵏⵉⵟⵔⴰ الرباط-سلا-القنيطرة, Maroc ⵍⵎⵖⵔⵉⴱ

die PQ Abfrage habe ich mit nem Kollegen dann konvertiert, gefiltert Transponiert und gestuft ..
Ergebnis dann für mich
Ort    Land    lat    lon

diese Geodaten werden dann woanders weioterverarbeitet

Ich bin neuling auf PQ ... gibt es andere Seiten die mir Diese Daten liefern können?

Gruß 
Lunamaxx
[Bild: Screenshot-2026-05-27-123051.jpg]]]> <![CDATA[Dynamischer Bezug]]> https://office-fragen.de/thread-29320.html Tue, 26 May 2026 17:24:28 +0200 Rome]]> https://office-fragen.de/thread-29320.html
wie erreiche ich im Blatt Auswertungen das ich bei der Formel nicht um 6 erhöhen muss, sondern das automatisch geschieht.

Vielen Dank für die Hilfe.[Bild: smile.png]

.xlsx   Mappe1.xlsx (Größe: 30,58 KB / Downloads: 7) ]]>
wie erreiche ich im Blatt Auswertungen das ich bei der Formel nicht um 6 erhöhen muss, sondern das automatisch geschieht.

Vielen Dank für die Hilfe.[Bild: smile.png]

.xlsx   Mappe1.xlsx (Größe: 30,58 KB / Downloads: 7) ]]> <![CDATA[Inhalte von Zellen in definierten Felder bei Neueingabe verschieben]]> https://office-fragen.de/thread-29319.html Tue, 26 May 2026 08:48:16 +0200 eltoro]]> https://office-fragen.de/thread-29319.html
ich habe folgendes Thema:

Ich würde gerne in einem definierten Bereich (zB A1:C3) Daten eingeben und dabei die bestehenden Daten in den Zellen nach folgender Logik verschieben lassen.

IST: 

A1: 1
A2: 2
A3: 3
B1: 4
B2: 5
B3: 6
C1: 7
C2: 8
C3: 9

Dann wird bei A3 ein neuer Wert eingegeben, zB 10 und die Tabelle soll dann wie folgt aussehen

A1: 1
A2: 2
A3: 10
B1: 3
B2: 4
B3: 5
C1: 6
C2: 7
C3: 8

und der Wert 9 soll in einen weiteren definierten Bereich verschoben werden (zB A6:C9)

die KI hat mir eine VBA Lösung vorgeschlagen, die hat aber Fehler gehabt und mein Problem nicht gelöst. Ich selbst kann leider nicht VBA programmieren.

Habt ihr eine Lösung?]]>
ich habe folgendes Thema:

Ich würde gerne in einem definierten Bereich (zB A1:C3) Daten eingeben und dabei die bestehenden Daten in den Zellen nach folgender Logik verschieben lassen.

IST: 

A1: 1
A2: 2
A3: 3
B1: 4
B2: 5
B3: 6
C1: 7
C2: 8
C3: 9

Dann wird bei A3 ein neuer Wert eingegeben, zB 10 und die Tabelle soll dann wie folgt aussehen

A1: 1
A2: 2
A3: 10
B1: 3
B2: 4
B3: 5
C1: 6
C2: 7
C3: 8

und der Wert 9 soll in einen weiteren definierten Bereich verschoben werden (zB A6:C9)

die KI hat mir eine VBA Lösung vorgeschlagen, die hat aber Fehler gehabt und mein Problem nicht gelöst. Ich selbst kann leider nicht VBA programmieren.

Habt ihr eine Lösung?]]> <![CDATA[Formelzusammensetzung]]> https://office-fragen.de/thread-29318.html Mon, 18 May 2026 15:56:56 +0200 onki76]]> https://office-fragen.de/thread-29318.html
hier wird es mir sehr komplex und er bringt mir immer, ich hätte entweder zu viele oder zuwenige Argumente.

Wenn in G4 "Ja" steht und gleichzeitig in E10 die Zahlen 2 4 oder 7, dann soll gerechnet werden

AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+1  sonst  AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+0

als Schlusskriterium nicht "Ja"  AUFRUNDEN(E7/8,5/E10;0)

Könnt ihr mir das bitte in eine Formel bringen?

Hier meine Bastelei.

=WENN(UND(G4=“ja“;E10=(ANZAHL(SUCHEN(2;4;7))>0);AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+1;AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+0;0);AUFRUNDEN(E7/8,5/E10;0))

Ich danke euch schonmal im Voraus.]]>
hier wird es mir sehr komplex und er bringt mir immer, ich hätte entweder zu viele oder zuwenige Argumente.

Wenn in G4 "Ja" steht und gleichzeitig in E10 die Zahlen 2 4 oder 7, dann soll gerechnet werden

AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+1  sonst  AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+0

als Schlusskriterium nicht "Ja"  AUFRUNDEN(E7/8,5/E10;0)

Könnt ihr mir das bitte in eine Formel bringen?

Hier meine Bastelei.

=WENN(UND(G4=“ja“;E10=(ANZAHL(SUCHEN(2;4;7))>0);AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+1;AUFRUNDEN(((E7+(AUFRUNDEN(E6*2*E10/60;0)))/60/E10)+0;0);AUFRUNDEN(E7/8,5/E10;0))

Ich danke euch schonmal im Voraus.]]> <![CDATA[Worddatei alle 4 Seiten neue Datei]]> https://office-fragen.de/thread-29317.html Mon, 18 May 2026 10:58:02 +0200 MirkoB]]> https://office-fragen.de/thread-29317.html
ich habe ein Serienbrief erstellt in der alle 4 Seiten z.B. immer das selbe kommt nur mit anderen Positionsnummern

Pos.1 - Seiten 1-4 - dies habe ich mit sectionpages
so geht das etwa 40 Pos.

Es reicht mir, wenn man mir sagen würde, man einzelne Seiten extrahieren könnte wie in einem PDF Programm, nur halt in Word.

Nun möchte man aber die Pos. einzeln haben, da es beim ausdrucken unter anderem Probleme gibt.
Selbst wenn eingegeben wird, Benutzerdefiniert drucken und eingibt Seite 1-8 druckt er alles aus.

Gibt es hier Möglichkeiten dies zu ändern oder geht das auch nur mit VBA? Wink 

Gruß
Mirko]]>
ich habe ein Serienbrief erstellt in der alle 4 Seiten z.B. immer das selbe kommt nur mit anderen Positionsnummern

Pos.1 - Seiten 1-4 - dies habe ich mit sectionpages
so geht das etwa 40 Pos.

Es reicht mir, wenn man mir sagen würde, man einzelne Seiten extrahieren könnte wie in einem PDF Programm, nur halt in Word.

Nun möchte man aber die Pos. einzeln haben, da es beim ausdrucken unter anderem Probleme gibt.
Selbst wenn eingegeben wird, Benutzerdefiniert drucken und eingibt Seite 1-8 druckt er alles aus.

Gibt es hier Möglichkeiten dies zu ändern oder geht das auch nur mit VBA? Wink 

Gruß
Mirko]]> <![CDATA[Verschiedene Dateien zusammenführen]]> https://office-fragen.de/thread-29316.html Wed, 13 May 2026 07:48:39 +0200 MirkoB]]> https://office-fragen.de/thread-29316.html
ich habe verschiedene Dateien als Serienbrief.

z.B.
Datei 1 - für verschiedene Positionen - eine Pos. enthält 3 Seiten - das ganze sind dann 20 Pos. - das ergibt 60 Seiten
Datei 2 - Positionen wie Datei 1, aber mit anderem Inhalt - und nur 2 Seiten pro Pos. - das ergibt 40 Seiten
Datei 3 - Positionen wie Datei 1, aber wieder mit anderem Inhalt - 1 Seite pro Pos. - ergibt 20 Seiten
Datei 4 - Positionen wie Datei 1, aber wieder mit anderem Inhalt - 5 Seiten pro Pos. - ergibt 100 Seiten
Datei 5 - Positionen wie Datei 1, aber wieder mit anderem Inhalt - 3 Seiten pro Pos. - ergibt 60 Seiten

nun drucke ich diese Dateien alle aus und muss sie dann noch sortieren.

Pos.1 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.2 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.3 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.4 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.5 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
usw.

Ich würde mir gern das sortieren sparen.
Gibt es eine Möglichkeit zu sagen: Nimm für:
Pos.1 - 3 Seiten aus Datei 1, 2 aus Seiten aus Datei 2, 1 Seite aus Datei 3, 5 Seiten aus Datei 4, 3 Seiten aus Datei 5
dann
Pos.2 - 3 Seiten aus Datei 1, 2 aus Seiten aus Datei 2, 1 Seite aus Datei 3, 5 Seiten aus Datei 4, 3 Seiten aus Datei 5
usw.

Ich hoffe ich habe es einigermaßen verständlich erklärt.

Vielen Dank
Grüße
Mirko]]>
ich habe verschiedene Dateien als Serienbrief.

z.B.
Datei 1 - für verschiedene Positionen - eine Pos. enthält 3 Seiten - das ganze sind dann 20 Pos. - das ergibt 60 Seiten
Datei 2 - Positionen wie Datei 1, aber mit anderem Inhalt - und nur 2 Seiten pro Pos. - das ergibt 40 Seiten
Datei 3 - Positionen wie Datei 1, aber wieder mit anderem Inhalt - 1 Seite pro Pos. - ergibt 20 Seiten
Datei 4 - Positionen wie Datei 1, aber wieder mit anderem Inhalt - 5 Seiten pro Pos. - ergibt 100 Seiten
Datei 5 - Positionen wie Datei 1, aber wieder mit anderem Inhalt - 3 Seiten pro Pos. - ergibt 60 Seiten

nun drucke ich diese Dateien alle aus und muss sie dann noch sortieren.

Pos.1 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.2 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.3 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.4 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
Pos.5 - 3 Seiten aus Datei 1, 2 Seiten Datei 2, 1 Seite Datei 3, 5 Seiten Datei 4, 3 Seiten Datei 5
usw.

Ich würde mir gern das sortieren sparen.
Gibt es eine Möglichkeit zu sagen: Nimm für:
Pos.1 - 3 Seiten aus Datei 1, 2 aus Seiten aus Datei 2, 1 Seite aus Datei 3, 5 Seiten aus Datei 4, 3 Seiten aus Datei 5
dann
Pos.2 - 3 Seiten aus Datei 1, 2 aus Seiten aus Datei 2, 1 Seite aus Datei 3, 5 Seiten aus Datei 4, 3 Seiten aus Datei 5
usw.

Ich hoffe ich habe es einigermaßen verständlich erklärt.

Vielen Dank
Grüße
Mirko]]> <![CDATA[Formelfehler]]> https://office-fragen.de/thread-29315.html Wed, 29 Apr 2026 10:00:17 +0200 onki76]]> https://office-fragen.de/thread-29315.html Hier entsteht ein Zirkelbezug wenn ich die Formel auf das "logische" ändere.
Könnt ihr da bitte mal drüber schauen wo hier der Bug drin sitzt? Problem ist, dass die Anzahl der Einsatztage mit den Übernachtungen und der Anzahl der Monteure stimmig ist und auch die An-Abfahrt mit den vorgegebenen Stunden stimmen. Arbeitszeit wird mit 10h/Tag/Monteur gerechnet. 
Anbei die Berechnung mit dem Fehler und die alte Berechnung. Hier waren die Übernachtungen mit den Arbeitstagen und der Anzahl der Monteure nicht stimmig.

Die Formeln wurden mitlerweile schon mehrfach geändert und versucht am laufen zu halten.

VG Ronny

.xlsx   Berechnung.xlsx (Größe: 21,61 KB / Downloads: 6)

.xlsx   Berechnung alt.xlsx (Größe: 58,84 KB / Downloads: 3) ]]> Hier entsteht ein Zirkelbezug wenn ich die Formel auf das "logische" ändere.
Könnt ihr da bitte mal drüber schauen wo hier der Bug drin sitzt? Problem ist, dass die Anzahl der Einsatztage mit den Übernachtungen und der Anzahl der Monteure stimmig ist und auch die An-Abfahrt mit den vorgegebenen Stunden stimmen. Arbeitszeit wird mit 10h/Tag/Monteur gerechnet. 
Anbei die Berechnung mit dem Fehler und die alte Berechnung. Hier waren die Übernachtungen mit den Arbeitstagen und der Anzahl der Monteure nicht stimmig.

Die Formeln wurden mitlerweile schon mehrfach geändert und versucht am laufen zu halten.

VG Ronny

.xlsx   Berechnung.xlsx (Größe: 21,61 KB / Downloads: 6)

.xlsx   Berechnung alt.xlsx (Größe: 58,84 KB / Downloads: 3) ]]> <![CDATA[Automatisches Erstellen von PDFs - die Lösung]]> https://office-fragen.de/thread-29314.html Mon, 13 Apr 2026 13:55:53 +0200 d'r Bastler]]> https://office-fragen.de/thread-29314.html
bei allem Fairständnis, dass Dein Thema von Steve geschlossen wurde, sollst Du nicht dabei der Leidtragende sein.

Deshalb hier eine einfache VBA-Lösung, deren Einbau in Dein Workbook Schritt für Schritt beschrieben ist. Kein Panik, es ist auch für VBA-Neulinge (also solche die es zu schätzen lernen werden  Wink ) leicht und in wenigen Minuten machbar.

  1. Du öffnest die Arbeitsmappe, aus der die PDFs generiert werden sollen und erstellst mit Speichern unter eine Kopie im Format .xlsb. Die vorherige Version wird nicht mehr gebraucht.
  2. Mit Alt + F11 kommst Du in den VB-Editor. Links oben siehst Du ein Fenster VBA-Projekt mit all Deinen Arbeitsblättern. Falls nicht hilft Strg + R weiter.
  3. Mit einem Rechtsklick in dieses Fenster wird Dir Einfügen angeboten, wo Du Modul wählst.
  4. Durch Doppelklick auf Modul1 öffnet sich rechts das große Fenster für den Code des Moduls. Dort kopierst Du den folgenden Code komplett hinein (ohne die Überschrift Code:) und speicherst Deine Datei

Code:
Option Explicit

Sub Export_To_PDF()
Dim sht As Worksheet, sPath$, sFile$, aSheets(), item
'###### Hier bitte anpassen/ergänzen: Die Namen der Blätter, die Du exportieren möchtest
aSheets = Array("Bericht_A", "Bericht_B")
'###### Hier bitte anpassen: Wo sollen die PDFs abgelegt werden.
'###### So werden sie direkt im Verzeichnis Deines Workbooks abgelegt.
sPath = ThisWorkbook.Path

For Each sht In ThisWorkbook.Sheets
    For Each item In aSheets
        If sht.Name = item Then
'##### Hier bitte anpassen: Der Dateiname wird aus Blattname & Datum zusammengesetzt
            sFile = sPath & "\" & sht.Name & "_" & Date
            sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFile, Quality:=xlQualityStandard
        End If
    Next
Next

End Sub

     5. In Zeile 6 findest Du ein Array (eine Liste) mit Beispielnamen Deiner Arbeitsblätter, die Du bitte anpasst. Achte dabei auf die Syntax: Jeder Blattname muss genau so in
         Anführungszeichen stehen, wie Du ihn unten in der Mappe siehst und vom nächsten durch ein Komma getrennt sein. Wenn Du dynamische Namen hast, zeige mir hier eine Liste 
         aller Blattnamen und ich passe Dir den Code entsprechend an.
     6. Direkt darunter definierst Du das Verzeichnis, in das die PDFs abgelegt werden sollen. Willst Du die Dateien z.B. im Verzeichnis "D:\Meine PDFs" ablegen, ersetzt Du
        ThisWorkbook.Path durch den Verzeichnisnamen in Anführungszeichen.
     7. In Zeile 15 (s. oben im Editor-Menü) wird vor dem Druck der Blatt = Dateiname um das aktuelle Datum ergänzt. Wenn Du das nicht möchtest, setzt Du direkt nach sht.name ein
        Hochkomma (über der Raute).
     8. Nach Deinen Anpassungen speicherst Du die Date erneut

Den letzten Schritt machst Du in DieseArbeitsmappe: Durch Doppelklick öffnest Du deren Codefenster und kopierst diesen Code dort hinein:
Code:
Option Explicit

Private Sub Workbook_Open()
    Application.OnKey "({F12})", "Export_To_PDF"
End Sub

setzt Deinen Cursor hinter Workbook_Open() und drückst F5. Du siehst erst mal kein Ergebnis, aber: Damit wird F12 diesem Makro zugeordnet und Du kannst Deine PDFs mit nur einem Tastendruck exportieren. Willst Du eine andere F-Taste, achte auf Anführungsstriche und Klammern!

Wie kann's noch besser werden? Dass Du jedes Mal auch noch sehen willst, wie die PDFs denn aussehen, wird Dir sicher igendwann lästig werden. Daher habe ich es hier weggelassen - es ist aber natürlich möglich. 

Als interessante Ergänzung könnte ich mir aber vorstellen, dass die Berichte sofort oder später per Outlook verschickt werden und dabei aus demAusgabeordner in den Unterordner Versandt verschoben werden.

Lass wissen, was das veraltete VBA Dir noch Gutes tun kann  Tongue

Schöne Grüße]]>
bei allem Fairständnis, dass Dein Thema von Steve geschlossen wurde, sollst Du nicht dabei der Leidtragende sein.

Deshalb hier eine einfache VBA-Lösung, deren Einbau in Dein Workbook Schritt für Schritt beschrieben ist. Kein Panik, es ist auch für VBA-Neulinge (also solche die es zu schätzen lernen werden  Wink ) leicht und in wenigen Minuten machbar.

  1. Du öffnest die Arbeitsmappe, aus der die PDFs generiert werden sollen und erstellst mit Speichern unter eine Kopie im Format .xlsb. Die vorherige Version wird nicht mehr gebraucht.
  2. Mit Alt + F11 kommst Du in den VB-Editor. Links oben siehst Du ein Fenster VBA-Projekt mit all Deinen Arbeitsblättern. Falls nicht hilft Strg + R weiter.
  3. Mit einem Rechtsklick in dieses Fenster wird Dir Einfügen angeboten, wo Du Modul wählst.
  4. Durch Doppelklick auf Modul1 öffnet sich rechts das große Fenster für den Code des Moduls. Dort kopierst Du den folgenden Code komplett hinein (ohne die Überschrift Code:) und speicherst Deine Datei

Code:
Option Explicit

Sub Export_To_PDF()
Dim sht As Worksheet, sPath$, sFile$, aSheets(), item
'###### Hier bitte anpassen/ergänzen: Die Namen der Blätter, die Du exportieren möchtest
aSheets = Array("Bericht_A", "Bericht_B")
'###### Hier bitte anpassen: Wo sollen die PDFs abgelegt werden.
'###### So werden sie direkt im Verzeichnis Deines Workbooks abgelegt.
sPath = ThisWorkbook.Path

For Each sht In ThisWorkbook.Sheets
    For Each item In aSheets
        If sht.Name = item Then
'##### Hier bitte anpassen: Der Dateiname wird aus Blattname & Datum zusammengesetzt
            sFile = sPath & "\" & sht.Name & "_" & Date
            sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFile, Quality:=xlQualityStandard
        End If
    Next
Next

End Sub

     5. In Zeile 6 findest Du ein Array (eine Liste) mit Beispielnamen Deiner Arbeitsblätter, die Du bitte anpasst. Achte dabei auf die Syntax: Jeder Blattname muss genau so in
         Anführungszeichen stehen, wie Du ihn unten in der Mappe siehst und vom nächsten durch ein Komma getrennt sein. Wenn Du dynamische Namen hast, zeige mir hier eine Liste 
         aller Blattnamen und ich passe Dir den Code entsprechend an.
     6. Direkt darunter definierst Du das Verzeichnis, in das die PDFs abgelegt werden sollen. Willst Du die Dateien z.B. im Verzeichnis "D:\Meine PDFs" ablegen, ersetzt Du
        ThisWorkbook.Path durch den Verzeichnisnamen in Anführungszeichen.
     7. In Zeile 15 (s. oben im Editor-Menü) wird vor dem Druck der Blatt = Dateiname um das aktuelle Datum ergänzt. Wenn Du das nicht möchtest, setzt Du direkt nach sht.name ein
        Hochkomma (über der Raute).
     8. Nach Deinen Anpassungen speicherst Du die Date erneut

Den letzten Schritt machst Du in DieseArbeitsmappe: Durch Doppelklick öffnest Du deren Codefenster und kopierst diesen Code dort hinein:
Code:
Option Explicit

Private Sub Workbook_Open()
    Application.OnKey "({F12})", "Export_To_PDF"
End Sub

setzt Deinen Cursor hinter Workbook_Open() und drückst F5. Du siehst erst mal kein Ergebnis, aber: Damit wird F12 diesem Makro zugeordnet und Du kannst Deine PDFs mit nur einem Tastendruck exportieren. Willst Du eine andere F-Taste, achte auf Anführungsstriche und Klammern!

Wie kann's noch besser werden? Dass Du jedes Mal auch noch sehen willst, wie die PDFs denn aussehen, wird Dir sicher igendwann lästig werden. Daher habe ich es hier weggelassen - es ist aber natürlich möglich. 

Als interessante Ergänzung könnte ich mir aber vorstellen, dass die Berichte sofort oder später per Outlook verschickt werden und dabei aus demAusgabeordner in den Unterordner Versandt verschoben werden.

Lass wissen, was das veraltete VBA Dir noch Gutes tun kann  Tongue

Schöne Grüße]]> <![CDATA[Seitenzahlen pro Abschnitt getrennt als „Seite X von Y“ anzeigen]]> https://office-fragen.de/thread-29313.html Sat, 11 Apr 2026 21:39:06 +0200 Muecke]]> https://office-fragen.de/thread-29313.html
ich möchte mein Word-Dokument in zwei Teile gliedern, aber trotzdem alles in einer einzigen Datei behalten.

Geplant ist:
  • Teil 1: Kurzfassung / Zusammenfassung
  • Teil 2: Ausführliche Version

Ich habe bereits einen Abschnittswechsel eingefügt und die Fußzeilen voneinander getrennt, sodass sie nicht mehr mit dem vorherigen Abschnitt verknüpft sind.
Außerdem habe ich es schon geschafft, die Seitennummerierung im zweiten Abschnitt wieder bei 1 starten zu lassen.

Was ich aber nicht hinbekomme:
Ich möchte in der Fußzeile jeweils „Seite X von Y“ anzeigen lassen, und zwar pro Abschnitt getrennt.
Also zum Beispiel:
  • im 1. Abschnitt:
    Seite 1 von 2
    Seite 2 von 2
  • im 2. Abschnitt:
    Seite 1 von 11
    Seite 2 von 11
    usw.

Das gesamte Dokument hat aktuell 13 Seiten, aber die Seitenzahlen sollen sich so verhalten, als wären es zwei getrennte Dokumente.
Wichtig ist mir, dass das automatisch funktioniert, weil ich noch nicht fertig bin und sich die Seitenanzahl in beiden Abschnitten noch ändern kann. Ich möchte die Gesamtseitenzahl also nicht später von Hand eintragen müssen.

Hat jemand eine Idee, wie man das in Word sauber lösen kann?

Gruß]]>
ich möchte mein Word-Dokument in zwei Teile gliedern, aber trotzdem alles in einer einzigen Datei behalten.

Geplant ist:
  • Teil 1: Kurzfassung / Zusammenfassung
  • Teil 2: Ausführliche Version

Ich habe bereits einen Abschnittswechsel eingefügt und die Fußzeilen voneinander getrennt, sodass sie nicht mehr mit dem vorherigen Abschnitt verknüpft sind.
Außerdem habe ich es schon geschafft, die Seitennummerierung im zweiten Abschnitt wieder bei 1 starten zu lassen.

Was ich aber nicht hinbekomme:
Ich möchte in der Fußzeile jeweils „Seite X von Y“ anzeigen lassen, und zwar pro Abschnitt getrennt.
Also zum Beispiel:
  • im 1. Abschnitt:
    Seite 1 von 2
    Seite 2 von 2
  • im 2. Abschnitt:
    Seite 1 von 11
    Seite 2 von 11
    usw.

Das gesamte Dokument hat aktuell 13 Seiten, aber die Seitenzahlen sollen sich so verhalten, als wären es zwei getrennte Dokumente.
Wichtig ist mir, dass das automatisch funktioniert, weil ich noch nicht fertig bin und sich die Seitenanzahl in beiden Abschnitten noch ändern kann. Ich möchte die Gesamtseitenzahl also nicht später von Hand eintragen müssen.

Hat jemand eine Idee, wie man das in Word sauber lösen kann?

Gruß]]>