title image


Smiley Re: von Arbeitsmappe auf nicht gelade table zugreifen
Hi!



Sub vergleichen()

Dim Ws(1) As Worksheet

Dim Ber, Rn As Range



Dim Suchwert As String

Dim Bestand As String

Dim Ber As Range



Set Ws(0) = ActiveWorkbook.Worksheets("TeileAnl1")

Set Ws(1) = Workbooks("C:\Table.xls").Worksheets("Tabelle")



'Set t1 = Sheets("TeileAnl1") 'aktuelle Mappe

'Set t2 = Sheets("tabelle") 'soll für c:\table.xls gelten





For Each Rn In Ws(0).[F7:F310]

Suchwert = Rn.Value

Set Ber = Ws(1).[I6:I400].Find(Suchwert)

If Ber Is Nothing Then

Ws(0).Cells(Rn.Row, 5).Value = "Wert in Tabelle2 nicht gefunden"

Else

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

' t1.Cells(c.Row, 5).Value = ber.Address(False, 10)

Ws(0).Cells(c.Row, 5).Value = Ber.Offset(False, 7).Value 'Bestand

End If

Next Rn



Set Ws(0) = Nothing

Set Ws(1) = Nothing

Set Rn = Nothing

Set Br = Nothing



End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: