| Hallo, Gast |
Sie müssen sich registrieren bevor Sie auf unserer Seite Beiträge schreiben können.
|
| Benutzer Online |
Momentan sind 145 Benutzer online
» 1 Mitglieder
» 139 Gäste
Applebot, Baidu, Bing, Google, Yandex, filedown00
|
| Aktive Themen |
Automatisches Erstellen v...
Forum: Excel
Letzter Beitrag: d'r Bastler
13.04.2026, 19:59
» Antworten: 7
» Ansichten: 313
|
Automatische Erstellung v...
Forum: Excel
Letzter Beitrag: steve1da
12.04.2026, 15:46
» Antworten: 11
» Ansichten: 474
|
Seitenzahlen pro Abschnit...
Forum: Word
Letzter Beitrag: Muecke
11.04.2026, 23:00
» Antworten: 2
» Ansichten: 138
|
Höhe der Zellen verändern
Forum: Excel
Letzter Beitrag: HKindler
10.04.2026, 14:08
» Antworten: 2
» Ansichten: 192
|
Termine automatisch eintr...
Forum: Outlook
Letzter Beitrag: steve1da
10.04.2026, 07:42
» Antworten: 1
» Ansichten: 138
|
Tausender-Trennzeichen ei...
Forum: Excel
Letzter Beitrag: ArianeH
09.04.2026, 18:52
» Antworten: 2
» Ansichten: 213
|
Schrift verändert sich be...
Forum: PowerPoint
Letzter Beitrag: d'r Bastler
29.03.2026, 13:20
» Antworten: 9
» Ansichten: 864
|
Mehrere Blätter Format un...
Forum: Excel
Letzter Beitrag: RPP63
27.03.2026, 16:35
» Antworten: 22
» Ansichten: 1.808
|
Termine anzeigen
Forum: Outlook
Letzter Beitrag: ArianeH
27.03.2026, 16:22
» Antworten: 2
» Ansichten: 399
|
Eigenschaften bearbeiten
Forum: Word
Letzter Beitrag: d'r Bastler
26.03.2026, 04:56
» Antworten: 2
» Ansichten: 692
|
|
|
| Automatisches Erstellen von PDFs - die Lösung |
|
Geschrieben von: d'r Bastler - 13.04.2026, 13:55 - Forum: Excel
- Antworten (7)
|
 |
Moin Leon,
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  ) leicht und in wenigen Minuten machbar.
- 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.
- 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.
- Mit einem Rechtsklick in dieses Fenster wird Dir Einfügen angeboten, wo Du Modul wählst.
- 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 
Schöne Grüße
|
|
|
| Seitenzahlen pro Abschnitt getrennt als „Seite X von Y“ anzeigen |
|
Geschrieben von: Muecke - 11.04.2026, 21:39 - Forum: Word
- Antworten (2)
|
 |
Hallo miteinander,
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ß
|
|
|
|
| Automatische Erstellung von PDF-Berichten aus Excel – einfacher Weg? |
|
Geschrieben von: leon.express85@gmail.com - 11.04.2026, 05:15 - Forum: Excel
- Antworten (11)
|
|
Hallo zusammen,
ich suche nach einer möglichst einfachen Lösung, um aus Excel-Dateien automatisch PDF-Berichte zu erstellen.
Idealerweise hätte ich einen Workflow, bei dem ich eine Excel-Datei vorbereite und daraus mit wenigen Klicks (oder automatisch) einen sauberen PDF-Report generieren kann.
Meine Fragen: - Gibt es in Excel selbst eine einfache Funktion dafür?
- Ist Power Query / Power Automate dafür geeignet?
- Oder wäre VBA/Makro die beste Lösung?
- Gibt es eventuell Tools oder Add-ins, die ihr empfehlen könnt?
Mir geht es vor allem um eine möglichst unkomplizierte und zuverlässige Lösung, ohne jedes Mal alles manuell als PDF zu exportieren und zu formatieren.
Vielen Dank im Voraus für eure Tipps!
Viele Grüße
leoan_express85
|
|
|
|
| Wenn - dann |
|
Geschrieben von: Preaudience - 24.03.2026, 12:33 - Forum: Excel
- Antworten (1)
|
|
Guten Morgen zusammen
Ich habe ein Problem und bekomme es nicht alleine hin.
Ich habe eine Excelliste A1 - S1 geschrieben in den Zahlen (€ ) eingetragen werden.
B1 bis P1 ergibt dann die Summe in € die in Q1 angezeigt wird
R1 ist mit 10000 € vorgegeben
In S1 steht dann die Summe aus R1-Q1
soweit,so gut
Derzeit steht dann nur in S1 =summe(R1-Q1)
Nun möchte diese Formel in S1 erweitern
=summe(R1-Q1) zeigt erst einen Wert an,wenn B1 mit einer € Summe belegt wird. Solange in B1 nichts eingetragen wird steht dann in S1 der Wert 0
erst wenn ich in B1 einen Wert eingebe,erhalte ich die Summe aus R1-Q1
Ich kriegs nicht hin
Ich hoffe,ich habe mich so halbwegs verständlich ausgedrückt
LG Rainer
|
|
|
|
| Mehrere Blätter Format und Formeln übertragen per Knopf druck |
|
Geschrieben von: Tomsky83 - 24.03.2026, 06:58 - Forum: Excel
- Antworten (22)
|
|
Hallo,
ich bräuchte mal bitte etwas Hilfe bei Excel, bin da ziemlich neu bei.
Wir haben eine Arbeitsmappe in der wir täglich neue fortlaufende Blätter öffnen für unsere Planung jetzt hatte uns da mal jemand eingestellt das per knopfdruck alle Formeln und Bedingte Formatierungen auf das neue Blatt übertragen werden.
Bedingte Formatierung ist das bei zeile A und B die Farbe angepast wird wenn ich bei Zeile N entsprechende Zahl eingebe z.B: bei einer 2 = Hellgrün usw. dies konnte ich auch übertragen mit Format übertragen aber leider die Formeln nicht.
Formeln:
- Auf Zeile P ist folgende Formel : =TEXTVERKETTEN(" / ";WAHR; A3:J3 ) und dann fortlaufend nach unten
- Auf Zeile O ist folgende Formel : =FILTER(Tabelle203!N:N;Tabelle203!P: P = Tabelle204!P3;"") hier ist es jetzt aber so das diese immer Manuell umgeschrieben werden muss die Zahl der Tabelle. Gibt es hier auch eine Formel die dann automatisch immer das letzte Blatt nimmt ohne das man manuell umschreiben muss ?
wie bekomme ich dies am besten hin das alles per Knopfdruck funktioniert ?
Vielen Dank für eure Hilfe
|
|
|
|
|
Keine
Lösung gefunden? Du kannst Dich gerne an
unser erfahrenes Experten-Team
wenden um dein Anliegen zu besprechen.