Office: Vergleich und Wert aus Zeile in Andere kopieren

Madmaxx · 17. September 2017

Hallo VBA Experten,

ich sitze bereits eine Weile an einer Abfrage bzw. eines Vergleiches und hoffe Ihr könnt mir den entscheidenden Tipp geben.
Zum Thema:

Ich möchte:

Tabelle1/Bereich (C bis Y) mit Tabelle2/Spalte I vergleichen

Ist ein Wert/Text aus Tabelle1/Spalte C bis Y auch in Tabelle2/Spalte I vorhanden, soll der dazugehörige Wert der Tabelle1/Zellen A (aus der entsprechenden Zeile) in Tabelle2 in die Zelle Z (in die entsprechende Zeile) übertragen werden.

Wo liegt mein Fehler? Vielen Dank im Voraus!
Olaf

:)

Hajo_Zi · 23. September 2017

es sollen also 22 Spalten verglichen werden wobei Spalte A nicht Spalte A in Tabelle 2 ist.
Es wäre also gut wenn alle Spalte von C:Y eine Spaltenüberschrift haben damit man die Spalte suchen kann mit der man es vergleichen soll.
Ich habe es jetzt mal Wort für Wort übersetzt.
"Tabelle1/Spalte C bis Y auch in Tabelle2/Spalte I" Tabelle1 ist die erste Tabelle, Tabelle2 ist die zweite Tabelle.

Dies ist mal nur meine Meinung zu Deinem Beitrag.
Das ist mir viel zu aufwendig.

Madmaxx · 24. September 2017

Hallo Hajo,

vielen Dank für den Beitrag.

Weshalb benötigen alle Spalten von C:Y eine Spaltenüberschrift?

1. Schritt: Es handelt sich doch um eine Suche in Tabelle 1 (Bereich) mit dem Suchbegriff aus der Tabelle 2 Spalte I...

--hierzu habe ich bereits einige Ansätze(Codes), allerdings habe ich Schwierigkeiten den 2. Schritt durchzuführen...

2.Schritt: Bei einem Treffer soll aus der Tabelle 1 die Zeile meinetwegen markiert/aktiviert werden.... der Wert der in Spalte A steht soll weiterverarbeitet werden (z.B. in ein anderes Sheet kopiert werden)

Wo besteht der Aufwand? Für Hinweise bin ich sehr dankbar!

Gruß

Madmaxx · 26. September 2017

Hallo in die Runde,

ich habe bei Ramses einen interessanten Ansatz zur Lösung meiner Aufgabe gefunden.

Allerding erhalte ich die Fehlermeldung 1004. Woran liegt es?
Gleichzeitig versuche ich nicht die ganze Zeile zu kopieren sondern nur eine Zelle(Spalte A) aus dem Suchergebnis..

Wer hat eine Idee?

Danke!

Madmaxx · 27. September 2017

*confused.gif* *confused.gif* Einen wunderschönen Guten,

ich habe jetzt die einzelnen Komponenten meines Projektes getestet und an und für sich laufen die jeweiligen Bausteine auch. Allerdings gelingt es mir nicht dies zu vereinen... *confused.gif*

Wer kann Anregungen geben...

Vielen Dank!

EarlFred · 27. September 2017

*confused.gif**confused.gif*
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

genauso sehe ich aus, wenn ich mir Deine Mustermappe anschaue.

Wäre es möglich, dass man die Angaben aus Deiner Beschreibung dort wiederfindet?

Wäre es möglich, dass Du das "Fehlverhalten" so beschreibst, dass man weiß, WO der Fehler auftritt?

Allerdings gelingt es mir nicht dies zu vereinen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was, wo, wie willst Du wissen? Was läuft, was läuft nicht?

Zudem empfehle ich, bei so einfachen Fällen den Code im Beitrag zu posten (dann kann man schon einen Blick drauf werfen ohne die Mappe öffnen zu müssen) und dazu eine Mustermappe OHNE Makros hochzuladen. Sonst muss man die Mappe erst ohne Makros öffnen, Makros analysieren, dann speichern und nochmal öffnen, wenn man keinen Schadcode entdeckt hat. Das nervt maßlos.

Grüße
EarlFred

Madmaxx · 27. September 2017

Hallo EarlFred,

zunächst einmal einen guten Morgen.

Mir ist bewusst, dass es durchaus schwierig ist meinen Ausführungen zu folgen. Ich stecke wahrscheinlich zu tief in einer Sackgasse oder sehe den Wald vor lauter Bäumen nicht.

Zurück zum Thema:

Ich möchte, dass mit der Anweisung folgendes passiert.

In Tabelle2 sind in Spalte I meine Suchbegriffe.
In Tabelle1 sollen die Spalten ab C durchsucht werden (Alles).
Bei einem Treffer soll der Wert der dann in Spalte A steht, kopiert werden und zurück in die Tabelle2 in die Spalte 16 geschrieben werden.

Code:

Private Sub CommandButton1_Click()

Dim sFind As Variant '--------Suchbegriff in Tabelle2 Spalte I
Dim Spalte As Integer '--------Spalte in Quelletabelle
Dim ZielSpalte As Integer '--------Spalte in Zieltabelle
Dim lngZeile As Long '--------Zeile in Tabelle2
Dim lngZe As Long '--------Zeile in Tabelle1
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
Dim Zeilen As Long
Dim tarWks As String '--------ZielTabelle

Bereich = "Tabelle1" '--------Name_der_Vergleichstabelle
tarWks = "Tabelle2" '--------Name_der_Zieltabelle
Zeilen = 65536 '--------Zeilenanzahl durchsuchen

'------------Suchbegriff steht in Tabelle2 SpalteI

sFind = Worksheets(tarWks).Range("I2") '-------Variable: Liste der Suchbegriffe in tarWks
'-------Kennzeichnung fehlender Werte
If sFind = "" Then Exit Sub

'------------Vergleich: es wird der Suchbegriff (sFind)aus Tabelle2 Spalte I in Tabelle1 im Bereich ab Spalte 3 in allen Zeilen gesucht
'------------bei einem Treffer in Bereich = "Tabelle1" wird der Wert aus der Spalte A kopiert

For Each wks In Worksheets
If wks.Name = tarWks Then Exit Sub
Set rng = wks.Cells.Find(What:=sFind, LookAt:=xlPart, LookIn:=xlFormulas)
'Tabelle2.UsedRange.ClearContents '---------löschen der Daten in Zieltabelle
With Worksheets(Bereich) '---------die Daten aus Bereich = "Tabelle1"

ZielSpalte = Worksheets(tarWks).Cells(lngZe, 16) '-------Zielspalte 16 (Bereichsschlüssel) in der Zieltabelle
For Spalte = 3 To .UsedRange.Columns.Count '-------ab Spalte 3 wird gesucht

If .Cells(lngZe, Spalte).Text = sFind Then '-------ist der Suchbegriff gleich dem Text in der Vergleichstabelle dann kopiere
.Columns(lngZe, 1).Copy Destination:=Worksheets(tarWks).Columns(lngZeile, 16) '----Kopiert den Wert aus Spalte A (gefundenen Zeile in Bereich "Tabelle1") in tarWks "Tabelle2" in die Spalte I (16)
ZielSpalte = ZielSpalte + 1
End If

Next Spalte
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe, ich konnte Klarheit vermitteln.

Vielen Dank!

Madmaxx · 28. September 2017

..wobei alle Zeilen durchlaufen werden sollen...

Madmaxx · 28. September 2017

Was bedeutet dieser Fehler?

Code:

Private Sub CommandButton1_Click()

Dim sFind As Variant '--------Suchbegriff in Tabelle2 Spalte I
Dim Spalte As Integer '--------Spalte in Quelletabelle
Dim Zeile As Long
Dim Zelle As Range
'Dim Bereich As String

'---Suchbegriff (sFind) in Tabelle2 ab Zeile 2 in Spalte I
sFind = Worksheets("Tabelle2").Range(Cells(2, 9), Cells(Rows.Count, 9))

'---finde in Tabelle1 im Bereich ab Spalte 3 in allen Zeilen den Suchbegriff
'---bei einem Treffer in Tabelle1 im Bereich wird der jeweilige Wert aus der Spalte A kopiert
'---einfügen des Wertes in die Zeile und Spalte 16 des Suchbegriffes (in Tabelle 2)

For Each Zelle In sFind
With Worksheets("Tabelle1") '---die Daten aus Bereich = "Tabelle1"
For Zeile = 2 To .UsedRange.Rows.Count '---ab Zeile 2 wird gesucht
For Spalte = 3 To .UsedRange.Columns.Count '---ab Spalte 3 wird gesucht
If .Cells(Zeile, Spalte).Value = Zelle.Text Then '---ist der Suchbegriff gleich dem Text in der Vergleichstabelle dann kopiere
.Columns(Rows.Count, 1).Copy Destination:=Worksheets("Tabelle2").Cells(Zelle.Row, 16) '---Kopiert den Wert aus Spalte A (gefundenen Zeile in Bereich "Tabelle1") in tarWks "Tabelle2" in die Spalte I (16)
End If
Next Spalte
Next Zeile
End With
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank!

Madmaxx · 28. September 2017

Hallo Leute,

zwei Tage weiter und ich habe immer noch keine zufriedenstellende Lösung gefunden.
Für Anregungen wäre ich sehr dankbar!!!!
Code:

If .Cells(Zeile, Spalte).Text = sFind Then '---ist der Suchbegriff gleich dem Text in der Vergleichstabelle dann kopiere
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Zeile haut mir den Fehler raus, bei .Text oder .Value!

Wo deklariere ich falsch?

Code:

Private Sub CommandButton1_Click()

Dim sFind As Variant '---Suchbegriff in Tabelle2 Spalte I
Dim Spalte As Integer '---Spalte in Quelletabelle
Dim Zeile As Integer '---Zeile in Tabelle2
Dim wks As Worksheet
'Dim AusgangsZeile As Long

Dim rngQuelle As Range '---Zeile in Quelltabelle
Dim rngZiel As Range '---Zelle in Zieltabelle

'---Variable: Liste der Suchbegriffe in Tabelle2 SpalteI
sFind = Worksheets("Tabelle2").Range(Cells(2, 9), Cells(Rows.Count, 9))

'1. finde in Tabelle1 ab Zeile2 ab Spalte3 den Suchbegriff(sFind)
'2. Treffer in Tabelle1 kopiere jeweiligen Wert aus der Spalte A (Rows.Count)
'3. einfügen des Wertes aus 2. in die Tabelle2 in Zeile (Rows.Count) und Spalte 16
For Each wks In Worksheets
If wks.Name = "Tabelle2" Then Exit Sub
Set rngQuelle = wks.Cells.Find(What:=sFind, LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows)
Set rngZiel = Worksheets("Tabelle2").Cells(Rows.Count, 16) '---Ziel: Zeile des jeweiligen Suchbegriffs(Rows.count), Zielspalte 16 in Zieltabelle
With Worksheets("Tabelle1") '---Tabelle1 durchsuchen
For Zeile = 2 To .UsedRange.Rows.Count '---erst ab Zeile 2 suchen .End(xlUp).Row
For Spalte = 3 To .UsedRange.Columns.Count '---dann ab Spalte 3 suchen .End(xlUp).Row
If .Cells(Zeile, Spalte).Text = sFind Then '---ist der Suchbegriff gleich dem Text in der Vergleichstabelle dann kopiere
.Columns(Zeile, 1).Copy Destination:=ZielSpalte '---Kopiert den Wert aus Spalte A (gefundenen Zeile in Bereich "Tabelle1") in tarWks "Tabelle2" in die Spalte I (16)
End If
Next Spalte
Next Zeile
End With
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Madmaxx · 10. Oktober 2017

Hallo Leute,

nach einigen Versuchen habe ich eine für mich praktikable Lösung.

Hier der Auszug aus meinem Code:
Code:

'---Codierung der PM-Gruppen
Dim wsPM As Worksheet
Dim varTempPM As Variant
Dim varTempPM2 As Variant
Dim vPM As Variant
Dim strErgebnisRowPM As String
Dim strSuchtextPM As String
Dim l As Long '---=i
Dim m As Long '---=j
Dim n As Long '---=k
Set wsPM = Worksheets("PM-Gruppe")

With wsPM
varTempPM = .Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 20)) '---ok: alle Werte die in ws1 (Variable)
End With

For n = 2 To ws2.Cells(2, 6).End(xlDown).Row '---ab Zeile 2 bis Ende Spalte 6 (Art)
strSuchtextPM = ws2.Cells(n, 6).Value '---Suchbegriff Spalte 6
vPM = "" '???
strErgebnisRowPM = "" '---leere Ergebniszeile

For l = LBound(varTempPM) To UBound(varTempPM)
For m = LBound(varTempPM, 2) To UBound(varTempPM, 2)
If varTempPM(l, m) = strSuchtextPM Then
strErgebnisRowPM = strErgebnisRowPM & "_" & l
Exit For
End If
Next
Next
If strErgebnisRowPM "" Then
varTempPM2 = Application.Index(varTempPM, Application.Transpose(Split(Mid(strErgebnisRowPM, 2), "_")), 1)

If UBound(varTempPM2) = 1 Then
vPM = ";" & varTempPM2(1)
Else
For l = LBound(varTempPM2) To UBound(varTempPM2)
vPM = vPM & ";" & varTempPM2(l, 1)
Next
End If

With ws2
.Cells(n, 17) = Mid(vPM, 2) 'Spalte Q ist meine Hilfsspalte daraus wird später eine Nummer zusammengesetzt
End With
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Vergleich und Wert aus Zeile in Andere kopieren

Vergleich und Wert aus Zeile in Andere kopieren

Vergleich und Wert aus Zeile in Andere kopieren

Vergleich und Wert aus Zeile in Andere kopieren

Vergleich und Wert aus Zeile in Andere kopieren

Vergleich und Wert aus Zeile in Andere kopieren - Similar Threads - Vergleich Wert Zeile

Werte in einer bestimmten Zeile einer Tabelle zählen

vergleich von 2 Zeilen und in einer Dritten Zelle soll ein Wert erscheinen

Tabelle nach Wert vergleichen, Zeile finden und Wert in andere Spalte eingeben

Zeilen vergleichen und höheren Wert einer Zelle ausgeben

VBA Problem = Werte in 2 Dateien vergleichen und Zeilen kopieren

Zwei Werte vergleichen und bei wahr Wert in weitere Zeile schreiben

Werte Suchen und in die richtige Zeile schreiben