Datum

Titel

25.04.2024 18:41:19

vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile

25.04.2024 18:22:55

Zeilen mit bestimmtem Datum in andere Mappe übertragen

25.04.2024 18:14:45

VBA - Excell - Kopie und "Diebstahl" Schützen

25.04.2024 17:49:39

Bedingte Formatierung

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

872to876

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

Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

Forumthread: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt
5 Beiträge zu diesem Forumthread
Anzeige
180 Threads zu ähnlichen Themen
Top 100 Forumthreads

01.06.2007 07:27:52

Peter

Guten Tag
Ich habe in einer Tabelle in Spalte A in einem bestimmten Block in jeder Zeile (zb. von A5:A23 oder A19:A211) den Eintrag "nicht zutreffend". Nun möchte ich diesen Block (ganze Zeilen) löschen. Wie kann ich den Block aufgrund der Einträge in Spalte A identifizieren und löschen?
Danke für ein Feedback.
Peter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 07:42:17

Jens
AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 08:08:11

Peter
AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 09:44:13

Rudi Maintaire
AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 10:06:46

Peter
Sry, bin heut wohl etwas schusselig :-( oT

01.06.2007 11:23:45

Jens

AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 07:42:17

Jens

Hallo Peter
Falls ich Dich richtig verstanden hab, dann so:


Sub Zeilen_Entfernen()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "Dein Eintrag" Then
Rows(i).Delete
End If
Next i
End Sub

Gruß aus dem Sauerland
Jens

AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 08:08:11

Peter

Hallo Jens
Das ist grundsätzlich prima so.
Da jedoch im konkreten Fall immer wieder eine Riesenmenge Zeilen zu löschen sind (> 2000) möchte ich gerne den ganzen Block auf einmal löschen. Dabei stelle ich mir vor, dass der erste und der letzte entsprechende Eintrag in Spalte A ermittelt wird und aufgrund dieser Information der ganze Block auf einmal gelöscht werden kann.
Freundlicher Gruss, Peter

AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 09:44:13

Rudi Maintaire

Hallo,
unnötig. Jens hat aber was wichtiges vergessen.


Sub Zeilen_Entfernen()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "Dein Eintrag" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Zeilenblock löschen, w. Bedingung in Sp. A erfüllt

01.06.2007 10:06:46

Peter

Hallo Rudi
Vielen Dank, läuft wirklich, zackig ab!
Peter

Sry, bin heut wohl etwas schusselig :-( oT

01.06.2007 11:23:45

Jens