Userform in 2 Dateien suchen
28.06.2007 17:12:00
Hams
Er listet alles wunderbar auf und ich kann dann den gewünschten Namen anklicken und alles wird so weiterverarbeitet wie ich es möchte.
Nur jetzt muss er in einer weiteren Datei die DATEN_24 heisst ( Tabellenblatt und Spalte sind gleich )
ebenfalls alles suchen und die Fundstellen beider DATEN untereinander auflisten.
Kann mir jemand dabei helfen . ich verzeifel :(
Hier das funktionierende Skript das nur in der ersten Datei sucht
Danke im Voraus
Hans
Private Sub cmdSearch_Click()
Dim rng As Range
Dim sFirst As String
Dim i As Integer
ListBox1.Clear
Set rng = Workbooks("DATEN_27.xls").Worksheets("Daten erfassung").Range("E:E").Find(What:= _
txtSearch, LookIn:=xlValues, _
LookAt:=xlPart, After:=Range("E65536"))
If Not rng Is Nothing Then
sFirst = rng.Address
ListBox1.AddItem rng & " , " & rng.Offset(0, 1) & " , " & rng.Offset(0, 3) & " | " & rng. _
Offset(0, 4) & " " & rng.Offset(0, 5) & " | " & rng.Offset(0, -4), i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Do
Set rng = Workbooks("DATEN_27.xls").Worksheets("Daten erfassung").Range("E:E").FindNext( _
After:=rng)
If rng.Address = sFirst Then Exit Do
ListBox1.AddItem rng & " , " & rng.Offset(0, 1) & " , " & rng.Offset(0, 3) & " | " & rng. _
Offset(0, 4) & " " & rng.Offset(0, 5) & " | " & rng.Offset(0, -4), i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Loop
Else
ListBox1.AddItem "Nichts gefunden!"
End If
End Sub