Vergleiche Begriffe in Spalte B zweier Tabellen und füge fehlende in die zweite Tabelle ein.

Um in Visual Basic for Applications (VBA) alle Begriffe der Spalte B zweier Tabellen zu vergleichen und fehlende Begriffe in die zweite Tabelle einzufügen, kannst du den folgenden Code verwenden. Dieser Code geht davon aus, dass die erste Tabelle in einem Arbeitsblatt namens "Tabelle1" und die zweite Tabelle in "Tabelle2" gespeichert ist. ```vba Sub VergleicheUndFuegeHinzu() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lastRow1 As Long Dim lastRow2 As Long Dim i As Long Dim j As Long Dim found As Boolean Set ws1 = ThisWorkbook.Sheets("Tabelle1") Set ws2 = ThisWorkbook.Sheets("Tabelle2") lastRow1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row lastRow2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row For i = 1 To lastRow1 found = False For j = 1 To lastRow2 If ws1.Cells(i, 2).Value = ws2.Cells(j, 2).Value Then found = True Exit For End If Next j If Not found Then lastRow2 = lastRow2 + 1 ws2.Cells(lastRow2, 2).Value = ws1.Cells(i, 2).Value End If Next i End Sub ``` ### Erklärung des Codes: 1. **Deklaration der Variablen**: Es werden Variablen für die Arbeitsblätter, die letzten Zeilen der Tabellen und Schleifenindizes deklariert. 2. **Setzen der Arbeitsblätter**: Die Arbeitsblätter werden den Variablen `ws1` und `ws2` zugewiesen. 3. **Bestimmen der letzten Zeilen**: Die letzte Zeile in Spalte B jeder Tabelle wird ermittelt. 4. **Vergleich der Begriffe**: Eine Schleife durchläuft die Begriffe in der ersten Tabelle und vergleicht sie mit den Begriffen in der zweiten Tabelle. 5. **Hinzufügen fehlender Begriffe**: Wenn ein Begriff aus der ersten Tabelle nicht in der zweiten Tabelle gefunden wird, wird er in die nächste freie Zeile der zweiten Tabelle eingefügt. Dieser Code kann in das VBA-Editor-Fenster eingefügt und ausgeführt werden, um die gewünschten Vergleiche und Einfügungen vorzunehmen.