sitze jetzt schon ewig hier dran aber kapier's nicht, ich hoffe Ihr könnt mir helfen.
Habe das unten stehende Makro gefunden und versucht es für meine Zwecke anzupassen.
Ich versuche es dazu zu bekommen die Variablen Beleg (spalte E) und KND (Spalte G) in in einer anderen Datei zu suchen (müssen in gleicher Zeile stehen) und dann in die Zelle mit der Formel zu schreiben.
Über index und Verweis möchte ich es nicht machen da sich der Datensatz in der "Zahlungsliste" sehr schnell auf 100.000 und mehr Zeilen aufblähen wird.
-> extrem langsam
Es muss auch keine funktion sein sondern könnte auch einfach die daten in der spalte Qan Zeile 9 beim ausführen eintragen.
Const Filename = "Zahlungsliste ab 21.10.14.xlsb" 'Filename der Mappe die die Adressen enthält
Public Function Suche_ZahlDatum(ByVal Beleg As String, ByVal KDN As String)
Dim Pfad As String
Dim Anzahl As Long
Dim AD As Range
Dim firstAddress As String
Pfad = ActiveWorkbook.Path
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
Workbooks.Open Filename:=Pfad & Filename, ReadOnly:=True
With ActiveWorkbook.Worksheets("Sheet1")
Anzahl = .Cells(Rows.Count, 2).End(xlUp).Row
With .Range("B2:B" & CStr(Anzahl))
Set AD = .Find(Beleg, LookIn:=xlValues)
If Not AD Is Nothing Then
firstAddress = AD.Address
Do
If AD.Offset(0, 1).Value = KDN Then
Suche_ZahlDatum = AD.Offset(0, -1).Value
Exit Do
End If
Set AD = .FindNext(AD)
Loop While Not AD Is Nothing And AD.Address firstAddress
If Beleg "" Then
Value = Beleg
Else
Value = ""
End If
End If
End With
Workbooks(Filename).Close SaveChanges:=False
End With
End Function
Vielen Dank für eure Hilfe