Wie kann ich in Excel VBA die farbig markierten Reiter drucken und die Druckeinstellung so festlegen, dass das Blatt auf einer Seite dargestellt wird?

Question

Wie kann ich in Excel VBA die farbig markierten Reiter drucken und die Druckeinstellung so festlegen, dass das Blatt auf einer Seite dargestellt wird?

Antwort

Verwandte Fragen

Excel VBA: Farbige Reiter drucken und PDF erstellen.

Excel VBA: Reiter, die farbig markiert sind, Druckeinstellung auf eine Seite darstellen und eine PDF erstellen?

Excel VBA: Grün markierte Reiter sollen in eine PDF-Datei gedruckt werden, jedes Arbeitsblatt auf eine Seite darstellen und die erste Seite mit einer Kopfzeile beschriften.

Wie kann ich mit VBA die Zelle mit dem Namen 'Konto' auswählen?

Wie kann ich mit einem VBA-Makro eine Zellverknüpfung zu einem anderen, nicht geöffneten Arbeitsblatt aktualisieren?

Wie setze ich Variablen beim Starten einer Excel-Tabelle mit VBA?

Was bewirkt der VBA-Code ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18"?

Wie kann der VBA-Code angepasst werden, damit in 'Personen einzelnd drucken' der Name in Spalte C9-C66 gesucht und mit dem Wert im Arbeitsplan verglichen wird?

Warum erkennt mein Excel VBA-Makro das Datum im Arbeitsplan nicht, obwohl es als Datum hinterlegt ist, aber in einer anderen Tabelle als Zahl angezeigt wird?

Wie lege ich Drucktitel in Excel VBA fest?

Accepted Answer

Um in Excel VBA die farbig markierten Blätter zu drucken und dabei die Druckeinstellungen so zu setzen, dass jedes Blatt auf einer Seite dargestellt wird, kannst du den folgenden Code verwenden. Dieser Code durchläuft alle Blätter in der Arbeitsmappe, prüft, ob sie farbig markiert sind, und stellt die Druckeinstellungen entsprechend ein. ```vba Sub DruckeFarbigMarkierteBlätter() Dim ws As Worksheet Dim farbigMarkiert As Boolean For Each ws In ThisWorkbook.Worksheets ' Überprüfen, ob das Blatt farbig markiert ist If ws.Tab.Color <> xlNone Then farbigMarkiert = True ' Druckeinstellungen setzen With ws.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 .Orientation = xlPortrait ' oder xlLandscape für Querformat End With ' Blatt drucken ws.PrintOut End If Next ws If Not farbigMarkiert Then MsgBox "Es sind keine farbig markierten Blätter vorhanden." End If End Sub ``` Dieser Code führt die folgenden Schritte aus: 1. Er durchläuft alle Arbeitsblätter in der aktuellen Arbeitsmappe. 2. Er prüft, ob das Tab des Blattes eine Farbe hat (d.h. ob es farbig markiert ist). 3. Wenn das Blatt farbig markiert ist, werden die Druckeinstellungen so gesetzt, dass das Blatt auf eine Seite passt. 4. Schließlich wird das Blatt gedruckt. Um den Code auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.

Accepted Answer

Um in Excel VBA die farbig markierten Reiter (Arbeitsblätter) auszuwählen, die Druckeinstellungen so zu ändern, dass sie auf eine Seite passen, und anschließend eine PDF-Datei zu... [mehr]

Accepted Answer

Um in Excel VBA die farbig markierten Reiter (Arbeitsblätter) auszuwählen, die Druckeinstellungen so zu ändern, dass sie auf eine Seite passen, und anschließend eine PDF-Datei zu erstellen, kannst du den folgenden VBA-Code verwenden: ```vba Sub ExportColoredSheetsToPDF() Dim ws As Worksheet Dim pdfPath As String Dim coloredSheets As Collection Set coloredSheets = New Collection ' Pfad für die PDF-Datei festlegen pdfPath = ThisWorkbook.Path & "\ColoredSheets.pdf" ' Durchlaufe alle Arbeitsblätter und füge die farbig markierten hinzu For Each ws In ThisWorkbook.Worksheets If ws.Tab.Color <> xlNone Then coloredSheets.Add ws End If Next ws ' Wenn keine farbig markierten Blätter gefunden wurden If coloredSheets.Count = 0 Then MsgBox "Es wurden keine farbig markierten Blätter gefunden." Exit Sub End If ' Druckeinstellungen für jedes farbig markierte Blatt anpassen For Each ws In coloredSheets With ws.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Next ws ' PDF erstellen Dim sheetArray() As String ReDim sheetArray(1 To coloredSheets.Count) For i = 1 To coloredSheets.Count sheetArray(i) = coloredSheets(i).Name Next i ThisWorkbook.Sheets(sheetArray).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard MsgBox "PDF wurde erfolgreich erstellt: " & pdfPath End Sub ``` ### Erklärung des Codes: 1. **Sammlung der farbig markierten Blätter**: Der Code durchläuft alle Arbeitsblätter und fügt die hinzu, deren Tab-Farbe nicht `xlNone` ist. 2. **Druckeinstellungen**: Für jedes farbig markierte Blatt werden die Druckeinstellungen so gesetzt, dass es auf eine Seite passt. 3. **PDF-Erstellung**: Die ausgewählten Blätter werden in eine PDF-Datei exportiert. ### Verwendung: - Füge diesen Code in ein Modul in der VBA-Entwicklungsumgebung von Excel ein. - Führe das Makro `ExportColoredSheetsToPDF` aus, um die PDF zu erstellen. Stelle sicher, dass du die richtigen Berechtigungen hast, um auf den angegebenen Pfad zuzugreifen und die PDF zu speichern.

Accepted Answer

Um in Excel VBA die farbig markierten Reiter (Arbeitsblätter) auszuwählen, die Druckeinstellungen so zu ändern, dass sie auf eine Seite passen, und anschließend eine PDF zu erstel... [mehr]

Accepted Answer

Um in Excel VBA die farbig markierten Reiter (Arbeitsblätter) auszuwählen, die Druckeinstellungen so zu ändern, dass sie auf eine Seite passen, und anschließend eine PDF zu erstellen, kannst du den folgenden Code verwenden: ```vba Sub ExportColoredSheetsToPDF() Dim ws As Worksheet Dim pdfPath As String Dim coloredSheets As Collection Set coloredSheets = New Collection ' Pfad für die PDF-Datei festlegen pdfPath = ThisWorkbook.Path & "\ExportedSheets.pdf" ' Durchlaufe alle Arbeitsblätter und füge die farbig markierten hinzu For Each ws In ThisWorkbook.Worksheets If ws.Tab.Color <> RGB(255, 255, 255) Then ' Überprüfen, ob die Registerkarte farbig ist coloredSheets.Add ws End If Next ws ' Wenn farbig markierte Blätter gefunden wurden If coloredSheets.Count > 0 Then ' Druckeinstellungen anpassen For Each ws In coloredSheets With ws.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Next ws ' PDF erstellen Dim sheetArray() As String ReDim sheetArray(1 To coloredSheets.Count) For i = 1 To coloredSheets.Count sheetArray(i) = coloredSheets(i).Name Next i ' Exportiere die Arbeitsblätter als PDF ThisWorkbook.Sheets(sheetArray).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard MsgBox "PDF wurde erfolgreich erstellt: " & pdfPath Else MsgBox "Keine farbig markierten Arbeitsblätter gefunden." End If End Sub ``` ### Erklärung des Codes: 1. **Sammlung der farbig markierten Blätter**: Der Code durchläuft alle Arbeitsblätter und fügt die hinzu, deren Registerkartenfarbe nicht weiß ist. 2. **Druckeinstellungen**: Für jedes gefundene Arbeitsblatt werden die Druckeinstellungen so angepasst, dass es auf eine Seite passt. 3. **PDF-Erstellung**: Die ausgewählten Arbeitsblätter werden als PDF im gleichen Verzeichnis wie die Arbeitsmappe gespeichert. ### Verwendung: - Füge diesen Code in ein Modul in der VBA-Entwicklungsumgebung von Excel ein. - Führe das Makro `ExportColoredSheetsToPDF` aus, um die PDF zu erstellen. Stelle sicher, dass du die richtigen Berechtigungen hast, um auf den angegebenen Pfad zuzugreifen und die PDF zu speichern.

Accepted Answer

Um in Excel VBA alle grün markierten Arbeitsblätter als PDF zu drucken und dabei sicherzustellen, dass jedes Arbeitsblatt auf einer Seite dargestellt wird und die erste Seite eine Kopfzeile... [mehr]

Accepted Answer

Um in Excel VBA alle grün markierten Arbeitsblätter als PDF zu drucken und dabei sicherzustellen, dass jedes Arbeitsblatt auf einer Seite dargestellt wird und die erste Seite eine Kopfzeile hat, kannst du den folgenden VBA-Code verwenden: ```vba Sub PrintGreenSheetsToPDF() Dim ws As Worksheet Dim pdfPath As String Dim pdfFileName As String Dim firstPageHeader As String Dim pdfSheets As Collection Set pdfSheets = New Collection ' Pfad und Dateiname für die PDF-Datei festlegen pdfPath = ThisWorkbook.Path & "\" pdfFileName = "GrünMarkierteBlätter.pdf" ' Kopfzeile für die erste Seite festlegen firstPageHeader = "Kopfzeile für die erste Seite" ' Durchlaufe alle Arbeitsblätter For Each ws In ThisWorkbook.Worksheets If ws.Tab.Color = RGB(0, 255, 0) Then ' Überprüfen, ob das Blatt grün markiert ist pdfSheets.Add ws.Name End If Next ws ' Wenn keine grünen Blätter gefunden wurden If pdfSheets.Count = 0 Then MsgBox "Es wurden keine grün markierten Blätter gefunden." Exit Sub End If ' Erstelle eine neue PDF-Datei Dim pdfFile As String pdfFile = pdfPath & pdfFileName ' Setze die Kopfzeile für das erste Blatt With ThisWorkbook.Worksheets(pdfSheets(1)) .PageSetup.CenterHeader = firstPageHeader .PageSetup.FitToPagesWide = 1 .PageSetup.FitToPagesTall = 1 End With ' Drucken der grünen Blätter in eine PDF-Datei Dim sheetName As Variant For Each sheetName In pdfSheets ThisWorkbook.Worksheets(sheetName).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next sheetName MsgBox "Die PDF-Datei wurde erfolgreich erstellt: " & pdfFile End Sub ``` ### Hinweise: 1. **Kopfzeile**: Die Kopfzeile wird nur für das erste grün markierte Arbeitsblatt gesetzt. Du kannst die Kopfzeile nach Bedarf anpassen. 2. **PDF-Pfad**: Die PDF-Datei wird im gleichen Verzeichnis wie die Excel-Datei gespeichert. Du kannst den Pfad anpassen, wenn nötig. 3. **Farbüberprüfung**: Der Code überprüft, ob die Registerkarte des Arbeitsblatts grün ist (RGB(0, 255, 0)). Du kannst die RGB-Werte anpassen, um andere Farben zu überprüfen. Führe diesen Code in einem Modul in deiner Excel-Arbeitsmappe aus, um die gewünschten Arbeitsblätter als PDF zu drucken.

Accepted Answer

Um in VBA eine Zelle mit dem Namen „Konto“ auszuwählen, kannst du den Namen direkt über das `Range`-Objekt ansprechen. Voraussetzung ist, dass der Name „Konto“ als be... [mehr]

Accepted Answer

Um in VBA eine Zelle mit dem Namen „Konto“ auszuwählen, kannst du den Namen direkt über das `Range`-Objekt ansprechen. Voraussetzung ist, dass der Name „Konto“ als benannter Bereich in deiner Arbeitsmappe existiert. Hier ein Beispielcode: ```vba Range("Konto").Select ``` Falls du dichergehen möchtest, dass der Name existiert, kannst du es so absichern: ```vba Dim nm As Name On Error Resume Next Set nm = ThisWorkbook.Names("Konto") On Error GoTo 0 If Not nm Is Nothing Then Range("Konto").Select Else MsgBox "Der benannte Bereich 'Konto' existiert nicht." End If ``` **Hinweis:** - Der Code funktioniert nur, wenn der Name „Konto“ eindeutig ist und sich auf eine einzelne Zelle bezieht. - In modernen Excel-Versionen ist die Verwendung von `.Select` oft nicht nötig, da du direkt mit dem Bereich arbeiten kannst. Weitere Infos zu benannten Bereichen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-bd4224d2-167d-4a9a-8454-1c2d3786e99f).

Accepted Answer

Um eine Verknüpfung (z.B. eine Formel wie `='[AndereDatei.xlsx]Tabelle1'!A1`) in einer Zelle per VBA zu aktualisieren, ohne dass die verknüpfte Arbeitsmappe geöffnet ist, kann... [mehr]

Accepted Answer

Um eine Verknüpfung (z.B. eine Formel wie `='[AndereDatei.xlsx]Tabelle1'!A1`) in einer Zelle per VBA zu aktualisieren, ohne dass die verknüpfte Arbeitsmappe geöffnet ist, kannst du die Methode `UpdateLinks` verwenden. Diese Methode aktualisiert die externen Verknüpfungen in einer Arbeitsmappe. Hier ein Beispiel, wie du das per VBA machen kannst: ```vba Sub VerknuepfungenAktualisieren() ' Aktualisiert alle externen Verknüpfungen in der aktuellen Arbeitsmappe ThisWorkbook.UpdateLinks xlUpdateLinksExcelLinks End Sub ``` **Wichtige Hinweise:** - Die Methode funktioniert nur, wenn die Quelldatei (die andere Arbeitsmappe) gespeichert und zugänglich ist (z.B. im Netzwerk oder auf der Festplatte). - Die Quelldatei muss nicht geöffnet sein, aber sie darf nicht verschoben oder umbenannt worden sein, sonst schlägt die Aktualisierung fehl. - Wenn du gezielt nur eine bestimmte Verknüpfung aktualisieren möchtest, kannst du die Links auslesen und gezielt ansprechen: ```vba Sub BestimmteVerknuepfungAktualisieren() Dim links As Variant Dim i As Integer links = ThisWorkbook.LinkSources(xlLinkTypeExcelLinks) If Not IsEmpty(links) Then For i = 1 To UBound(links) If InStr(links(i), "AndereDatei.xlsx") > 0 Then ThisWorkbook.UpdateLink Name:=links(i), Type:=xlLinkTypeExcelLinks End If Next i End If End Sub ``` **Weitere Informationen:** - [Microsoft Dokumentation zu UpdateLinks](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.updatelinks) - [Microsoft Dokumentation zu LinkSources](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.linksources) Mit diesen Makros kannst du Verknüpfungen zu nicht geöffneten Arbeitsmappen aktualisieren.

Accepted Answer

Um Variablen wie `Set wsKriterien = ThisWorkbook.Worksheets("Kriterien")` beim Starten einer Excel-Datei automatisch zu setzen, kannst du das Workbook-Open-Ereignis im VBA-Editor nutzen. So... [mehr]

Accepted Answer

Um Variablen wie `Set wsKriterien = ThisWorkbook.Worksheets("Kriterien")` beim Starten einer Excel-Datei automatisch zu setzen, kannst du das Workbook-Open-Ereignis im VBA-Editor nutzen. So gehst du vor: 1. **VBA-Editor öffnen:** Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. **Zum "DieseArbeitsmappe"-Modul wechseln:** Im Projekt-Explorer auf der linken Seite doppelklicken auf `DieseArbeitsmappe` (englisch: `ThisWorkbook`). 3. **Workbook_Open-Ereignis einfügen:** Füge folgenden Code ein: ```vba Dim wsKriterien As Worksheet Private Sub Workbook_Open() Set wsKriterien = ThisWorkbook.Worksheets("Kriterien") ' Hier kannst du weitere Aktionen mit wsKriterien durchführen End Sub ``` **Wichtig:** - Die Variable `wsKriterien` ist in diesem Beispiel nur innerhalb des Moduls gültig. - Wenn du sie in mehreren Modulen verwenden möchtest, deklariere sie als `Public` ganz oben in einem allgemeinen Modul: ```vba Public wsKriterien As Worksheet ``` und dann im `Workbook_Open`-Ereignis: ```vba Set wsKriterien = ThisWorkbook.Worksheets("Kriterien") ``` 4. **Datei als Makro-Arbeitsmappe speichern:** Speichere die Datei als `.xlsm`, damit Makros ausgeführt werden können. **Ergebnis:** Jedes Mal, wenn die Arbeitsmappe geöffnet wird, wird die Variable `wsKriterien` automatisch auf das Arbeitsblatt "Kriterien" gesetzt. Weitere Infos zu VBA-Ereignissen findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.open).

Accepted Answer

Der Ausdruck ```vba ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18" ``` weist dem definierten Namen **z06_a1401111_Beric... [mehr]

Accepted Answer

Der Ausdruck ```vba ThisWorkbook.Names("z06_a1401111_Bericht").RefersToR1S1 = "='z06_a1401111_Bericht'!R1S1:R20S18" ``` weist dem definierten Namen **z06_a1401111_Bericht** im aktuellen Workbook einen neuen Bezug zu. **RefersToR1S1** verwendet dabei die R1S1-Referenzschreibweise (Reihe/Spalte statt A1/B1). **Bedeutung:** - Der Name verweist nun auf den Zellbereich von **Zeile 1, Spalte 1** bis **Zeile 20, Spalte 18** auf dem Tabellenblatt **z06_a1401111_Bericht**. - In A1-Schreibweise entspricht das dem Bereich **A1:R20**. **Zusammengefasst:** Mit diesem Befehl wird der benannte Bereich **z06_a1401111_Bericht** auf die Zellen **A1:R20** des Blatts **z06_a1401111_Bericht** gesetzt. Weitere Infos zu benannten Bereichen in Excel findest du z.B. hier: https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-a1dcf0dd-61fc-4e1e-aa80-c8969888273e

Accepted Answer

Um die Schleife so umzubauen, dass **in "Personen einzelnd drucken"** in den Zellen **C9:C66** nach dem Namen gesucht und mit der Spalte B im "Arbeitsplan" verglichen wird, muss di... [mehr]

Accepted Answer

Um die Schleife so umzubauen, dass **in "Personen einzelnd drucken"** in den Zellen **C9:C66** nach dem Namen gesucht und mit der Spalte B im "Arbeitsplan" verglichen wird, muss die Namensprüfung in eine Schleife über diese Zellen gelegt werden. Für jeden gefundenen Namen wird dann geprüft, ob er in der gefundenen Zeile im "Arbeitsplan" steht. Die Übertragung erfolgt dann in die jeweilige Zeile (also z.B. in Zeile 9, 10, ...). Hier die angepasste Version des relevanten Teils: ```vba Sub übertragallepersonen() 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 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 ' In Arbeitsplan Spalte A suchen (ebenfalls als Zahl) Set rGef = Nothing For Each cell In wsZiel.Columns("A").Cells If IsDate(cell.Value) Then If CLng(cell.Value) = datumToFind Then Set rGef = cell Exit For End If End If If cell.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen Next cell If rGef Is Nothing Then MsgBox "Datum nicht in Arbeitsplan Spalte A gefunden.", vbInformation 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 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 End If End If Next i MsgBox "Datenübertragung abgeschlossen.", vbInformation End Sub ``` **Hinweis:** - Die Übertragung erfolgt für jede Zeile von C9 bis C66, sofern dort ein Name steht und dieser in der gefundenen Zeile im "Arbeitsplan" (Spalte B) steht. - Die Werte werden in die jeweilige Zeile (i) ab Spalte D geschrieben. - Die Meldung am Ende kommt nur einmal, wenn alle Zeilen durchlaufen wurden. Falls du möchtest, dass für jeden gefundenen Namen eine eigene Zeile im "Arbeitsplan" gesucht wird (also nicht nur für das eine Datum), müsste die Logik noch weiter angepasst werden.

Accepted Answer

Das Problem liegt sehr wahrscheinlich an der Art, wie Excel intern mit Datumswerten umgeht. Ein Datum in Excel ist eigentlich eine Zahl (z.B. 45123 für den 01.09.2023), aber die Anzeige kann unte... [mehr]

Accepted Answer

Das Problem liegt sehr wahrscheinlich an der Art, wie Excel intern mit Datumswerten umgeht. Ein Datum in Excel ist eigentlich eine Zahl (z.B. 45123 für den 01.09.2023), aber die Anzeige kann unterschiedlich sein – als Zahl, als Datum, als Text. Wenn du ein Datum per Formel erzeugst (z.B. `=A1` oder `=DATUM(...)`), kann es sein, dass beim Kopieren oder beim Vergleich mit VBA Unterschiede auftreten, insbesondere wenn das eine Feld als Zahl und das andere als Text formatiert ist. **Typische Ursachen und Lösungen:** ### 1. Unterschiedliche Formate (Datum vs. Text) - **Problem:** In `wsQuell.Range("B8")` steht das Datum als Zahl, im Arbeitsplan ist es vielleicht als Text oder per Formel erzeugt. - **Lösung:** Stelle sicher, dass beide Werte als Datum (also als Zahl) vorliegen. Du kannst das in VBA erzwingen: ```vba datumToFind = CLng(wsQuell.Range("B8").Value) ``` und beim Suchen: ```vba Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlValues, LookAt:=xlWhole) ``` ### 2. Zeitanteil im Datum - **Problem:** Ein Datum kann auch eine Uhrzeit enthalten (z.B. 01.09.2023 00:00:00 vs. 01.09.2023 12:00:00). Das sieht gleich aus, ist aber intern unterschiedlich. - **Lösung:** Beim Vergleich nur das Datum nehmen: ```vba datumToFind = Int(wsQuell.Range("B8").Value) ``` und beim Suchen: ```vba Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlValues, LookAt:=xlWhole) ``` ### 3. Formelzellen - **Problem:** In der Zieltabelle steht das Datum als Formel, z.B. `=Tabelle1!A1`. Das ist aber für den Wertvergleich egal, solange der Wert ein Datum ist. - **Lösung:** Prüfe, ob in der Zieltabelle wirklich ein Datum steht (kein Text!). Teste das z.B. mit: ```vba Debug.Print wsZiel.Cells(1, "A").Value, IsDate(wsZiel.Cells(1, "A").Value) ``` ### 4. Find-Methode: LookIn-Parameter - **Problem:** `LookIn:=xlValues` ist meist richtig, aber manchmal hilft auch `xlFormulas`. - **Lösung:** Teste beide Varianten: ```vba Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlValues, LookAt:=xlWhole) If rGef Is Nothing Then Set rGef = wsZiel.Columns("A").Find(What:=datumToFind, LookIn:=xlFormulas, LookAt:=xlWhole) End If ``` --- **Zusammengefasst:** - Stelle sicher, dass du wirklich mit Zahlen (Datumswerten) vergleichst, nicht mit Text. - Nutze `CLng` oder `Int`, um den Zeitanteil zu entfernen. - Probiere ggf. beide `LookIn`-Varianten. - Prüfe mit `IsDate`, ob in beiden Zellen wirklich ein Datum steht. **Beispiel für robusten Vergleich:** ```vba Dim datumToFind As Long datumToFind = CLng(wsQuell.Range("B8").Value) Dim cell As Range For Each cell In wsZiel.Columns("A").Cells If CLng(cell.Value) = datumToFind Then Set rGef = cell Exit For End If Next cell ``` Das ist zwar etwas langsamer als `.Find`, aber sehr robust. --- **Tipp:** Wenn du weiterhin Probleme hast, prüfe die Werte mit `Debug.Print` im Direktfenster, um zu sehen, wie sie intern aussehen. --- **Weitere Infos zu Excel-Datumswerten:** [Microsoft: Arbeiten mit Datumsangaben und Uhrzeiten in Excel](https://support.microsoft.com/de-de/office/arbeiten-mit-datumsangaben-und-uhrzeiten-in-excel-9ffb6c2f-2c42-4b53-9573-2b8b0a77b3c0) --- Falls du einen bestimmten Wert als Beispiel hast, kannst du ihn im Direktfenster (`Debug.Print wsQuell.Range("B8").Value`) ausgeben und vergleichen, wie er in der Zieltabelle aussieht.

Accepted Answer

Um in Excel VBA Drucktitel festzulegen, kannst du den folgenden Code verwenden. Dieser Code setzt die Drucktitel für die Zeilen und Spalten, die auf jeder gedruckten Seite wiederholt werden solle... [mehr]

Accepted Answer

Um in Excel VBA Drucktitel festzulegen, kannst du den folgenden Code verwenden. Dieser Code setzt die Drucktitel für die Zeilen und Spalten, die auf jeder gedruckten Seite wiederholt werden sollen: ```vba Sub DrucktitelFestlegen() With ActiveSheet .PageSetup.PrintTitleRows = "$1:$1" ' Wiederhole die erste Zeile .PageSetup.PrintTitleColumns = "$A:$A" ' Wiederhole die erste Spalte End With End Sub ``` In diesem Beispiel wird die erste Zeile und die erste Spalte auf jeder gedruckten Seite wiederholt. Du kannst die Bereiche anpassen, um andere Zeilen oder Spalten festzulegen. Um den Code auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.