Datum

Titel

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

24.04.2024 17:19:09

Formel mit Index-Funktion

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1444to1448

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Zeilen löschen VBA

Forumthread: Zeilen löschen VBA
7 Beiträge zu diesem Forumthread
Anzeige
317 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Zeilen löschen VBA

01.09.2015 09:16:04

Fritz_W

Hallo Forumsbesucher,
ich möchte im aktiven Tabellenblatt alle Zeilen löschen, in denen in der Spalte I entweder der Text "gesamt" oder "Summe" steht.
Für Eure Unterstützung danke ich im Voraus.
mfg
Fritz

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Autofilter

01.09.2015 09:28:41

RPP63
AW: Autofilter

01.09.2015 09:46:39

Fritz_W
VBA

01.09.2015 09:30:30

RPP63
AW: Zeilen löschen VBA

01.09.2015 10:21:13

Gerd
AW: Zeilen löschen VBA

01.09.2015 13:57:48

Fritz_W
AW: Zeilen löschen VBA

01.09.2015 10:24:49

Daniel
AW: Zeilen löschen VBA

01.09.2015 14:00:45

Fritz_W

Autofilter

01.09.2015 09:28:41

RPP63

Hallo!
Filtere Spalte I nacheinander nach den Begriffen und lösche die sichtbaren Zeilen.
Die "weggefilterten" Zeilen bleiben erhalten.
Gruß Ralf

AW: Autofilter

01.09.2015 09:46:39

Fritz_W

Hallo Ralf,
vielen Dank für den Tipp.
Damit komm ich prima klar.
Gruß
Fritz

VBA

01.09.2015 09:30:30

RPP63

Ergänzend:
Zeichne dies mal mit dem Makrorekorder auf, dann hast Du Dein VBA.
(Wenn Du es dynamisch brauchst, dann stelle den aufgezeichneten Code mal hier ein)
Gruß Ralf

AW: Zeilen löschen VBA

01.09.2015 10:21:13

Gerd


Sub A()
With ActiveSheet
.UsedRange.AutoFilter
.UsedRange.AutoFilter field:=9, Criteria1:="Summe", Operator:=xlOr, Criteria2:="gesamt"
Intersect(.Range("2:" & Rows.Count), .AutoFilter.Range.SpecialCells(xlCellTypeVisible)). _
EntireRow.Delete
.UsedRange.AutoFilter
End With
End Sub

Hallo Fritz!
Daten ab Zeile2, Spalte A - mind. I sind vorhanden
Den Bereich (UsedRange) kannst du anpassen.
Gruß Gerd

AW: Zeilen löschen VBA

01.09.2015 13:57:48

Fritz_W

Hallo Gerd,
super die VBA-Variante, vielen Dank.
Gruß
Fritz

AW: Zeilen löschen VBA

01.09.2015 10:24:49

Daniel

Hi
mit der seit Excel 2007 verfügbaren Standardmethode zum schnellen Löschen von Zeilen mit Bediungung:
1. markiere in einer Hilfsspalte per Formel alle Zeilen, die gelöscht werden sollen mit 0 und die die stehen bleiben müsssen mit der aktuellen zeilennummer:
=Wenn(Oder(I1="gesamt";I1="Summe");0;Zeile())
2. schreibe in die erste Zeile der Hilfsspalte (Überschrift) ebenfalls die 0
3. Wende auf die Tabelle die Funktion DATEN - DATENTOOLS - DUPLIAKTE ENTFERNEN an, mit der Hilfsspalte als Kriterium und der Option "keine Überschrift"
4. lösche die Hilfsspalte
geht natürlich auch als Makro:


With ActiveSheet.Usedrange
With .columns(.Columns.count + 1)
.formulaR1C1 = "=IF(OR(RC9=""gesamt"",RC9=""Summe""),0,Row())"
.Cells(1, 1).value = 0
.EntireRow.RemoveDuplicates .column, xlno
.ClearContents
End with
End With

Gruß Daniel

AW: Zeilen löschen VBA

01.09.2015 14:00:45

Fritz_W

Hallo Daniel,
prima Umsetzung,
vielen Dank für deine Vorschläge.
Gruß
Fritz