Mit der With-Anweisung können Sie Ihre Codierung etwas vereinfachen und vor allem übersichtlicher gestalten. In der Prozedur Werbung können Sie beispielsweise Folgendes rationalisieren. Anstatt

Ziel.Cells(FZ, 1) = Quelle.Cells(Gef.Row, 2)
Ziel.Cells(FZ, 2) = Quelle.Cells(Gef.Row, 3)
Ziel.Cells(FZ, 3) = Quelle.Cells(Gef.Row, 4)
Ziel.Cells(FZ, 4) = Quelle.Cells(Gef.Row, 5)
Ziel.Cells(FZ, 5) = Quelle.Cells(Gef.Row, 6)

notieren Sie stattdessen bitte den folgenden Code:

With Ziel
        .Cells(FZ, 1) = Quelle. _
           Cells(Gef.Row, 2)
        .Cells(FZ, 2) = Quelle. _
           Cells(Gef.Row, 3)
        .Cells(FZ, 3) = Quelle. _
           Cells(Gef.Row, 4)
        .Cells(FZ, 4) = Quelle. _
           Cells(Gef.Row, 5)
        .Cells(FZ, 5) = Quelle. _
           Cells(Gef.Row, 6)
End With

Immerhin, es ist etwas einfacher. Die letzte Anweisungsfolge wird auch etwas schneller abgearbeitet. Ich werde auf diese Anweisung in den nächsten Beiträgen zurückkommen.