860to864: Letzte Zeile im Sheet suchen

Hallo,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 If status = Cells(i, 5) = "ABGS" Then Rows(i).Hidden = True Else If (Right(Cells(i, 4), 4) = "1130" And Right(Cells(i, 4), 4) = "1230" And Right(Cells(i, _ 4), 4) = "1330" And _ Right(Cells(i, 4), 4) = "1430" And Right(Cells(i, 4), 4) = "1530" And Right(Cells(i, 4) _ , 4) = "1800" And _ Right(Cells(i, 4), 4) = "1400" And Right(Cells(i, 4), 4) = "3000") = False Then Rows(i).Hidden = True End If End If Next i End Sub

Sub PSP_Elemente() Dim lngLastRow As Long Dim zelle As Range Dim zelle1 As Range With ActiveSheet lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row Range("$E$2:$E$" & lngLastRow).Select For Each zelle In Selection If zelle.Value = "ABGS" Then zelle.EntireRow.Select zelle.Rows.Hidden = True End If Next End With With ActiveSheet lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row Range("$D$2:$D$" & lngLastRow).Select For Each zelle1 In Selection If zelle1.Value 1130 And zelle1.Value 1230 And zelle1.Value 1330 And zelle1. _ Value 1430 And zelle1.Value 1530 And zelle1.Value 1800 And zelle1.Value 1400 And zelle1.Value 3000 Then zelle1.EntireRow.Select zelle1.Rows.Hidden = True End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

860to864: Letzte Zeile im Sheet suchen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread