Thema Datum  Von Nutzer Rating
Antwort
08.06.2014 10:06:56 David
Solved
Blau automatisiertes löschen nach kriterium
 08.06.2014 16:34:36 Gast12816
Solved
08.06.2014 17:01:42 David
Solved

Ansicht des Beitrags:
Von:
Gast12816		 Datum:
08.06.2014 16:34:36		 Views:
2279		 Rating:
     
Antwort:
 Nein
Thema:
automatisiertes löschen nach kriterium		 
Option Explicit

Sub test()
Const bln As Boolean = False        'Tabelle hat KEINE Überschrift - sonst True
Dim c As Range
Dim x As Long, y As Long, z As Long

  Application.ScreenUpdating = False
  
  z = 1: If bln Then z = z + 1      'Ende wegen Überschrift
  
  'letztes Vorkommen
  Set c = ActiveSheet.UsedRange.Find(What:="Summen", SearchDirection:=xlPrevious)
  If c Is Nothing Then Exit Sub
  'Wertespalte
  y = c.Offset(0, 3).Column
  For x = c.Row To z Step -1
    'Bedingung
    If Cells(x, y).Value = 0 Then Rows(x).Delete
  Next x
  'letztes Vorkommen
  Set c = ActiveSheet.UsedRange.Find(What:="Summen", SearchDirection:=xlPrevious)
  If c Is Nothing Then Exit Sub
  'Suchspalte
  y = c.Column
  For x = c.Row To z Step -1
    'Abstände wiederherstellen
    If Cells(x, y).Value = "Summen" Then Rows(x + 1).Insert Shift:=xlDown
  Next x
  
  Application.ScreenUpdating = True
  
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
08.06.2014 10:06:56 David
Solved
Blau automatisiertes löschen nach kriterium
 08.06.2014 16:34:36 Gast12816
Solved
08.06.2014 17:01:42 David
Solved