title image


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

versuch mal den folgenden Code:





      

Sub SuchenUndFinden()



    Dim cs As Range, cf As Range

    

    For Each cs In Worksheets("Tabelle1").Range("A1:A300")

        Set cf = Worksheets("Tabelle2").Range("A1:A300").Find(what:=cs.Value)

        If Not (cf Is Nothing) Then

           cs.Offset(0, 2).Value = cf.Offset(0, 1).Value

        End If

    Next cs



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: