Als "x" markierte Zeile löschen

Bild

Betrifft: Als "x" markierte Zeile löschen von: Christian
Geschrieben am: 04.03.2005 12:51:35

Hallo an alle,
ich habe eine normale Excel Tabelle. In der Splate "B" habe ich in einigen Zeile ein "x" eingetragen. Nun würde ich gerne ein Makro schreiben, dass mir die komplette Zeilen löscht, in der ein x steht.

Bsp.
Steht in B19 ein x dann möchte ich die Zeile 19 komplett gelöscht haben.

Danke Euch vielmals!

Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Hajo_Zi
Geschrieben am: 04.03.2005 12:59:00

Hallo Christian,

mal aus meinem Archiv, nicht überarbeitet


Sub löschen()
    Dim I As Long
    Dim Letzte As Long
    If [B65536] = "" Then
        Letzte = [B65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    On Error Resume Next
    For I = Letzte To 1 Step -1
        If Cells(I, 2)) = "x" Then Rows(I).Delete
    Next
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: @Hajo von: Martin Beck
Geschrieben am: 04.03.2005 13:01:36

Hallo Hajo,

da hast Du ja meinen "Erziehungsversuch" zunichte gemacht [grins].

Gruß
Martin Beck


Bild


Betrifft: AW: Recherche von: Hajo_Zi
Geschrieben am: 04.03.2005 14:10:09

Hallo Martin,

ich habe die Hoffnung aufgegeben das die Recherche benutzt wird.

Gruß Hajo


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Martin Beck
Geschrieben am: 04.03.2005 12:59:34

Hallo Christian,

im Prinzip geht das über eine Schleife, die rückwärts durchlaufen wird (von der letzten zur ersten Zeile) und jede Zelle auf "x" überprüft. Schau mal in der Recherche, das wurde schon oft gefragt und beantwortet.

Es gäbe auch eine einfachere Lösung. Dazu müßte ich wissen, was in Spalte B außer den "X" noch steht (Texte, Zahlen, ...).

Gruß
Martin Beck


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Christian
Geschrieben am: 04.03.2005 14:16:06

Hallo Martin
in der Spalte steht nur "x" und nichts anderes

Nette Grüße!


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Martin Beck
Geschrieben am: 04.03.2005 14:42:33

Hallo Christian,

das kann doch nicht sein, daß in jeder Zelle "x" steht. Dann könntest Du ja gleich die ganze Tabelle löschen. Aber Du hast ja schon Hajos Lösung, also was solls.

Gruß
Martin Beck


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Christian
Geschrieben am: 04.03.2005 14:46:52

Nein,
sorry das ist ein Missverständniss.

Nur in einigen Zellen der Spalte B steht ein "x". Nicht in allen!

Es sind insgesamt ca. 4500 Zeilen und in ca.300 steht in Spalte B ein "x" oder die Zelle ist leer.

Nette Grüße und danke!


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Martin Beck
Geschrieben am: 04.03.2005 14:56:24

Hallo Christian,

in Spalte B enthalten alle Zellen also entweder ein "x" oder sie sind leer? Dann tut's statt Hajos Schleife auch folgender Einzeiler:

Columns("B:B").SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete

Gruß
Martin Beck


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Christian
Geschrieben am: 04.03.2005 15:03:36

Jaaaaa,
das hat nett gefunzt. Danke Dir / Euch!


Nette Grüße!


Bild


Betrifft: AW: Als "x" markierte Zeile löschen von: Hajo_Zi
Geschrieben am: 04.03.2005 17:41:10

Hallo Christian,

ändere die Zeile

If Cells(I, 2) = "x" Then Rows(I).Delete
es war eine Klammer zu viel. Das kommt eben vor wenn man Live einen Code ändert im Forum.

Gruß Hajo


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Als "x" markierte Zeile löschen"