Thema Datum  Von Nutzer Rating
Antwort
15.06.2018 10:06:47 Müller
Solved
Blau mehrere Zeilen löschen, gleichzeitig.
 15.06.2018 17:22:27 Gast76710
NotSolved
16.06.2018 15:14:51 RPP63
NotSolved
18.06.2018 16:35:20 Gast21349
NotSolved

Ansicht des Beitrags:
Von:
Gast76710		 Datum:
15.06.2018 17:22:27		 Views:
524		 Rating:
     
Antwort:
  Ja
Thema:
mehrere Zeilen löschen, gleichzeitig.		 
Sub Müllern()
Const C_Frst As Long = 17
Const C_Step As Long = 13
Const C_Offs As Long = 8   '1 + 8 = 9

'die Zeilen
'17 bis 25 (inklusive 17 und 25) UND
'38 bis 46 (inklusive 38 bis 46) UND
'59 bis 67 (inklusive 59 bis 67) UND
'....
'löschen

Dim lngLst As Long
Dim rngR As Range

   With ActiveSheet
      lngLst = .Cells.Find("*", .Cells(1), -4123, 2, 1, 2, False).Row
      Set rngR = .Range(.Cells(C_Frst, 1), .Cells(C_Frst, 1).Offset(C_Offs))
      Do
         With rngR
            With .Areas(.Areas.Count)
               If .Rows(.Rows.Count).Row > lngLst Then
                  Exit Do
               Else
                  Set rngR = Union(rngR, rngR.Offset(C_Step + C_Offs))
               End If
            End With
         End With
      Loop
      rngR.EntireRow.Delete
   End With
End Sub

 

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
15.06.2018 10:06:47 Müller
Solved
Blau mehrere Zeilen löschen, gleichzeitig.
 15.06.2018 17:22:27 Gast76710
NotSolved
16.06.2018 15:14:51 RPP63
NotSolved
18.06.2018 16:35:20 Gast21349
NotSolved