Letzte und vorletzte Zeile löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Frank() Dim LR As Long, iJ As Integer LR = Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte If LR >= 2 Then If LR > 3 And Cells(LR, 2) = "Ja" Then iJ = 1 Rows(LR).Offset(-iJ).Resize(1 + iJ).Delete End If End Sub

Code: [Cc] Sub LetzteZeileLoeschen() Dim iZeile As Long iZeile = Cells(Rows.Count, "B").End(xlUp).Row If Cells(iZeile, "B").Value = "ja" Then Rows(iZeile & ":" & (iZeile - 1)).Delete Else Rows(iZeile & ":" & iZeile).Delete End If End Sub

Code: [Cc] Sub LetzteZeileLoeschen() Dim iZeile As Long iZeile = Cells(Rows.Count, "B").End(xlUp).Row If Cells(iZeile, "B").Value = "ja" Then If iZeile > 2 Then Rows(iZeile & ":" & (iZeile - 1)).Delete Else If iZeile > 1 Then Rows(iZeile & ":" & iZeile).Delete End If End Sub

iZeile = VonListbox If Cells(iZeile, "B").Value = "ja" Then If iZeile > 2 Then Rows(iZeile & ":" & (iZeile - 1)).Delete Else If iZeile > 1 Then Rows(iZeile & ":" & iZeile).Delete End If

Dim i As Long For i = 0 To ListBox1.ListCount - 1 '(-1 wegen Row.Source) If ListBox1.Selected(i) = True Then With Sheets("TabStromEG") If .Cells(i, "B").Value = "ja" Then If i > 2 Then .Rows(i & ":" & (i - 1)).Delete Else If i > 1 Then .Rows(i & ":" & i).Delete End If End With End If Next i

Hier noch ein Versuch.
Ohne Mappe schwer zu testen.....

Dim i As Long, Offs1 As Integer, Offs2 As Integer

  For i = 0 To ListBox1.ListCount - 1 '(-1 wegen Row.Source)
    If ListBox1.Selected(i) = True Then
       With Sheets("TabStromEG")
            i = i + 2
MsgBox CStr(i)                                  ' Hier schaun, ob richtige Zeile
            If .Cells(i, "B").Value = "Ja" Then         ' In B steht "Ja"
               If .Cells(i, "B").Offset(-1, "B").Value = "Ja" Then Offs1 = 1
               If .Cells(i, "B").Offset(1, "B").Value = "Ja" Then Offs2 = 1
               If (i - Off1) > 1 Then
                  .Rows((i - Offs1) & ":" & (i + Offs2)).Delete
               End If
            Else                                        ' In B steht kein "Ja"
               If i > 1 Then .Rows(i & ":" & i).Delete  ' Diese Zeile löschen
            End If
        End With
        Exit For                                        ' Es kann nur eine Listwert true sein
    End If
  Next i

Gruß KH

dim rngLösch as range Dim i As Long For i = 0 To ListBox1.ListCount - 1 '(-1 wegen Row.Source) If ListBox1.Selected(i) = True Then With Sheets("TabStromEG").Rows(i + 2, 2) set rngLösch = .Cells if .value = "ja" Then if .offset(-1, 0).value = "ja" then Set rngLösch = union(rngLösch, .offset(-1, 0) if .offset(1, 0).value = "ja" then Set rngLösch = union(rngLösch, .offset(1, 0) end if rngLösch.EntireRow.Delete End with End If Next

Sub Frank() Dim LR As Long, iJ As Integer LR = Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes If LR >= 2 Then If LR > 3 And Cells(LR, 2) = "Ja" Then iJ = 1 Rows(LR).Offset(-iJ).Resize(1 + iJ).Delete End If End Sub

Beliebteste Forumthreads (12 Monate)

Letzte und vorletzte Zeile löschen

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Letzte und vorletzte Zeile löschen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread