Zeilenoptimierung

For Each WS2 In ThisWorkbook.Worksheets
With WS2
If .Name  "Themenspeicher" And .Name  "Dashboard" And .Name  "SAA_Dashboard" And . _
Name  "Werkstudenten" And .Name  "Eingabemaske" Then
bis = Sheets("Dashboard").Range("I2000").End(xlUp).Row + 1
iZeile = Application.Match("Problemspeicher ", .Columns(2), 0) + 1
Do Until .Cells(iZeile, 2) = ""
letzteZeile = WS1.Cells(Rows.Count, 9).End(xlUp).Row + 1
WS1.Cells(letzteZeile, 9) = WS2.Cells(iZeile, 2)
WS1.Cells(letzteZeile, 11) = WS2.Cells(iZeile, 3)
WS1.Cells(letzteZeile, 14) = .Name
iZeile = iZeile + 1
If Start = 0 Then Start = bis
With Sheets("Dashboard").Range("N" & bis)
If .Offset(-1).Value  .Value Then
With .Offset(, -5).Resize(, 7).Borders(xlEdgeTop)
.LineStyle = xlDot 'gepunktete Linie
.Weight = xlThin
End With
End If
End With
Loop
End If
End With
Next WS2

If .Name  "Themenspeicher" And .Name  "Dashboard" And .Name  "SAA_Dashboard" And .Name  "Werkstudenten" And .Name  "Eingabemaske" Then