Hallo M.O.
danke dir für deine Hilfe. Habe versucht den Code entsprechend anzupassen, jedoch kriege ich es nicht hin.
Am Ende beim Vergleich vom Array mit den Zellwerten erscheint die Fehlermeldung, dass die Typen unverträglich sind.
' ** ABFRAGE DER PARTNER
For i = 1 To lngLZeile1 ' lngLZeile1 ist die letzte Zeile vom JReport wo ein Eintrag ist
If WbDatei1.Sheets(1).Cells(i, 1) Like arrPartner() Then
' Datumsprüfung "Lieferzeitraum von"
If WbDatei1.Sheets("Sheet1").Cells(i, 4).Value <= DateFrom Then
WbDatei2.Sheets("Handelsgeschäfte").Cells(A, 4).Value = DateFrom
Else
WbDatei2.Sheets("Handelsgeschäfte").Cells(A, 4).Value = WbDatei1.Sheets("Sheet1").Cells(i, 4).Value
End If
' Datumsprüfung "Lieferzeitraum bis"
If WbDatei1.Sheets("Sheet1").Cells(i, 5).Value >= DateTo Then
WbDatei2.Sheets("Handelsgeschäfte").Cells(A, 5).Value = DateTo
Else
WbDatei2.Sheets("Handelsgeschäfte").Cells(A, 5).Value = WbDatei1.Sheets("Sheet1").Cells(i, 5).Value
End If
' Abgabe Menge
WbDatei2.Sheets("Handelsgeschäfte").Cells(A, 3).Value = WbDatei1.Sheets("Sheet1").Cells(i, 10).Value
' Betrag
WbDatei2.Sheets("Handelsgeschäfte").Cells(A, 8).Value = WbDatei1.Sheets("Sheet1").Cells(i, 11).Value
A = A + 1
End If
Next i
Next lngPartner
Kannst du mir nochmals weiterhelfen?
Meine VBA-Kenntnisse sind einfach zu schlecht.
Gruss Andreas