Zeilenoptimierung
14.11.2016 11:10:52
Berndt
folgender Code nervt:
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
statt
If .Name "Themenspeicher" And .Name "Dashboard" And .Name "SAA_Dashboard" And .Name "Werkstudenten" And .Name "Eingabemaske" Then
möchte ich lieber gleich die Sheets ansprechen, welche ich benötige.
Nämlich diejenigen, die mit Herr* oder Frau* beginnen.
Was muss ich da ändern im Code?
VG Berndt