AW: Tabellenvergleich
08.09.2017 10:43:04
MCO
Hallo Julia!
Selbstverständlich geht das. Schau mal, ob dir das hilft:
Sub Beispiel()
Dim Ber1 As Range
Dim Ber2 As Range
Dim gefunden As Range
Dim suchWert
Set Ber1 = Sheets("Tabelle1").Range("A:A").SpecialCells(xlCellTypeConstants)
Set Ber2 = Sheets("Tabelle2").Range("D:D")
For Each suchWert In Ber1
Set gefunden = Ber2.Find(suchWert, , , xlWhole) 'Suche, nur ganzer Begriff
If Not gefunden Is Nothing Then 'wenn gefunden
gefunden.Offset(0, 1).Copy suchWert.Offset(0, 1) 'Wert kopieren
gefunden.Offset(0, 1).Interior.Color = vbGreen 'optional: gefundene Werte grün _
markieren
'Else
'nix gefunden
End If
Set gef = Nothing
Next suchWert
Set Ber1 = Nothing
Set Ber2 = Nothing
End Sub
Das Beispiel setzt voraus, dass beide Daten in der gleichen Arbeitsmappe stehen. Der Code muß entsprechend geändert werden, wenn die Vergleichswerte aus anderen Arbeitsmappen kommen sollen, oder diese auch noch geöffnet werden sollen.
Viel Erfolg!
Gruß, MCO