VBA Code in Word, um eine Datei als PDF zu speichern?

Question

VBA Code in Word, um eine Datei als PDF zu speichern?

Antwort

Verwandte Fragen

Wie kann man in Access VBA eine Pause von 10 Sekunden einlegen?

Wie kann man eine per Access-VBA automatisch geöffnete Excel-Datei direkt wieder schließen?

Was bedeutet der Befehl "QuellBlatt1.Rows(2).Copy" in VBA?

Wie funktioniert oPPT.Presentations.Open(sFile) in VBA?

Wie kann ich mit VBA den Wert einer benannten Zelle in eine Zelle eines anderen Arbeitsblatts kopieren?

Mit welcher Funktion kann ich in VBA einen im Arbeitsblatt ermittelten Wert anzeigen?

Wie lässt sich in Excel VBA der Typ eines Tabellenblatts (Chart oder Worksheet) ermitteln?

Wie kann man in Access VBA die Bildschirmaktualisierung verhindern bzw. den Bildschirm einfrieren?

Wie öffne ich per VBA aus einer Access-Anwendung eine andere Access-Anwendung?

Wie kann die VBA-Formel angepasst werden, sodass alle Mitarbeiter in die Zieltabelle übertragen werden?

Accepted Answer

Um eine geöffnete Word-Datei als PDF mit einem neuen Namen zu speichern, kann folgender VBA-Code verwendet werden: ```vba Sub SaveAsPDF() Dim doc As Document Dim pdfPath As String ' Set the document to the active document Set doc = Active ' Define the path and name for the new PDF file pdfPath = "C:\Pfad\zum\Ordner\NeuerDateiname.pdf" ' Save the document as a PDF doc.ExportAsFixedFormat OutputFileName:=pdfPath, _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ Item:=wdExportDocumentContent, _ IncludeDocProps:=True, _ KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, _ DocStructureTags:=True, _ BitmapMissingFonts:=True, _ UseISO19005_1:=False End Sub ``` Dieser Code speichert die aktuell geöffnete Word-Datei als PDF unter dem angegebenen Pfad und Dateinamen. Der Pfad und der Dateiname müssen entsprechend angepasst werden.

Accepted Answer

In Access VBA kannst du eine Pause von 10 Sekunden mit der Sleep-Funktion aus der Windows-API einlegen. Hier ein Beispiel, wie das funktioniert: ```vba Declare PtrSafe Sub Sleep Lib "kernel32&qu... [mehr]

Accepted Answer

In Access VBA kannst du eine Pause von 10 Sekunden mit der Sleep-Funktion aus der Windows-API einlegen. Hier ein Beispiel, wie das funktioniert: ```vba Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Sub Pause10Sekunden() Sleep 10000 ' 10.000 Millisekunden = 10 Sekunden End Sub ``` **Hinweise:** - In 32-Bit-Versionen von Access verwende stattdessen: `Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)` - Während der Pause reagiert Access nicht auf Benutzereingaben. Weitere Infos zur Sleep-Funktion findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/windows/win32/api/synchapi/nf-synchapi-sleep).

Accepted Answer

Um eine Excel-Datei, die per Access-VBA geöffnet wurde, automatisch wieder zu schließen, solltest du das Excel-Objektmodell in deinem Access-VBA-Code verwenden. Hier ein Beispiel, wie das g... [mehr]

Accepted Answer

Um eine Excel-Datei, die per Access-VBA geöffnet wurde, automatisch wieder zu schließen, solltest du das Excel-Objektmodell in deinem Access-VBA-Code verwenden. Hier ein Beispiel, wie das geht: ```vba Dim xlApp As Object Dim xlWB As Object Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Open("C:\Pfad\zur\Datei.xlsx") ' Hier kannst du ggf. mit der Datei arbeiten xlWB.Close SaveChanges:=False ' oder True, wenn du speichern willst xlApp.Quit Set xlWB = Nothing Set xlApp = Nothing ``` **Wichtige Hinweise:** - `SaveChanges:=False` schließt die Datei ohne zu speichern. Wenn du Änderungen speichern willst, setze es auf `True`. - Mit `xlApp.Quit` wird die gesamte Excel-Anwendung geschlossen. - Die Objekte werden am Ende auf `Nothing` gesetzt, um Speicher freizugeben. Weitere Infos findest du z.B. in der [Microsoft-Dokumentation zu Excel VBA](https://learn.microsoft.com/de-de/office/vba/api/overview/excel). So wird die Excel-Datei nach dem Öffnen automatisch wieder geschlossen.

Accepted Answer

Der Befehl `QuellBlatt1.Rows(2).Copy` in VBA (Visual Basic for Applications) bedeutet, dass die **zweite Zeile** (Row 2) des Arbeitsblatts mit dem Namen oder Objektverweis `QuellBlatt1` **kopiert** wi... [mehr]

Accepted Answer

Der Befehl `QuellBlatt1.Rows(2).Copy` in VBA (Visual Basic for Applications) bedeutet, dass die **zweite Zeile** (Row 2) des Arbeitsblatts mit dem Namen oder Objektverweis `QuellBlatt1` **kopiert** wird. **Erklärung im Detail:** - `QuellBlatt1`: Bezieht sich auf ein Arbeitsblatt-Objekt, das entweder als Variable deklariert oder als Name eines Worksheets verwendet wird. - `.Rows(2)`: Wählt die zweite Zeile des genannten Arbeitsblatts aus. - `.Copy`: Kopiert die ausgewählte Zeile in die Zwischenablage. **Hinweis:** Nach dem Ausführen dieses Befehls ist die Zeile 2 von `QuellBlatt1` in der Zwischenablage und kann an einer anderen Stelle (z.B. mit `.Paste` oder `.PasteSpecial`) eingefügt werden. Weitere Informationen zu VBA findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

Die Methode `oPPT.Presentations.Open(sFile)` stammt aus der Automatisierung von Microsoft PowerPoint mit VBA (Visual Basic for Applications) oder anderen Programmiersprachen, die COM-Automatisierung u... [mehr]

Accepted Answer

Die Methode `oPPT.Presentations.Open(sFile)` stammt aus der Automatisierung von Microsoft PowerPoint mit VBA (Visual Basic for Applications) oder anderen Programmiersprachen, die COM-Automatisierung unterstützen (z.B. VBScript, C# mit Interop). **Bedeutung:** - `oPPT` ist in der Regel ein Objekt, das eine laufende Instanz von PowerPoint repräsentiert (meistens ein `PowerPoint.Application`-Objekt). - `Presentations` ist eine Sammlung aller aktuell geöffneten Präsentationen. - `Open(sFile)` öffnet die Präsentation, deren Pfad und Dateiname in der Variablen `sFile` gespeichert ist. **Beispiel in VBA:** ```vba Dim oPPT As PowerPoint.Application Set oPPT = New PowerPoint.Application Dim oPres As PowerPoint.Presentation Set oPres = oPPT.Presentations.Open("C:\Pfad\zur\Datei.pptx") ``` **Hinweis:** - Der Pfad in `sFile` muss korrekt und zugänglich sein. - PowerPoint muss installiert sein, damit die Automatisierung funktioniert. **Weitere Infos:** - [Microsoft Dokumentation zu Presentations.Open](https://learn.microsoft.com/de-de/office/vba/api/powerpoint.presentations.open) - [PowerPoint VBA-Tutorial](https://docs.microsoft.com/de-de/office/vba/api/overview/powerpoint) Falls du eine bestimmte Programmiersprache oder ein konkretes Problem hast, bitte die Frage entsprechend präzisieren.

Accepted Answer

Um mit VBA den Wert einer Zelle, der ein definierter Name zugewiesen wurde, in eine Zelle eines anderen Arbeitsblatts zu kopieren, kannst du folgenden Code verwenden: ```vba Sub WertKopieren() &#... [mehr]

Accepted Answer

Um mit VBA den Wert einer Zelle, der ein definierter Name zugewiesen wurde, in eine Zelle eines anderen Arbeitsblatts zu kopieren, kannst du folgenden Code verwenden: ```vba Sub WertKopieren() ' Beispiel: Der Name der Quellzelle ist "MeinName" ' Zielzelle ist z.B. Zelle A1 im Blatt "Zielblatt" Dim quellWert As Variant quellWert = Range("MeinName").Value Worksheets("Zielblatt").Range("A1").Value = quellWert End Sub ``` **Erläuterung:** - `Range("MeinName")` greift auf die Zelle zu, der du den Namen "MeinName" zugewiesen hast. - `Worksheets("Zielblatt").Range("A1")` ist die Zielzelle auf dem Blatt "Zielblatt". - Der Wert wird einfach zugewiesen. **Hinweis:** Passe `"MeinName"`, `"Zielblatt"` und `"A1"` an deine Gegebenheiten an. Weitere Infos zu benannten Bereichen findest du z.B. bei [Microsoft](https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-b2f542b7-4e4a-4f90-8dfa-ec8155ca93e9).

Accepted Answer

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").... [mehr]

Accepted Answer

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").Range("A1").Value MsgBox "Der ermittelte Wert ist: " & ermittelterWert ``` Mit `MsgBox` wird ein Dialogfenster angezeigt, das den Wert ausgibt. Alternativ kannst du den Wert auch direkt in eine Zelle schreiben, z.B.: ```vba Worksheets("Tabelle1").Range("B1").Value = ermittelterWert ``` Die Wahl hängt davon ab, ob du den Wert nur anzeigen oder auch im Arbeitsblatt speichern möchtest.

Accepted Answer

In Excel VBA kannst du den Typ eines Tabellenblatts (ob es sich um ein Arbeitsblatt oder ein Diagrammblatt handelt) mit der Type-Eigenschaft des jeweiligen Objekts ermitteln. Hier ein Beispiel: ```vb... [mehr]

Accepted Answer

In Excel VBA kannst du den Typ eines Tabellenblatts (ob es sich um ein Arbeitsblatt oder ein Diagrammblatt handelt) mit der Type-Eigenschaft des jeweiligen Objekts ermitteln. Hier ein Beispiel: ```vba Dim ws As Object For Each ws In ThisWorkbook.Sheets If ws.Type = xlWorksheet Then Debug.Print ws.Name & " ist ein Arbeitsblatt" ElseIf ws.Type = xlChart Then Debug.Print ws.Name & " ist ein Diagrammblatt" Else Debug.Print ws.Name & " ist ein anderer Typ" End If Next ws ``` **Erklärung:** - `xlWorksheet` steht für ein normales Arbeitsblatt. - `xlChart` steht für ein Diagrammblatt. Weitere Infos findest du in der [Microsoft-Dokumentation zu Sheets](https://learn.microsoft.com/de-de/office/vba/api/excel.sheets).

Accepted Answer

In Microsoft Access (VBA) gibt es keine direkte Methode wie `Application.ScreenUpdating = False` (wie in Excel), um den Bildschirm während der Ausführung von Code "einzufrieren". D... [mehr]

Accepted Answer

In Microsoft Access (VBA) gibt es keine direkte Methode wie `Application.ScreenUpdating = False` (wie in Excel), um den Bildschirm während der Ausführung von Code "einzufrieren". Dennoch gibt es einige Möglichkeiten, die Anzeige zu unterdrücken oder zu minimieren, um Flackern oder unerwünschte Aktualisierungen zu vermeiden: **1. Formulare ausblenden:** Du kannst das Formular während der Verarbeitung ausblenden und danach wieder einblenden: ```vba Me.Visible = False ' ... Dein Code ... Me.Visible = True ``` **2. Echo-Methode verwenden:** Mit `DoCmd.Echo` kannst du die Aktualisierung der Benutzeroberfläche unterdrücken: ```vba DoCmd.Echo False ' ... Dein Code ... DoCmd.Echo True ``` **Wichtig:** Setze `DoCmd.Echo True` unbedingt am Ende (am besten auch im Fehlerfall), sonst bleibt Access "eingefroren". **3. MousePointer ändern (optional):** Um dem Benutzer zu signalisieren, dass gearbeitet wird: ```vba Screen.MousePointer = 11 ' Sanduhr ' ... Dein Code ... Screen.MousePointer = 0 ' Standard ``` **Zusammenfassung:** Die gängigste Methode ist `DoCmd.Echo False` zu Beginn und `DoCmd.Echo True` am Ende deines Codes. [Microsoft-Dokumentation zu DoCmd.Echo](https://learn.microsoft.com/de-de/office/vba/api/access.docmd.echo) **Beispiel:** ```vba On Error GoTo Fehler DoCmd.Echo False ' ... Dein Code ... DoCmd.Echo True Exit Sub Fehler: DoCmd.Echo True MsgBox "Fehler: " & Err.Description ``` Damit kannst du die Bildschirmaktualisierung in Access VBA effektiv verhindern.

Accepted Answer

Um aus einer Access-Anwendung per VBA eine andere Access-Anwendung zu öffnen, kannst du das **CreateObject**-Kommando verwenden und die gewünschte Datenbank mit der **OpenCurrentDatabase**-M... [mehr]

Accepted Answer

Um aus einer Access-Anwendung per VBA eine andere Access-Anwendung zu öffnen, kannst du das **CreateObject**-Kommando verwenden und die gewünschte Datenbank mit der **OpenCurrentDatabase**-Methode öffnen. Hier ein Beispiel: ```vba Dim accApp As Object Set accApp = CreateObject("Access.Application") accApp.OpenCurrentDatabase "C:\Pfad\Zur\AnderenDatenbank.accdb" accApp.Visible = True ``` **Erläuterung:** - `CreateObject("Access.Application")` startet eine neue Instanz von Microsoft Access. - `OpenCurrentDatabase` öffnet die angegebene Datenbankdatei. - `Visible = True` sorgt dafür, dass die neue Access-Anwendung für den Benutzer sichtbar ist. **Hinweis:** Passe den Pfad `"C:\Pfad\Zur\AnderenDatenbank.accdb"` entsprechend an. Weitere Informationen findest du in der [Microsoft-Dokumentation zu Access VBA](https://learn.microsoft.com/de-de/office/vba/api/overview/access).

Accepted Answer

Hier ist die überarbeitete Version des Makros, die **jeden Mitarbeiter** aus dem Bereich C9:C66 der Quell-Tabelle ("Personen einzelnd drucken") in die Ziel-Tabelle ("Arbeitsplan&qu... [mehr]

Accepted Answer

Hier ist die überarbeitete Version des Makros, die **jeden Mitarbeiter** aus dem Bereich C9:C66 der Quell-Tabelle ("Personen einzelnd drucken") in die Ziel-Tabelle ("Arbeitsplan") überträgt – unabhängig davon, ob der Name bereits in der Ziel-Tabelle steht. Für jeden gefundenen Namen wird die entsprechende Zeile im "Arbeitsplan" gesucht und die Werte werden übertragen. Falls der Name nicht gefunden wird, wird er übersprungen. ```vba Sub uebertragAllePersonen() Dim wb As Workbook Dim wsQuell As Worksheet, wsZiel As Worksheet Dim datumToFind As Variant, rGef As Range Dim nameQuell As Variant Dim zielStartCol As Long, zielCol As Long, quelleCol As Long Dim i As Long, j As Long Dim nameGefunden As Boolean Set wb = ThisWorkbook Set wsQuell = wb.Sheets("Personen einzelnd drucken") Set wsZiel = wb.Sheets("Arbeitsplan") ' Datum aus Spalte B8 der Quell-Tabelle als Zahl If IsDate(wsQuell.Range("B8").Value) Then datumToFind = CLng(wsQuell.Range("B8").Value) Else MsgBox "Datum in Personen einzeln drucken!B8 ist ungültig oder leer.", vbExclamation Exit Sub End If zielStartCol = 4 ' Spalte D ' Jetzt alle Namen in C9:C66 durchgehen For i = 9 To 66 nameQuell = wsQuell.Cells(i, 3).Value ' Spalte C If Not IsEmpty(nameQuell) Then nameGefunden = False ' In Arbeitsplan Spalte A nach Datum suchen For Each rGef In wsZiel.Columns("A").Cells If IsDate(rGef.Value) Then If CLng(rGef.Value) = datumToFind Then ' Prüfen, ob Name in Spalte B übereinstimmt If wsZiel.Cells(rGef.Row, "B").Value = nameQuell Then ' Kopiere Werte von Arbeitsplan F bis BA in die Zielspalten ab Spalte D der aktuellen Zeile For zielCol = 6 To 54 ' F(6) bis BA(54) wsQuell.Cells(i, zielStartCol + (zielCol - 6)).Value = wsZiel.Cells(rGef.Row, zielCol).Value Next zielCol nameGefunden = True Exit For End If End If End If If rGef.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen Next rGef ' Optional: Hinweis, wenn Name nicht gefunden wurde 'If Not nameGefunden Then ' wsQuell.Cells(i, zielStartCol).Value = "Name nicht gefunden" 'End If End If Next i MsgBox "Datenübertragung abgeschlossen.", vbInformation End Sub ``` **Hinweise:** - Das Makro sucht für **jeden** Namen aus C9:C66 das passende Datum und den Namen in der Ziel-Tabelle und überträgt die Werte. - Falls ein Name nicht gefunden wird, passiert nichts (optional kann ein Hinweis in die Quell-Tabelle geschrieben werden, siehe Kommentar). - Die Übertragung erfolgt immer in die Zeile des jeweiligen Mitarbeiters in der Quell-Tabelle. Falls du möchtest, dass auch neue Mitarbeiter in die Ziel-Tabelle eingefügt werden, müsste das Makro entsprechend erweitert werden.