Komme leider nicht mehr weiter. Habe eine Datei, die zwei weitere Dateien oeffnet (EP und MP). Nun soll nach Werten, die in der EP Datei sind, in der Datei MP gesucht werden. Wenn etwas passendes gefunden wurde, soll halt in der Datei EP, in der Zeile, woher der Wert stammte, die Zeilennummer, wo der Wert gefunden wurde, aus der MP Datei reingeschrieben werden.
Bisjetzt sieht es bei mir so aus, leider springt bei mir bei der Suchfunktion eine Fehlermeldung raus :(
Public
Sub Process()
Dim cTmp As String
Dim sh_ As Worksheet
Dim sh_name As String
Dim selector_ As Integer
Dim no_of_records As Integer
Dim i As Integer
Dim numb As Integer
Dim dumb As String
Dim c As String
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.EnableCancelKey = True
Set EP = Workbooks.Open(ThisWorkbook.Sheets("Files").Range("epname").Value)
Set MP = Workbooks.Open(ThisWorkbook.Sheets("Files").Range("mpname").Value)
For Each sh_ In MP.Worksheets
sh_.Visible = xlSheetVisible
Next
numb = EP.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To numb
dumb = EP.Worksheets(1).Cells(i, 1).Value
'Hier weiss ich nicht mehr weiter...
With MP
Set c = .Cells.Find(What:=dumb, LookIn:=xlFormulas, LookAt:=xlWhole)
End With
Next i
End Sub