Hallo Marcus,
wie auch andere schon festgestellt haben, erscheint dein Makro in nicht einfach lesbare Form. Das liegt am verwendeten Browser. Ich habe aber weder Lust noch Zeit, dieses zu korrigieren.
Ich nehme an, du willst für jede "Quelle" eine etwa derartige Sub scheiben:
sub Quelle_1
Was bis 'end sub' steht, musst du richtig formatieren (hast du wohl schon)!
For A = 1 To 150 C = Worksheets(Quelle1).Cells(A, 13).Value D = Left(C, 1) If D = "5" Then Worksheets(Ziel).Cells(Z, 2).Value = Worksheets(Quelle1).Cells(A, 13).Value 'Rechnungsnummer Worksheets(Ziel).Cells(Z, 3).Value = Worksheets(Quelle1).Cells(A, 2).Value 'Shipment If Worksheets(Quelle1).Cells(A, 16).Value = "Delivery Payment" Then Worksheets(Ziel).Cells(Z, 4).Value = Worksheets(Quelle1).Cells(A, 8).Value ElseIf Worksheets(Quelle1).Cells(A, 16).Value = "Final Payment" Then Worksheets(Ziel).Cells(Z, 4).Value = Worksheets(Quelle1).Cells(A, 6).Value End If Worksheets(Ziel).Cells(Z, 5).Value = Worksheets(Quelle1).Cells(A, 4).Value 'Rechnungsdatum Worksheets(Ziel).Cells(Z, 6).Value = Worksheets(Quelle1).Cells(A, 12).Value 'Fälligkeitsdatum Worksheets(Ziel).Cells(Z, 7).Value = Worksheets(Quelle1).Cells(A, 11).Value 'Zahlungseingang Worksheets(Ziel).Cells(Z, 8).Value = Worksheets(Quelle1).Cells(A, 16).Value Z = Z + 1 End If Next A
end sub
Für die anderen Quellen entsprechend.
Da jetzt aber die Variablen und Konstanten, die bisher im Programmbeginn standen, nicht definiert sind, empfehle ich, sie vorab Private oder Public zu deklarieren (s.VBA-Hilfe Private, Public, Const).
Ich hoffe, dich auch die richtige Schiene gesetzt zu haben. Jetzt bis am Zug!
Gruß
Holger
|