<![CDATA[Office-Fragen.de

<![CDATA[Office-Fragen.de - Excel]]> https://office-fragen.de/ Sun, 02 Aug 2026 17:23:47 +0000 MyBB <![CDATA[dynamsiches, abhängiges Dropdown ohne klassische Haupttabelle]]> https://office-fragen.de/thread-29330.html Mon, 20 Jul 2026 15:20:12 +0200 Wolf-Tilmann]]> https://office-fragen.de/thread-29330.html
ich habe wieder einmal ein Problem, bei welchem ich nicht weiterkomme.

Ich habe eine Tabelle, welche ich in den ersten drei Spalten mittels Dropdown fülle.

Spalte Hersteller aus Tabelle Hersteller
Spalte Türer aus Tabelle Türer
Spalte Besitz aus Tabelle Besitz

Die Tabellen können sich erweitern.

Das funktioniert.

In die Spalte ORG trage ich eine Ziffernfolge manuell aus einer anderen Informationsquelle ein.

In der Spalte ZUF benötige ich ein weiteres Dropdown.

Hier ist mein Problem.

Zur Auswahl dürfen, auch in zukünftigen Zeilen, dynamisch nur Ziffern aus der Spalte ORG stehen, welche
1. über die Gesamte Tabelle in den Spalten Hersteller und Türer gleich sind
2. in der Spalte Besitz nicht als gekauft erfasst ist.

Jeweils in Spalte ZUF
Zeile A: 2,5, 50
Zeile B: 5
Zeile C: 2, 5, 50
Zeile D: 5, 8
Zeile E: 2, 5, 50
Zeile F: LEER
Zeile G: 5, 8

Ich kann weder Power Query noch Makro oder eine sonstige Scriptsprache verwenden.

Beispiel anbei.

Kann mir bitte jemand weiterhelfen?

Vielen Dank
Eine schöne Zeit

Wolf-Tilmann

.xlsx

Hilfsliste.xlsx (Größe: 12,54 KB / Downloads: 3) ]]>
ich habe wieder einmal ein Problem, bei welchem ich nicht weiterkomme.

Ich habe eine Tabelle, welche ich in den ersten drei Spalten mittels Dropdown fülle.

Spalte Hersteller aus Tabelle Hersteller
Spalte Türer aus Tabelle Türer
Spalte Besitz aus Tabelle Besitz

Die Tabellen können sich erweitern.

Das funktioniert.

In die Spalte ORG trage ich eine Ziffernfolge manuell aus einer anderen Informationsquelle ein.

In der Spalte ZUF benötige ich ein weiteres Dropdown.

Hier ist mein Problem.

Zur Auswahl dürfen, auch in zukünftigen Zeilen, dynamisch nur Ziffern aus der Spalte ORG stehen, welche
1. über die Gesamte Tabelle in den Spalten Hersteller und Türer gleich sind
2. in der Spalte Besitz nicht als gekauft erfasst ist.

Jeweils in Spalte ZUF
Zeile A: 2,5, 50
Zeile B: 5
Zeile C: 2, 5, 50
Zeile D: 5, 8
Zeile E: 2, 5, 50
Zeile F: LEER
Zeile G: 5, 8

Ich kann weder Power Query noch Makro oder eine sonstige Scriptsprache verwenden.

Beispiel anbei.

Kann mir bitte jemand weiterhelfen?

Vielen Dank
Eine schöne Zeit

Wolf-Tilmann

.xlsx

Hilfsliste.xlsx (Größe: 12,54 KB / Downloads: 3) ]]> <![CDATA[Überarbeitung einer kleinen Kunden-/Adreßverwaltung]]> https://office-fragen.de/thread-29328.html Mon, 06 Jul 2026 19:53:25 +0200 Heiko2000]]> https://office-fragen.de/thread-29328.html unter Excel VBA-Forum - Das Forum zu Microsoft Excel VBA habe ich schon mal gefragt. Aber da komme ich nicht weiter. Deswegen versuche ich es hier mal, zumal ich hier auch meine Excelmappe hochladen kann.

Ich habe unter Excel 2021 eine Mappe mit Makros angelegt. Dort ein Formular mit mehreren TextBoxen/Labels, 2 ComboBoxen und einem Button zum Speichern.

Geht um eine kleine Kunden-/Adreßverwaltung. Ich würde Euch gerne mal meine Mappe zeigen. Kann ich hier keine Anlagen beifügen?

Ich frage die wichtigsten TextBoxen auf Inhalt ab. Ist kein Eintrag, kommt eine Fehlermeldung.
Gebe ich die Daten ein und klicke auf Speichern, werden die Daten in einer Tabelle reinkopiert. Danach werden die TextBoxen gelöscht, um dann weitere Daten einfügen zu können.

Ich hatte schon was in Facebook-Gruppe (Excel VBA Programmierung | Facebook) geschrieben. Aber mir konnte da scheinbar niemand mehr helfen, es kam zumindest nix mehr.

Ich hatte die Mappe in FB hochgeladen. Jetzt schreibt mir einer, das UserForm sollte sich automatisch öffnen (das bekomme ich noch hin), die Quelltexte könnten optimiert werden und eine Funktion zum Suchen/Ändern von Einträgen. Ich weiß nicht wo ich da was optimieren könnte. Und Daten suchen/ändern, wie mache ich das? Muß ich ein neues zusätzliches Formular für die Suche/Änderung anlegen und dann ne Abfrage machen? Da ich gerade erst ein Fernstudium VBA-Programmierung mache, habe ich noch nicht viele Kenntnisse.

LG
Heiko

.xlsm

Kunden_Adress_Verwaltung.xlsm (Größe: 18,44 KB / Downloads: 4) ]]> unter Excel VBA-Forum - Das Forum zu Microsoft Excel VBA habe ich schon mal gefragt. Aber da komme ich nicht weiter. Deswegen versuche ich es hier mal, zumal ich hier auch meine Excelmappe hochladen kann.

Ich habe unter Excel 2021 eine Mappe mit Makros angelegt. Dort ein Formular mit mehreren TextBoxen/Labels, 2 ComboBoxen und einem Button zum Speichern.

Geht um eine kleine Kunden-/Adreßverwaltung. Ich würde Euch gerne mal meine Mappe zeigen. Kann ich hier keine Anlagen beifügen?

Ich frage die wichtigsten TextBoxen auf Inhalt ab. Ist kein Eintrag, kommt eine Fehlermeldung.
Gebe ich die Daten ein und klicke auf Speichern, werden die Daten in einer Tabelle reinkopiert. Danach werden die TextBoxen gelöscht, um dann weitere Daten einfügen zu können.

Ich hatte schon was in Facebook-Gruppe (Excel VBA Programmierung | Facebook) geschrieben. Aber mir konnte da scheinbar niemand mehr helfen, es kam zumindest nix mehr.

Ich hatte die Mappe in FB hochgeladen. Jetzt schreibt mir einer, das UserForm sollte sich automatisch öffnen (das bekomme ich noch hin), die Quelltexte könnten optimiert werden und eine Funktion zum Suchen/Ändern von Einträgen. Ich weiß nicht wo ich da was optimieren könnte. Und Daten suchen/ändern, wie mache ich das? Muß ich ein neues zusätzliches Formular für die Suche/Änderung anlegen und dann ne Abfrage machen? Da ich gerade erst ein Fernstudium VBA-Programmierung mache, habe ich noch nicht viele Kenntnisse.

LG
Heiko

.xlsm

Kunden_Adress_Verwaltung.xlsm (Größe: 18,44 KB / Downloads: 4) ]]> <![CDATA[Bertäge addieren (mit Formel)]]> https://office-fragen.de/thread-29327.html Fri, 03 Jul 2026 13:53:47 +0200 Hotte_43]]> https://office-fragen.de/thread-29327.html 1. Von der Antragsumme werden 10% abgezogen.
2. Von diesem ermittelnden Betrag werden ja nach Anzahl Mitglieder nn Prozente abgezogen.
3. Auf diesen ermittelnden Betrag wird eine Bezuschussung aufaddiert, was dann die Auszahlung ergibt.

Wenn das im Beispiel, in der Zelle E direkt berechnet wird, ist der Betrag falsch (zu hoch).
Wird der Betrag vorher in Zelle F übertragen und in Zelle G die Bezuschussung addiert, ist der Betrag richtig.

Was ist fasch an der Formel in Zelle E ?]]> 1. Von der Antragsumme werden 10% abgezogen.
2. Von diesem ermittelnden Betrag werden ja nach Anzahl Mitglieder nn Prozente abgezogen.
3. Auf diesen ermittelnden Betrag wird eine Bezuschussung aufaddiert, was dann die Auszahlung ergibt.

Wenn das im Beispiel, in der Zelle E direkt berechnet wird, ist der Betrag falsch (zu hoch).
Wird der Betrag vorher in Zelle F übertragen und in Zelle G die Bezuschussung addiert, ist der Betrag richtig.

Was ist fasch an der Formel in Zelle E ?]]> <![CDATA[Freigegebene xlsx Datei verliert Daten]]> https://office-fragen.de/thread-29326.html Thu, 02 Jul 2026 15:53:11 +0200 Tom008]]> https://office-fragen.de/thread-29326.html hat jemand einen Tipp für mich, wie ich eine freigegebene xlsx Datei schadlos benutzen kann oder wo der Fehler liegen kann?

Die Datei ist auf dem Server freigegeben. Alle Benutzer haben Windows 10.
Eingetragene Daten(ganze Zeilen) verschwinden manchmal oder werden wie von Zauberhand dreifach eingetragen.

Im schlimmstren Fall öffnest du morgens die Datei und die Aufträge vom Vortag fehlen ganz oder teilweise.
Da hilt dir auch kein Backup weiter, da über Nacht die Sicherungsdatei genauso aussieht.

Das geht schon mal bis zum Totalverlust der Einträge des Tages(Auftragsbuch).
Unabhängig davon, ob einer oder ein zweiter Benutzer die Datei benutzt hat.

Es ist ein simples Auftragsbuch ohne Formeln oder Bezüge auf andere Seiten oder Dateien.

Grüße]]> hat jemand einen Tipp für mich, wie ich eine freigegebene xlsx Datei schadlos benutzen kann oder wo der Fehler liegen kann?

Die Datei ist auf dem Server freigegeben. Alle Benutzer haben Windows 10.
Eingetragene Daten(ganze Zeilen) verschwinden manchmal oder werden wie von Zauberhand dreifach eingetragen.

Im schlimmstren Fall öffnest du morgens die Datei und die Aufträge vom Vortag fehlen ganz oder teilweise.
Da hilt dir auch kein Backup weiter, da über Nacht die Sicherungsdatei genauso aussieht.

Das geht schon mal bis zum Totalverlust der Einträge des Tages(Auftragsbuch).
Unabhängig davon, ob einer oder ein zweiter Benutzer die Datei benutzt hat.

Es ist ein simples Auftragsbuch ohne Formeln oder Bezüge auf andere Seiten oder Dateien.

Grüße]]> <![CDATA[Spalte mit Liste vergleichen]]> https://office-fragen.de/thread-29325.html Wed, 01 Jul 2026 20:57:45 +0200 redeagle56]]> https://office-fragen.de/thread-29325.html wie schaffe ich es, Werte in einer Spalte mit den Werten einer
Liste zu vergleichen.
In Spalte C soll eine 1 Stehen, wenn Werte in der Spalte B mit
Werten in der Spalte D übereinstimmen.
Ich habe schon einiges probiert, komme aber nicht zu einem
Ergebnis.
Kann mir jemand helfen?

MfG Günter

.xlsx

Vergleichen.xlsx (Größe: 11,96 KB / Downloads: 8) ]]> wie schaffe ich es, Werte in einer Spalte mit den Werten einer
Liste zu vergleichen.
In Spalte C soll eine 1 Stehen, wenn Werte in der Spalte B mit
Werten in der Spalte D übereinstimmen.
Ich habe schon einiges probiert, komme aber nicht zu einem
Ergebnis.
Kann mir jemand helfen?

MfG Günter

.xlsx

Vergleichen.xlsx (Größe: 11,96 KB / Downloads: 8) ]]> <![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

]]> <![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]

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]

  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[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.

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 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.

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

Code:
Option Explicit

Private Sub Workbook_Open()

    Application.OnKey "({F12})", "Export_To_PDF"

End Sub

Schöne Grüße]]> <![CDATA[Automatische Erstellung von PDF-Berichten aus Excel – einfacher Weg?]]> https://office-fragen.de/thread-29312.html Sat, 11 Apr 2026 05:15:01 +0200 leon.express85@gmail.com]]> https://office-fragen.de/thread-29312.html 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]]> 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]]> <![CDATA[Höhe der Zellen verändern]]> https://office-fragen.de/thread-29310.html Thu, 09 Apr 2026 18:51:17 +0200 ArianeH]]> https://office-fragen.de/thread-29310.html
ich benutze Excel 2024. Wie verändere ich die Höhe der Zellen?

Viele Grüße]]>
ich benutze Excel 2024. Wie verändere ich die Höhe der Zellen?

Viele Grüße]]> <![CDATA[Tausender-Trennzeichen einfügen]]> https://office-fragen.de/thread-29309.html Wed, 08 Apr 2026 11:23:45 +0200 ArianeH]]> https://office-fragen.de/thread-29309.html
ich benutze Excel 2024. Wie füge ich das Tausender-Trennzeichen ein?

Viele Grüße]]>
ich benutze Excel 2024. Wie füge ich das Tausender-Trennzeichen ein?

Viele Grüße]]> <![CDATA[Teilergebnis und Zählenwenn]]> https://office-fragen.de/thread-29308.html Wed, 25 Mar 2026 17:43:58 +0100 edito]]> https://office-fragen.de/thread-29308.html
ich habe eine spalte B mit "Wert" die Differenzen anzeigt, wenn es welche gibt.
In Spalte A Habe ich Länder. In dem Beispiel A und B

Nun möchte ich mir auch ein Teilergebnis der Anzahl der Abweichungen in Spalte B anzeigen lassen, wenn ich nach Land a oder b Filter. DOCH dies klappt irgendwie nicht.

Hat jemand eine Idee, wie ich dies in Zelle b1 hinbekomme.

Im Anhang eine Beispieldatei.

Vielen Dank

forum Teil Zählen.xlsx (Größe: 10,16 KB / Downloads: 2) ]]>
ich habe eine spalte B mit "Wert" die Differenzen anzeigt, wenn es welche gibt.
In Spalte A Habe ich Länder. In dem Beispiel A und B

Nun möchte ich mir auch ein Teilergebnis der Anzahl der Abweichungen in Spalte B anzeigen lassen, wenn ich nach Land a oder b Filter. DOCH dies klappt irgendwie nicht.

Hat jemand eine Idee, wie ich dies in Zelle b1 hinbekomme.

Im Anhang eine Beispieldatei.

Vielen Dank

forum Teil Zählen.xlsx (Größe: 10,16 KB / Downloads: 2) ]]>