title image


Smiley von Arbeitsmappe auf nicht gelade table zugreifen
HAllo profis,



ich greife i.M. noch von einer t1 auf t2 innerhalb der Arbeitsmappe zu.

Nun möchte ich die "t2" von einem Ort c:\table.xls ansprechen und folgende Aktionen

modifiziern:?

'

Sub vergleichen()

Dim t1, t2 As Object

Dim Suchwert As String

Dim Bestand As String

Dim ber As Range

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

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

For Each c In t1.[F7:F310]

Suchwert = c.Value

Set ber = t2.[I6:I400].Find(Suchwert)

If ber Is Nothing Then

t1.Cells(c.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)

t1.Cells(c.Row, 5).Value = ber.Offset(False, 7).Value 'Bestand



End If

Next





Vielen dank für eure Hilfe



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: