Wie schreibe ich ein Makro, das Zeilen aus verschiedenen Excel-Arbeitsblättern kopiert und in ein anderes Blatt einfügt?

Question

Wie schreibe ich ein Makro, das Zeilen aus verschiedenen Excel-Arbeitsblättern kopiert und in ein anderes Blatt einfügt?

Antwort

Verwandte Fragen

Wie kopiere ich per Makro ein einzelnes Arbeitsblatt in Excel?

Wie kann ich im Excel-Datenschnitt Monate in zwei Spalten nebeneinander statt untereinander anzeigen?

Wie aktiviere ich die durchgestrichene Schriftart in Excel per Shortcut?

Wie kann man in Excel ein Datum in Text umwandeln?

Wie füge ich einen Hyperlink in eine Excel-Tabelle ein?

Warum erkennt meine Excel-VBA-Suche im Arbeitsplan das Datum nicht, obwohl das Datum aus einer anderen Tabelle kopiert und in beiden Tabellen als Datum dargestellt wird? Wie muss die VBA angepasst werden?

Wie importiere ich Datumsfelder aus einer Excel-Tabelle in MS Word?

Formel in Excel-Fußzeile einfügen?

Excel VBA: Grüne markierte Reiter als PDF drucken, jedes Arbeitsblatt auf eine Seite darstellen.

Wie funktioniert der SVERWEIS? Beispiel?

Accepted Answer

Um ein Makro in Excel zu schreiben, das Zeilen aus unterschiedlichen Arbeitsblättern kopiert und in ein anderes Arbeitsblatt einfügt, kannst du den VBA-Editor verwenden. Hier ist ein einfaches Beispiel, wie so ein Makro aussehen könnte: 1. **VBA-Editor öffnen:** Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. **Modul einfügen:** Klicke auf „Einfügen“ > „Modul“, um ein neues Modul zu erstellen. 3. **Code einfügen:** Füge folgenden Beispielcode ein und passe die Blattnamen und Zeilenbereiche an deine Bedürfnisse an: ```vba Sub ZeilenKopieren() Dim ZielBlatt As Worksheet Dim QuellBlatt1 As Worksheet Dim QuellBlatt2 As Worksheet Dim LetzteZielZeile As Long ' Arbeitsblätter zuweisen Set ZielBlatt = ThisWorkbook.Sheets("Zielblatt") Set QuellBlatt1 = ThisWorkbook.Sheets("Blatt1") Set QuellBlatt2 = ThisWorkbook.Sheets("Blatt2") ' Zeile aus Blatt1 kopieren (z.B. Zeile 2) QuellBlatt1.Rows(2).Copy ' Nächste freie Zeile im Zielblatt finden LetzteZielZeile = ZielBlatt.Cells(ZielBlatt.Rows.Count, 1).End(xlUp).Row + 1 ZielBlatt.Rows(LetzteZielZeile).PasteSpecial xlPasteAll ' Zeile aus Blatt2 kopieren (z.B. Zeile 3) QuellBlatt2.Rows(3).Copy LetzteZielZeile = ZielBlatt.Cells(ZielBlatt.Rows.Count, 1).End(xlUp).Row + 1 ZielBlatt.Rows(LetzteZielZeile).PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub ``` **Hinweise:** - Ersetze `"Zielblatt"`, `"Blatt1"` und `"Blatt2"` durch die tatsächlichen Namen deiner Arbeitsblätter. - Passe die Zeilennummern (`Rows(2)`, `Rows(3)`) an die Zeilen an, die du kopieren möchtest. - Das Makro fügt die kopierten Zeilen jeweils unter die letzte gefüllte Zeile im Zielblatt ein. **Makro ausführen:** Schließe den VBA-Editor und führe das Makro über `ALT + F8` aus. **Weitere Informationen zu Excel VBA findest du hier:** [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/overview/excel) Falls du komplexere Anforderungen hast (z.B. mehrere Zeilen, Bedingungen), kann der Code entsprechend erweitert werden.

Accepted Answer

Um in Excel per Makro (VBA) eine Kopie eines einzelnen Arbeitsblatts zu erstellen, kannst du folgenden VBA-Code verwenden: ```vba Sub BlattKopieren() ' Name des zu kopierenden Blatts Dim... [mehr]

Accepted Answer

Um in Excel per Makro (VBA) eine Kopie eines einzelnen Arbeitsblatts zu erstellen, kannst du folgenden VBA-Code verwenden: ```vba Sub BlattKopieren() ' Name des zu kopierenden Blatts Dim BlattName As String BlattName = "Tabelle1" ' Passe den Namen an dein Blatt an ' Arbeitsblatt kopieren ThisWorkbook.Sheets(BlattName).Copy ' Die Kopie wird als neue Arbeitsmappe geöffnet ' Optional: Die neue Arbeitsmappe speichern ' ActiveWorkbook.SaveAs "Pfad\Dateiname.xlsx" End Sub ``` **Erläuterung:** - `ThisWorkbook.Sheets(BlattName).Copy` erstellt eine Kopie des angegebenen Blatts und öffnet diese als neue Arbeitsmappe. - Möchtest du das Blatt in derselben Arbeitsmappe duplizieren, verwende stattdessen: ```vba ThisWorkbook.Sheets(BlattName).Copy After:=ThisWorkbook.Sheets(BlattName) ``` Dadurch wird das Blatt direkt hinter dem Original eingefügt. **Hinweis:** Makros müssen in einer Datei mit Makro-Unterstützung gespeichert werden (z.B. `.xlsm`). Weitere Informationen zu Makros findest du auf der offiziellen Microsoft-Seite: [https://support.microsoft.com/de-de/office/verwenden-von-makros-in-excel-5e855fd2-02d1-45f5-90a3-50e645fe3155](https://support.microsoft.com/de-de/office/verwenden-von-makros-in-excel-5e855fd2-02d1-45f5-90a3-50e645fe3155)

Accepted Answer

Um in Excel einen Datenschnitt (Slicer) für Monate so darzustellen, dass die Monate in zwei Spalten nebeneinander statt alle untereinander angezeigt werden, gehe wie folgt vor: 1. **Datenschnitt... [mehr]

Accepted Answer

Um in Excel einen Datenschnitt (Slicer) für Monate so darzustellen, dass die Monate in zwei Spalten nebeneinander statt alle untereinander angezeigt werden, gehe wie folgt vor: 1. **Datenschnitt auswählen:** Klicke auf den Datenschnitt, den du bereits eingefügt hast (z.B. für das Monatsfeld deiner Pivot-Tabelle). 2. **Spaltenanzahl einstellen:** - Im Menüband erscheint nun oben die Registerkarte **"Datenschnitttools"** bzw. **"Slicer"**. - Klicke dort auf **"Optionen"**. - Im Bereich **"Slicer"** findest du das Feld **"Spalten"**. - Erhöhe die Anzahl der Spalten auf **2** (oder mehr, je nach gewünschter Darstellung). 3. **Anpassen:** - Die Monate werden jetzt automatisch auf die eingestellte Spaltenanzahl verteilt und nebeneinander angezeigt. - Du kannst die Größe des Datenschnitts ggf. noch anpassen, damit alle Monate gut sichtbar sind. **Hinweis:** Diese Funktion steht ab Excel 2013 zur Verfügung. In älteren Versionen gibt es diese Option nicht. Weitere Infos findest du auch auf der offiziellen Microsoft-Seite: [Datenschnittoptionen in Excel](https://support.microsoft.com/de-de/office/verwenden-von-datenschnitten-um-daten-in-einer-pivottabelle-oder-pivotchart-zu-filtern-69cdd64c-3792-4e94-8034-3ea7dca9b872)

Accepted Answer

In Excel kannst du den Shortcut **Strg + 5** verwenden, um den durchgestrichenen Schriftstil (Durchstreichen) für die ausgewählten Zellen zu aktivieren oder zu deaktivieren. So funktionier... [mehr]

Accepted Answer

In Excel kannst du den Shortcut **Strg + 5** verwenden, um den durchgestrichenen Schriftstil (Durchstreichen) für die ausgewählten Zellen zu aktivieren oder zu deaktivieren. So funktioniert es: 1. Zellen markieren, die du durchstreichen möchtest. 2. **Strg** gedrückt halten und dann die **5** auf der normalen Zahlenreihe (nicht auf dem Nummernblock) drücken. Das Durchstreichen wird sofort angewendet oder entfernt.

Accepted Answer

Um in Excel ein Datum in Text umzuwandeln, gibt es verschiedene Möglichkeiten. Die gängigsten Methoden sind: **1. TEXT-Funktion verwenden:** Mit der Funktion `TEXT` kannst du das Datum in... [mehr]

Accepted Answer

Um in Excel ein Datum in Text umzuwandeln, gibt es verschiedene Möglichkeiten. Die gängigsten Methoden sind: **1. TEXT-Funktion verwenden:** Mit der Funktion `TEXT` kannst du das Datum in einen Text mit gewünschtem Format umwandeln. Beispiel: ```excel =TEXT(A1;"TT.MM.JJJJ") ``` Wenn in Zelle A1 das Datum steht, wird daraus z.B. „15.06.2024“. **2. Zellenformat ändern:** Du kannst auch das Zellenformat auf „Text“ umstellen. Allerdings wird dabei ein bereits eingegebenes Datum nicht automatisch umgewandelt, sondern nur neu eingegebene Werte als Text behandelt. **3. Verkettung mit leerem Text:** Eine schnelle Methode ist, das Datum mit einem leeren Text zu verketten: ```excel =A1&"" ``` Dadurch wird das Datum als Text übernommen, allerdings im Standard-Datumsformat von Excel. **Hinweis:** Wenn du ein bestimmtes Textformat möchtest, ist die `TEXT`-Funktion die beste Wahl. Weitere Infos findest du auch bei [Microsoft Support](https://support.microsoft.com/de-de/office/text-funktion-20d5ac4d-7b94-49fd-bb38-93d29371225c).

Accepted Answer

Um einen Hyperlink in eine Excel-Tabelle einzufügen, gehe wie folgt vor: 1. **Zelle auswählen:** Klicke auf die Zelle, in der der Hyperlink erscheinen soll. 2. **Hyperlink einfügen:**... [mehr]

Accepted Answer

Um einen Hyperlink in eine Excel-Tabelle einzufügen, gehe wie folgt vor: 1. **Zelle auswählen:** Klicke auf die Zelle, in der der Hyperlink erscheinen soll. 2. **Hyperlink einfügen:** Drücke **Strg + K** oder klicke im Menü auf **Einfügen** > **Link** (bzw. „Hyperlink“). 3. **Adresse eingeben:** Gib im Feld „Adresse“ die gewünschte URL (z. B. https://www.frage.de) oder den Pfad zu einer Datei ein. 4. **Anzeigename festlegen:** Im Feld „Anzuzeigender Text“ kannst du den Text eingeben, der in der Zelle stehen soll. 5. **Bestätigen:** Klicke auf **OK**. Jetzt ist der Hyperlink in der Zelle aktiv und kann durch Anklicken geöffnet werden.

Accepted Answer

Das Problem liegt meist daran, dass Excel-Datumswerte intern als Zahlen gespeichert werden, aber durch Formeln, Zellformatierungen oder Kopiervorgänge Unterschiede entstehen können. Besonder... [mehr]

Accepted Answer

Das Problem liegt meist daran, dass Excel-Datumswerte intern als Zahlen gespeichert werden, aber durch Formeln, Zellformatierungen oder Kopiervorgänge Unterschiede entstehen können. Besonders, wenn das Datum im „Arbeitsplan“ per Formel erzeugt wird, kann es zu Typ-Unterschieden kommen (z.B. Zahl vs. Text). **Lösung:** Vergleiche die Datumswerte immer als Zahl (Double), nicht als Text. Das erreichst du, indem du `CLng` oder `CDbl` verwendest. Außerdem solltest du beim Suchen (`Find`) explizit nach dem numerischen Wert suchen. Hier die überarbeitete Version deiner Sub, die das Datum als Zahl behandelt: ```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 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 ' Namen vergleichen nameQuell = wsQuell.Range("C8").Value If IsEmpty(nameQuell) Then MsgBox "Name in Personen einzeln drucken!C8 ist leer.", vbExclamation Exit Sub End If If wsZiel.Cells(rGef.Row, "B").Value = nameQuell Then ' Kopiere Werte von Arbeitsplan F bis BA in die Zielspalten ab Spalte D zielStartCol = 4 ' Spalte D For zielCol = 6 To 54 ' F(6) bis BA(54) wsQuell.Cells(9, zielStartCol + (zielCol - 6)).Value = wsZiel.Cells(rGef.Row, zielCol).Value Next zielCol MsgBox "Daten wurden übertragen.", vbInformation Else MsgBox "Kein Namensabgleich gefunden in der gleichen Datum-Zeile.", vbInformation End If End Sub ``` **Wichtige Hinweise:** - Die Datumssuche läuft jetzt über eine Schleife, damit du den Wert als Zahl vergleichen kannst (das ist robuster als `.Find` bei Formeldaten). - Wenn du sehr viele Zeilen hast, kannst du die Schleife anpassen oder optimieren. - Achte darauf, dass die Zellen wirklich als Datum formatiert sind. **Weitere Tipps:** - Wenn du weiterhin `.Find` nutzen willst, dann stelle sicher, dass du mit `CDbl` oder `CLng` suchst und `LookIn:=xlValues` verwendest. - Prüfe, ob in den Zellen wirklich ein Datum steht (ggf. mit `IsDate`). **Mehr zu Datumswerten in Excel:** [Microsoft: Arbeiten mit Datumsangaben in VBA](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/date-data-type) Falls du noch weitere Probleme mit Datumsformaten hast, kann es helfen, die Zellen explizit als Datum zu formatieren.

Accepted Answer

Um Datumsfelder aus einer Excel-Tabelle in ein Word-Dokument einzufügen, kannst du die folgenden Schritte befolgen: 1. **Excel-Daten vorbereiten**: Stelle sicher, dass die Datumswerte in deiner... [mehr]

Accepted Answer

Um Datumsfelder aus einer Excel-Tabelle in ein Word-Dokument einzufügen, kannst du die folgenden Schritte befolgen: 1. **Excel-Daten vorbereiten**: Stelle sicher, dass die Datumswerte in deiner Excel-Tabelle korrekt formatiert sind. Sie sollten als Datum und nicht als Text gespeichert sein. 2. **Daten kopieren**: Markiere die Zellen in Excel, die die Datumswerte enthalten, und kopiere sie (Strg + C). 3. **Word-Dokument öffnen**: Öffne das Word-Dokument, in das du die Datumsfelder einfügen möchtest. 4. **Daten einfügen**: Gehe zu der Stelle im Dokument, an der du die Daten einfügen möchtest, und füge sie ein (Strg + V). 5. **Verknüpfung einfügen (optional)**: Wenn du möchtest, dass die Daten in Word automatisch aktualisiert werden, wenn sich die Excel-Datei ändert, kannst du die Daten als verknüpfte Tabelle einfügen. Dazu wählst du in Word „Einfügen“ > „Inhalte einfügen“ > „Verknüpfung einfügen“ und wählst das Excel-Dokument aus. 6. **Felder aktualisieren**: Wenn du die Datumswerte in Word aktualisieren möchtest, kannst du die Felder aktualisieren, indem du die gesamte Tabelle markierst und F9 drückst. Diese Schritte sollten dir helfen, Datumsfelder aus einer Excel-Tabelle in ein Word-Dokument zu integrieren.

Accepted Answer

Um eine Formel in die Fußzeile eines Excel-Dokuments einzufügen, kannst du die folgenden Schritte befolgen: 1. **Öffne dein Excel-Dokument.** 2. **Gehe zum Reiter "Einfügen&... [mehr]

Accepted Answer

Um eine Formel in die Fußzeile eines Excel-Dokuments einzufügen, kannst du die folgenden Schritte befolgen: 1. **Öffne dein Excel-Dokument.** 2. **Gehe zum Reiter "Einfügen".** 3. **Klicke auf "Kopf- und Fußzeile".** Dadurch wird der Seitenlayout-Modus aktiviert. 4. **Wähle die Fußzeile aus, in die du die Formel einfügen möchtest.** Du kannst auf die Fußzeile klicken, um sie zu bearbeiten. 5. **Verwende die verfügbaren Optionen im Menü "Kopf- und Fußzeilentools".** Hier kannst du vordefinierte Elemente wie das Datum, die Seitenzahl oder den Dateinamen einfügen. 6. **Für benutzerdefinierte Formeln:** Excel unterstützt keine direkten Formeln in der Fußzeile. Du kannst jedoch die gewünschten Werte in die Zellen einfügen und dann die Fußzeile so gestalten, dass sie diese Werte anzeigt (z.B. durch Verlinken oder manuelles Eingeben). Beachte, dass die Fußzeile in Excel nicht die gleiche Funktionalität wie Zellen hat, daher sind komplexe Formeln nicht möglich.

Accepted Answer

Um in Excel VBA alle Arbeitsblätter, die grün markiert sind, in eine PDF-Datei zu drucken und jedes Arbeitsblatt auf eine Seite darzustellen, kannst du den folgenden VBA-Code verwenden: ```... [mehr]

Accepted Answer

Um in Excel VBA alle Arbeitsblätter, die grün markiert sind, in eine PDF-Datei zu drucken und jedes Arbeitsblatt auf eine Seite darzustellen, kannst du den folgenden VBA-Code verwenden: ```vba Sub ExportGreenSheetsToPDF() Dim ws As Worksheet Dim pdfPath As String Dim pdfFileName As String Dim greenSheets As Collection Set greenSheets = New Collection ' Pfad und Dateiname für die PDF-Datei festlegen pdfPath = ThisWorkbook.Path & "\" pdfFileName = "Grüne_Arbeitsblätter.pdf" ' Durchlaufe alle Arbeitsblätter und füge die grünen hinzu For Each ws In ThisWorkbook.Worksheets If ws.Tab.Color = RGB(0, 255, 0) Then ' Überprüfen, ob die Registerkarte grün ist greenSheets.Add ws End If Next ws ' Wenn keine grünen Arbeitsblätter gefunden wurden If greenSheets.Count = 0 Then MsgBox "Es wurden keine grünen Arbeitsblätter gefunden.", vbExclamation Exit Sub End If ' Arbeitsblätter in eine PDF-Datei exportieren Dim sheetArray() As String ReDim sheetArray(1 To greenSheets.Count) Dim i As Integer For i = 1 To greenSheets.Count sheetArray(i) = greenSheets(i).Name greenSheets(i).PageSetup.FitToPagesWide = 1 greenSheets(i).PageSetup.FitToPagesTall = 1 Next i ' PDF exportieren ThisWorkbook.Sheets(sheetArray).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath & pdfFileName, Quality:=xlQualityStandard MsgBox "Die grünen Arbeitsblätter wurden erfolgreich als PDF gespeichert.", vbInformation End Sub ``` ### Erklärung des Codes: 1. **Sammlung der grünen Arbeitsblätter**: Der Code durchläuft alle Arbeitsblätter und fügt die hinzu, deren Registerkarte grün ist. 2. **PDF-Pfad und -Dateiname**: Der Pfad und der Name der PDF-Datei werden festgelegt. 3. **Seitenanpassung**: Jedes Arbeitsblatt wird so eingestellt, dass es auf eine Seite passt. 4. **Export**: Die ausgewählten Arbeitsblätter werden als PDF exportiert. Um den Code auszuführen, öffne den VBA-Editor in Excel (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.

Accepted Answer

Der SVERWE (senkrechter Ver) eine Funktion in Microsoft, die verwendet wird um Daten aus einer zu suchen und abzur. Hier ist eines Beispiel, um zeigen, wie derVERWEIS funktioniertAngenommen, du die fo... [mehr]

Accepted Answer

Der SVERWE (senkrechter Ver) eine Funktion in Microsoft, die verwendet wird um Daten aus einer zu suchen und abzur. Hier ist eines Beispiel, um zeigen, wie derVERWEIS funktioniertAngenommen, du die folgende Tabelle: A | B | |---------|| | Artikel | | | 100 | 1000 € | 1002 15,00 | | 100 | 2000 € | 1004 25,00 € | Du möchtest den für den Artikel mit Nummer 1003finden. Dazu kannst den SVERWEIS. Die Syntax für SVERWEIS: ``` =SWEIS(Suchriterium; Matrix;altenindex; [ich_Verweis]) ` In diesem Beispiel- **Suchkium** ist die Artikelnummer, die du such (z.B. 1003). - **Matrix** ist der der Tabelle, in dem gesucht wird (z.B. A2:B5- **Spaltenindex** ist die Spaltennummer in der Matrix, der der Wert zurückgegeben werden soll (z.B. 2 für Preisspalte). - **Bereich_Verweis** ist ein optional Argument, das angibt, ob eine genaue Übereinstimmung (ALSCH) oder eine ungefähre Übereinstimmung (WAHR gesucht wird. In diesem Fall verwenden wir FALSCH für eine genaue Üinstimmung. Die Formel lautet also: ``` =SVERWEIS1003; A2:B5; 2; FALSCH) ` Diese Formel sucht nach der Artikelnummer 1003 in der erstenalte des Bereichs A2:B5 und gibt den entsprechenden Wert aus der Spalte zurück, was in diesem Fall 20,00 € ist.