title image


Smiley Re: Spalten Vergleichen
Hallo,

hoffe das passt:















Sub test()

Dim Zeile As Long, Zeile2 As Long  

Dim Text As String  



For Zeile = 1 To Worksheets("Tabelle1").[F65536].End(xlUp).Row  



Text = Worksheets("Tabelle1").Cells(Zeile, 6)

   

    For Zeile2 = 1 To Worksheets("Tabelle2").[A65536].End(xlUp).Row  

      If Worksheets("Tabelle2").Cells(Zeile2, 1) = Text Then  

          Worksheets("Tabelle1").Cells(Zeile, 16).Copy _

          Worksheets("Tabelle2").Cells(Zeile2, 9)

      End If  

    Next Zeile2



Next Zeile



End Sub  







Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: