Wie lade ich mit VBA Informationen aus zwei Spalten in ein Listenfeld mit 'AddItem' in Excel?

Question

Wie lade ich mit VBA Informationen aus zwei Spalten in ein Listenfeld mit 'AddItem' in Excel?

Antwort

Verwandte Fragen

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?

Wie lege ich Drucktitel in Excel VBA fest?

Excel-Blätter in einer großen Tabelle zusammenführen mit VBA

Excel-Blatt in VBA nach Inhalt in Zeile 4 aufteilen und alle Zeilen in neues Blatt einfügen.

Excel-Blatt in VBA nach Inhalt in Zeile 4 aufteilen und Spalten in neues Blatt einfügen.

Excel VBA Code zum Kopieren von B17 bis B46 einer anderen Datei nach K19 bis BH9 der aktiven Datei.

Wie formuliere ich in Excel eine Formel, um nur Werte zwischen zwei Datumswerten auszuwerten?

Warum zählt die Formel =SUMME(WENN(HÄUFIGKEIT(WENN(S3:S362<>"";VERGLEICH(S3:S362;S3:S362;0));ZEILE(S3:S362)-MIN(ZEILE(S3:S362))+1)>0;1)) falsch?

Warum ergeben identische Formeln in zwei Excel-Spalten unterschiedliche Werte?

Wie kann ich per Makro in Excel die Werte aus K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle übertragen?

Accepted Answer

Um in Excel mit VBA Informationen aus zwei Spalten in ein Listenfeld zu laden, kannst du die Methode `AddItem` verwenden. Hier ist ein einfaches Beispiel, wie du dies umsetzen kannst: 1. Öffne den VBA-Editor (Alt + F11). 2. Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul). 3. Kopiere und füge den folgenden Code in das Modul ein: ```vba Sub LadeInListenfeld() Dim ws As Worksheet Dim i As Integer Dim listenfeld As MSForms.ListBox ' Setze das Arbeitsblatt Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Namen entsprechend ' Setze das Listenfeld (z.B. auf einem UserForm) Set listenfeld = UserForm1.ListBox1 ' Ändere den Namen entsprechend ' Lösche vorherige Einträge im Listenfeld listenfeld.Clear ' Durchlaufe die Zeilen in den Spalten A und B For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' Füge die Werte aus Spalte A und B hinzu listenfeld.AddItem ws.Cells(i, 1).Value & " - " & ws.Cells(i, 2).Value Next i End Sub ``` 4. Stelle sicher, dass du ein UserForm mit einem Listenfeld (ListBox) hast, das den Namen `ListBox1` trägt. 5. Ändere den Namen des Arbeitsblatts und des Listenfelds im Code entsprechend deiner Datei. Wenn du das Makro ausführst, werden die Werte aus den Spalten A und B in das Listenfeld geladen, wobei die Werte durch ein Trennzeichen (in diesem Fall " - ") verbunden werden.

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

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.

Accepted Answer

Um fünf Excel-Blätter in einer großen Tabelle zusammenzuführen, kannst du ein VBA-Makro verwenden. Hier ist ein einfaches Beispiel, wie du das machen kannst: 1. Öffne Excel... [mehr]

Accepted Answer

Um fünf Excel-Blätter in einer großen Tabelle zusammenzuführen, kannst du ein VBA-Makro verwenden. Hier ist ein einfaches Beispiel, wie du das machen kannst: 1. Öffne Excel und drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Klicke auf `Einfügen` und wähle `Modul`, um ein neues Modul zu erstellen. 3. Kopiere und füge den folgenden Code in das Modul ein: ```vba Sub Zusammenfuehren() Dim ws As Worksheet Dim wsZiel As Worksheet Dim letzteZeile As Long Dim zielZeile As Long ' Neues Arbeitsblatt für die Zusammenführung erstellen Set wsZiel = ThisWorkbook.Worksheets.Add wsZiel.Name = "Zusammengeführt" ' Zielzeile initialisieren zielZeile = 1 ' Durch alle Arbeitsblätter iterieren For Each ws In ThisWorkbook.Worksheets If ws.Name <> wsZiel.Name Then letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ws.Range("A1:A" & letzteZeile).EntireRow.Copy wsZiel.Cells(zielZeile, 1) zielZeile = zielZeile + letzteZeile End If Next ws MsgBox "Zusammenführung abgeschlossen!" End Sub ``` 4. Schließe den VBA-Editor und gehe zurück zu Excel. 5. Drücke `ALT + F8`, wähle `Zusammenfuehren` aus der Liste und klicke auf `Ausführen`. Dieser Code erstellt ein neues Arbeitsblatt namens "Zusammengeführt" und kopiert die Daten aus allen anderen Blättern in dieses Blatt. Achte darauf, dass die Daten in den Blättern in der ersten Spalte beginnen. Du kannst den Code anpassen, um spezifische Bereiche oder Spalten zu kopieren, falls nötig.

Accepted Answer

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen und alle Zeilen in ein neues Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code erstellt ein neues Blatt un... [mehr]

Accepted Answer

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen und alle Zeilen in ein neues Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code erstellt ein neues Blatt und kopiert die Zeilen basierend auf den Werten in Zeile 4. ```vba Sub SplitByRowContent() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim lastRow As Long Dim lastCol As Long Dim i As Long Dim cellValue As String Dim targetRow As Long ' Set the source worksheet Set wsSource = ThisWorkbook.Sheets("Sheet1") ' Ändere "Sheet1" in den Namen deines Quellblatts lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row lastCol = wsSource.Cells(4, wsSource.Columns.Count).End(xlToLeft).Column ' Erstelle ein neues Blatt Set wsTarget = ThisWorkbook.Sheets.Add wsTarget.Name = "SplitData" ' Name des neuen Blatts ' Durchlaufe die Spalten in Zeile 4 For i = 1 To lastCol cellValue = wsSource.Cells(4, i).Value targetRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row + 1 ' Kopiere die gesamte Spalte, wenn der Wert in Zeile 4 nicht leer ist If cellValue <> "" Then wsSource.Range(wsSource.Cells(1, i), wsSource.Cells(lastRow, i)).Copy wsTarget.Cells(targetRow, 1).PasteSpecial Paste:=xlPasteAll Application.CutCopyMode = False End If Next i MsgBox "Daten wurden erfolgreich aufgeteilt!" End Sub ``` Dieser Code führt die folgenden Schritte aus: 1. Er definiert das Quellblatt und ermittelt die letzte Zeile und Spalte. 2. Er erstellt ein neues Blatt für die aufgeteilten Daten. 3. Er durchläuft die Spalten in Zeile 4 und kopiert die Daten in das neue Blatt, wenn der Wert in Zeile 4 nicht leer ist. 4. Am Ende wird eine Meldung angezeigt, dass die Daten erfolgreich aufgeteilt wurden. Stelle sicher, dass du den Namen des Quellblatts im Code anpasst, bevor du das Makro ausführst.

Accepted Answer

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen und alle Spalten in ein neues Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass die D... [mehr]

Accepted Answer

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen und alle Spalten in ein neues Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass die Daten im aktiven Arbeitsblatt stehen und die neuen Blätter nach den Werten in Zeile 4 benannt werden. ```vba Sub SplitSheetByRow4() Dim ws As Worksheet Dim newWs As Worksheet Dim lastCol As Long Dim i As Long Dim header As String ' Aktives Arbeitsblatt setzen Set ws = ActiveSheet ' Letzte Spalte in Zeile 4 finden lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column ' Schleife durch alle Spalten in Zeile 4 For i = 1 To lastCol header = ws.Cells(4, i).Value ' Neues Arbeitsblatt erstellen Set newWs = ThisWorkbook.Worksheets.Add newWs.Name = header ' Kopiere die gesamte Spalte in das neue Blatt ws.Columns(i).Copy Destination:=newWs.Columns(1) Next i ' Optional: Ursprüngliches Blatt wieder aktivieren ws.Activate End Sub ``` Dieser Code erstellt für jede Spalte in Zeile 4 ein neues Arbeitsblatt und kopiert die gesamte Spalte in das neue Blatt. Achte darauf, dass die Namen der neuen Blätter gültig sind und keine Duplikate entstehen.

Accepted Answer

Um die Zellen B17 bis B46 aus einer anderen Excel-Datei in die Zellen K19 bis BH9 der aktiven Excel-Datei zu kopieren, kannst du den folgenden VBA-Code verwenden: ```vba Sub CopyCells() Dim sourc... [mehr]

Accepted Answer

Um die Zellen B17 bis B46 aus einer anderen Excel-Datei in die Zellen K19 bis BH9 der aktiven Excel-Datei zu kopieren, kannst du den folgenden VBA-Code verwenden: ```vba Sub CopyCells() Dim sourceWorkbook As Workbook Dim sourceRange As Range Dim targetRange As Range Dim targetWorkbook As Workbook ' Pfad zur Quellarbeitsmappe anpassen Set sourceWorkbook = Workbooks.Open("C:\Pfad\zur\deiner\Datei.xlsx") Set sourceRange = sourceWorkbook.Sheets(1).Range("B17:B46") ' Anpassen, falls ein anderer Sheet verwendet wird Set targetWorkbook = ThisWorkbook Set targetRange = targetWorkbook.Sheets(1).Range("K19") ' Anpassen, falls ein anderer Sheet verwendet wird ' Zellen kopieren sourceRange.Copy targetRange.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True ' Quellarbeitsmappe schließen sourceWorkbook.Close SaveChanges:=False End Sub ``` Stelle sicher, dass du den Pfad zur Quellarbeitsmappe anpasst und die entsprechenden Blattnamen verwendest, falls nötig. Dieser Code öffnet die Quellarbeitsmappe, kopiert die Daten und fügt sie in die aktive Arbeitsmappe ein.

Accepted Answer

Um in Excel nur Werte zwischen zwei Datumswerten zu berücksichtigen, kannst du die Funktion `WENN` (bzw. `IF` im Englischen) in Kombination mit logischen Operatoren verwenden. Häufig wird au... [mehr]

Accepted Answer

Um in Excel nur Werte zwischen zwei Datumswerten zu berücksichtigen, kannst du die Funktion `WENN` (bzw. `IF` im Englischen) in Kombination mit logischen Operatoren verwenden. Häufig wird auch `SUMMEWENN` oder `ZÄHLENWENN` bzw. deren Versionen mit mehreren Bedingungen (`SUMMEWENNS`, `ZÄHLENWENNS`) genutzt. **Beispiel:** Angenommen, in Spalte A stehen die Datumswerte und in Spalte B die zugehörigen Zahlen. Du möchtest die Werte aus Spalte B nur dann berücksichtigen, wenn das Datum in Spalte A zwischen dem 01.01.2024 und dem 31.01.2024 liegt. **Formel für eine einzelne Bedingung (z.B. in C2):** ```excel =WENN(UND(A2>=DATUM(2024;1;1);A2<=DATUM(2024;1;31));B2;"") ``` Diese Formel gibt den Wert aus B2 nur dann zurück, wenn das Datum in A2 im Januar 2024 liegt. **Formel für die Summe aller Werte zwischen zwei Datumswerten:** ```excel =SUMMEWENNS(B:B;A:A;">=01.01.2024";A:A;"<=31.01.2024") ``` Hier werden alle Werte aus Spalte B summiert, deren Datum in Spalte A zwischen dem 01.01.2024 und dem 31.01.2024 liegt. **Hinweis:** Statt fest eingetragener Datumswerte kannst du auch Zellen mit Datumsangaben verwenden, z.B.: ```excel =SUMMEWENNS(B:B;A:A;">="&D1;A:A;"<="&E1) ``` wobei in D1 das Startdatum und in E1 das Enddatum steht. **Weitere Infos zu den Funktionen:** - [SUMMEWENNS (Microsoft)](https://support.microsoft.com/de-de/office/summewenns-funktion-c9e748f5-7ea7-455d-9406-611cebce642b) - [WENN-Funktion (Microsoft)](https://support.microsoft.com/de-de/office/wenn-funktion-5fd2b9dc-14a0-4ee8-944b-2f7b2b8a8b3e) So kannst du Bedingungen für Datumsbereiche in Excel-Formeln umsetzen.

Accepted Answer

Die Formel ``` =SUMME(WENN(HÄUFIGKEIT(WENN(S3:S362<>"";VERGLEICH(S3:S362;S3:S362;0));ZEILE(S3:S362)-MIN(ZEILE(S3:S362))+1)>0;1)) ``` ist eine Matrixformel, die die **Anzahl d... [mehr]

Accepted Answer

Die Formel ``` =SUMME(WENN(HÄUFIGKEIT(WENN(S3:S362<>"";VERGLEICH(S3:S362;S3:S362;0));ZEILE(S3:S362)-MIN(ZEILE(S3:S362))+1)>0;1)) ``` ist eine Matrixformel, die die **Anzahl der eindeutigen, nicht-leeren Werte** im Bereich S3:S362 zählen soll. Sie funktioniert grundsätzlich, aber es gibt einige typische Fehlerquellen: **1. Matrixformel:** In älteren Excel-Versionen (vor Office 365/Excel 2019) muss diese Formel als Matrixformel eingegeben werden: **STRG+SHIFT+ENTER** statt nur ENTER. **2. Leere Zellen:** Die Formel berücksichtigt leere Zellen korrekt durch `S3:S362<>""`. **3. Fehlerhafte Werte:** Wenn in S3:S362 Fehlerwerte (z.B. #NV, #WERT!) stehen, kann die Formel fehlschlagen. **4. Bereichsgröße:** Stelle sicher, dass der Bereich S3:S362 korrekt ist und keine Überschneidungen oder unerwünschte Werte enthält. **5. Excel-Version:** In neueren Excel-Versionen gibt es einfachere Alternativen, z.B. mit `=UNIQUE()` und `=ANZAHLUNIQUE()`. --- **Typische Fehlerursachen:** - **Nicht als Matrixformel eingegeben:** Dann liefert sie nur das Ergebnis der ersten Zelle. - **Fehlerhafte Werte im Bereich:** Prüfe, ob in S3:S362 Fehlerwerte stehen. - **Falsche Bereichsbezüge:** Prüfe, ob S3:S362 wirklich der gewünschte Bereich ist. --- **Alternative (einfacher, ab Excel 365/2019):** ``` =ANZAHLUNIQUE(FILTER(S3:S362;S3:S362<>"")) ``` Diese Formel zählt die eindeutigen, nicht-leeren Werte im Bereich S3:S362. --- **Fazit:** Die Formel zählt korrekt, **wenn** sie als Matrixformel eingegeben wird und keine Fehlerwerte im Bereich stehen. Prüfe diese Punkte, um den Fehler zu finden.

Accepted Answer

Deine Formel zählt die eindeutigen Werte in einem Bereich (hier: S3:S364). Wenn Excel in zwei Spalten unterschiedlich rechnet, kann das verschiedene Ursachen haben. Häufige Gründe sind:... [mehr]

Accepted Answer

Deine Formel zählt die eindeutigen Werte in einem Bereich (hier: S3:S364). Wenn Excel in zwei Spalten unterschiedlich rechnet, kann das verschiedene Ursachen haben. Häufige Gründe sind: 1. **Unterschiedliche Datenformate:** In einer Spalte könnten z.B. Zahlen als Text formatiert sein, in der anderen als Zahl. Das beeinflusst die Funktion `VERGLEICH` und damit das Ergebnis. 2. **Versteckte Leerzeichen oder unsichtbare Zeichen:** Werte, die gleich aussehen, können sich durch Leerzeichen oder andere Zeichen unterscheiden. 3. **Leere Zellen:** Die Formel schließt leere Zellen mit `S3:S364<>""` aus, aber manchmal sind Zellen scheinbar leer, enthalten aber z.B. ein Leerzeichen. 4. **Unterschiedliche Bereiche:** Prüfe, ob du wirklich exakt denselben Bereich in beiden Spalten verwendest. **Tipp zur Fehlersuche:** - Markiere die Bereiche und prüfe in der Statusleiste, ob die Anzahl der Zellen übereinstimmt. - Nutze die Funktion `=ISTZAHL(S3)` oder `=ISTTEXT(S3)` in einer Hilfsspalte, um das Format zu prüfen. - Mit `=LÄNGE(S3)` kannst du sehen, ob unsichtbare Zeichen vorhanden sind. **Alternative Formel für eindeutige Werte (ab Excel 365/2019):** Mit der Funktion `=UNIQUE(S3:S364)` kannst du die eindeutigen Werte direkt anzeigen lassen und mit `=ANZAHL2(UNIQUE(S3:S364))` zählen. **Fazit:** Unterschiedliche Ergebnisse entstehen meist durch unterschiedliche Datenformate oder unsichtbare Zeichen. Prüfe die Daten in beiden Spalten sorgfältig auf diese Punkte. Weitere Infos zu Excel-Funktionen findest du auf der offiziellen Microsoft-Seite: [https://support.microsoft.com/de-de/excel](https://support.microsoft.com/de-de/excel)

Accepted Answer

Um Werte aus den Zellen K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle (auch als "Excel-Tabelle" oder "ListObject" bezeichnet) zu übertragen, kannst du folgenden... [mehr]

Accepted Answer

Um Werte aus den Zellen K2, L5 und M5 als neuen Eintrag in eine intelligente Tabelle (auch als "Excel-Tabelle" oder "ListObject" bezeichnet) zu übertragen, kannst du folgenden VBA-Code verwenden. Er fügt eine neue Zeile am Ende der Tabelle hinzu und trägt die Werte dort ein. Angenommen, deine Tabelle heißt **"Tabelle1"** (den Tabellennamen findest du unter "Tabellentools" → "Tabellendesign" → "Tabellenname"). Passe den Namen ggf. an. ```vba Sub WerteInTabelleEinfuegen() Dim ws As Worksheet Dim tbl As ListObject Dim neueZeile As ListRow Set ws = ThisWorkbook.Sheets("Tabelle1") ' Blattname ggf. anpassen Set tbl = ws.ListObjects("Tabelle1") ' Tabellenname ggf. anpassen Set neueZeile = tbl.ListRows.Add ' Werte in die erste, zweite und dritte Spalte der Tabelle eintragen neueZeile.Range(1, 1).Value = ws.Range("K2").Value neueZeile.Range(1, 2).Value = ws.Range("L5").Value neueZeile.Range(1, 3).Value = ws.Range("M5").Value End Sub ``` **Hinweise:** - Ersetze `"Tabelle1"` durch den tatsächlichen Namen deiner Tabelle. - Die Werte werden in die ersten drei Spalten der Tabelle geschrieben. Falls deine Tabelle anders aufgebaut ist, passe die Indizes `(1, 1)`, `(1, 2)`, `(1, 3)` entsprechend an. - Das Makro kannst du im VBA-Editor (Alt+F11) in ein Modul einfügen. Weitere Infos zu intelligenten Tabellen findest du bei [Microsoft](https://support.microsoft.com/de-de/office/verwenden-von-excel-tabellen-zur-verwalten-von-daten-7ab0bb7d-3a9e-4b56-a3c9-6c94334e492c).