Thema Datum  Von Nutzer Rating
Antwort
25.05.2020 16:02:07 James
NotSolved
25.05.2020 16:06:37 Gast60801
NotSolved
Rot  Jede fünfte Zeile soll stehen bleiben
25.05.2020 16:51:35 amicro2000
Solved

Ansicht des Beitrags:
Von:
amicro2000		 Datum:
25.05.2020 16:51:35		 Views:
740		 Rating:
     
Antwort:
 Nein
Thema:
Jede fünfte Zeile soll stehen bleiben

Hallo auch James,

z.b. so:

Public Sub Löschen()
    Dim Lz As Long, z As Long
    
    With ActiveSheet
        Lz = .Cells(.Rows.Count, 1).End(xlUp).Row
        If Lz = 1 Then Exit Sub
    
        For z = Lz To 1 Step -5
            .Rows(z).EntireRow.Delete
        Next z
    End With
End Sub

in diesem beispiel für Spalte 1 und das Active Tabellenblatt

Beim löschen von zeilen immer darauf achten das diese von unten nach oben gelöscht werden.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.05.2020 16:02:07 James
NotSolved
25.05.2020 16:06:37 Gast60801
NotSolved
Rot  Jede fünfte Zeile soll stehen bleiben
25.05.2020 16:51:35 amicro2000
Solved