title image


Smiley 1 Zelle von t1 nach t2 kopieren wie besser copieren?
Hallo zusammen,



ich möchte aus einem Bereich banal noch die Zelle A1 in t2 nach t1 A10 kopieren.

Wie bringe ich das hier >???< unter

...

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



Besten DAnk Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: