For counter = 1 To 100
        
      With Worksheets("Auswertung").Cells(counter + 1, 2)
        If Worksheets("Saldo").Cells(counter + 10, 16).Value = .Value Then
            .Offset(, 1).Value = Worksheets("Saldo").Cells(counter + 10, 17).Value
        End If
      End With
    Next