Office: Wert aus Tabelle 2 in Tabelle 1 suchen und kopieren

kolrabina · 21. Juni 2014

Hi Zusammen,

ich habe folgende Frage!

In Tabelle 2 habe ich in der Spalte A2:A20 Werte eingetragen.
Diese Werte gibt es auch irgendwo in Tabelle1 Spalte A1:A1000

Ich brauche nun ein Makro, welches ALLE Wörter, die in Tabelle2 Spalte A eingetragen sind, in der Tabelle 1 Spalte A sucht und dann die komplette Zeile in Tabelle 3 Spalte A2 kopiert.

Ich hoffe ihr versteht wie ich es meine. Habt ihr eine Idee?

Viele Grüße

:)

aloys78 · 23. Juni 2014

Hallo,

anbei ein Code-Vorschlag:
- Makro im VBA-Projekt unter Tabelle2 ablegen
- Commandbutton1 in Tabelle2 installieren

Gruß
Aloys

Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim ws1 As Worksheet 'Tabelle1
Dim ws2 As Worksheet 'Tabelle2
Dim ws3 As Worksheet 'Tabelle3
Dim r2 As Long 'Zeilen# Tabelle2
Dim r1 As Long 'Zeilen# Tabelle1
Dim z As Long 'Zeilen# Ziel-Tabelle Tabelle3
Dim c As Range 'Ergebnis Find
Dim firstAddress As String 'Sichern Adresse bei Find
Dim LoL As Long 'Spalten# letzte Eintragung der Zeile in ws1

'Initialisierung
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
Set ws3 = Worksheets("Tabelle3")
z = 1 'Startzeile Ziel-Tabelle -1

'Abarbeiten Suchbegriffe in Sp A
For r2 = 2 To ws2.Cells(Rows.Count, "A").End(xlUp).Row
With ws1.Range("A1:A1000")
Set c = .Find(Range("A" & r2), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
With ws1
z = z + 1
LoL = .Cells(z, Columns.Count).End(xlToLeft).Column
.Range(.Cells(c.Row, 1), .Cells(c.Row, LoL)).Copy _
ws3.Range(ws3.Cells(z, 1), ws3.Cells(z, LoL))
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
Next r2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kolrabina · 23. Juni 2014

hi WOW Super für die schnelle ANtwort, werde es gleich heute Abend nach Feierabend testen und mich sofort melden.

Danke vielmals

kolrabina · 24. Juni 2014

PERFEKT - 1A, genau so brauchte ich das.

Vielen vielen Dank

Hast mir echt sehr weitergeholfen.
Dankeschön

Office: Wert aus Tabelle 2 in Tabelle 1 suchen und kopieren

Wert aus Tabelle 2 in Tabelle 1 suchen und kopieren

Wert aus Tabelle 2 in Tabelle 1 suchen und kopieren

Wert aus Tabelle 2 in Tabelle 1 suchen und kopieren

Wert aus Tabelle 2 in Tabelle 1 suchen und kopieren - Similar Threads - Wert Tabelle Tabelle

Negative Datenbalken - bedingte Formatierung

Werte aus einer Tabelle suchen, zusammenzählen und wiedergeben

Auslesen eines Wertes aus verschiedenen Tabelle

Werte auswählen wenn Tabelle mit teilergebnis

Werte in 2 Tabellen vergleichen und Zählen wenn Suchbegriff zutrifft

Formatierte Tabelle: Formel mit Wert überschreiben

Text auflisten wenn Wert in gleicher Spalte enthält X