title image


Smiley Re: 2 Tabellen vergleichen und Inhalt zurückschreiben
Hallo,



so vielleicht?



Sub vergleichen()

Dim t1, t2 As Object

Dim Suchwert As String

Dim ber As Range

Set t1 = Sheets("Tabelle1")

Set t2 = Sheets("Tabelle2")

For Each c In t1.[A1:A300]

Suchwert = c.Value

Set ber = t2.[A1:A300].Find(Suchwert)

If ber Is Nothing Then

t1.Cells(c.Row, 3).Value = "Wert in Tabelle2 nicht gefunden"

Else

t1.Cells(c.Row, 3).Value = "Treffer in Tabelle2!" & ber.Address(False, False)

End If

Next

End Sub



Gruß JoWE
Wie auch immer, alles wird besser! Grüße, Jochen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: