habe mal wieder einn kleines Problem.
Gesucht ist die letzte Zeile die im Sheet beschrieben ist.
Eigentlich habe ich gedacht das der Code so passt, aber leider bricht er immer weider an gewissen stellen ab, obwohl es keine Leezeilen gibt. Vielleicht sieht jemand einen Fehler in meinen Code.
Wäre riesig wenn mir einer weiterhelfen kann.
Private Sub PSP_Elemente()
Dim PSP As String
Dim status As String
Dim i As Long
For i = 2 To Worksheets("PSP").Cells(Rows.Count, 1).End(xlUp).Row
status = Range("E" & CStr(i)).Value
If status = "ABGS" Then
Rows(CStr(i)).Select
Selection.EntireRow.Hidden = True
GoTo naechsteZeile
End If
If (Right(Range("D" & CStr(i)).Value, 4) "1130") Then
If (Right(Range("D" & CStr(i)).Value, 4) "1230") Then
If (Right(Range("D" & CStr(i)).Value, 4) "1330") Then
If (Right(Range("D" & CStr(i)).Value, 4) "1430") Then
If (Right(Range("D" & CStr(i)).Value, 4) "1530") Then
If (Right(Range("D" & CStr(i)).Value, 4) "1800") Then
If (Right(Range("D" & CStr(i)).Value, 4) "3000") Then
If (Right(Range("D" & CStr(i)).Value, 4) "1400") Then
Rows(CStr(i)).Select
Selection.EntireRow.Hidden = True
End If
End If
End If
End If
End If
End If
End If
End If
naechsteZeile
Next i
End Sub