Hallo Alle,

ich habe das Problem mit folgender Änderung gelöst:

   For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
      Wert = .Cells(Zeile, Spalte).Value
      If Wert = Auswahl Then
        If wbZiel Is Nothing Then

Vielen Dank an allen!

Way