Problem Abgleich von zwei Tabellen,

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nabend Bernd,
schau mal ob der Code hier macht was du willst. Ist quasi nur eine Schleife, die jeden Begriff in Tabelle2 per SVERWEIS in der gesamten Tabelle1 sucht und ggf. das gefundene Ergebnis in Spalte B der Tabelle2 schreibt. Der "Bereich_Verweis" ist auf True gesetzt, d.h. es werden auch Teilübereinstimmungen gefunden. Wenn deine eine Spalte in einer der Tabellen nicht A sein sollte und/oder das Ergebnis nicht in B geschrieben werden soll, müsstest du den Code entsprechend anpassen. Das gilt auch für den Fall, dass deine Daten nicht in Zeile 1 beginnen.

Option Explicit
Sub Zellen_durchsuchen()
Dim AnzTab1, AnzTab2, i As Single
'Weist den beiden Variablen jeweils das Ende der jeweiligen Tabelle zu_
' (wenn Tabelle1 bis A250 gefüllt ist, dann ist AnzTab1 = 250)
AnzTab1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
AnzTab2 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row
'Geht Tabelle2 Schritt für Schritt nach unten durch, sucht jeden Begriff _
' jeweils in der gesamten Tabelle1 und schreibt das Ergebnis in Spalte B der Tabelle2
For i = 1 To AnzTab2
Range("B" & i).Value = WorksheetFunction.VLookup(Worksheets(2).Range("A" & i), Worksheets(1). _
Range("A1:A" & AnzTab1), 1, True)
Next i
End Sub

Viele Grüße

Option Explicit Sub Zellen_durchsuchen() Dim AnzTab1, AnzTab2, i As Single 'Weist den beiden Variablen jeweils das Ende der jeweiligen Tabelle zu_ ' (wenn Tabelle1 bis A250 gefüllt ist, dann ist AnzTab1 = 250) AnzTab1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row AnzTab2 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row 'Geht Tabelle2 Schritt für Schritt nach unten durch, sucht jeden Begriff _ ' jeweils in der gesamten Tabelle1 und schreibt das Ergebnis in Spalte B der Tabelle2 For i = 1 To AnzTab2 Range("B" & i).Value = WorksheetFunction.VLookup(Worksheets(2).Range("A" & i), Worksheets(1). _ Range("A1:A" & AnzTab1), 1, True) Next i End Sub

Nabend Bernd,
die Anwendung ist einfach: wenn du Excel geöffnet hast drückst du Alt+F11. Es öffnet sich das Visual Basic Fenster. Dort klickst du auf Einfügen - Modul und fügst den Code in das weiße Fenster ein.
Jetzt hast du zwei Möglichkeiten das Makro auszuführen: wenn du es nur einmal brauchst kannst du einfach in Excel auf Ansicht - Makro - Makros anzeigen klicken. Sofern du keine anderen hast, wird dort dann nur dieses Makro angezeigt. Einfach raufklicken und "Ausführen".
Wenn du es öfters brauchst empfiehlt sich ein Button. Dazu auf Entwicklertools klicken (wenn der Reiter bei dir nicht angezeigt ist unter Datei - Optionen - Menüband anpassen zum Menü hinzufügen), dann Einfügen und einen Button (egal ob normal oder ActiveX). Dem kannst du nun das Makro zuweisen. Das geht per Rechtsklick, dann entweder auf "Makro zuweisen" oder "Code anzeigen". Bei Code anzeigen kommst du wieder in den VBA-Editor. Da müsste dann stehen "CommandButton1_Click". Schreib einfach vor "End Sub" "Zellen_durchsuchen" - ohne Anführungszeichen. Dann reicht ein Klick auf den Button um den Code auszuführen.
Wenn du den Button nicht mit rechts anklicken kannst, wähle unter Entwicklertools den Entwurfsmodus aus.
Viele Grüße

Beliebteste Forumthreads (12 Monate)

Problem Abgleich von zwei Tabellen,

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem Abgleich von zwei Tabellen,

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread