AW: Letzte und vorletzte Zeile löschen
09.12.2021 17:12:22
volti
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