Office: Zeile löschen wenn bestimmter Inhalt in Spalte

AchimSKI · 26. März 2006

Oh Mann, jetzt hab ich ganz lang im Forum gesucht, herumprobiert und bin gescheitert. Dabei ist das sicher ganz einfach....

Ich will, daß das Marko

- ins Worksheet "Motor" geht
- dort alle Zeilen löscht, in deren Spalte "D" das Wort "Roller" enthalten ist.

Danke Euch.

:)

myfake · 28. März 2006

Hallo Achim,

schau doch mal, ob Dir der Code ...
Code:

AchimSKI · 28. März 2006

Hallo myfake, es passiert einfach gar nicht. Was mach ich bloß falsch?

User · 28. März 2006

Hallo Achim,

Code:

Sub Spalte_D()
Dim LoLetzte As Long
Dim LoI As Long
Dim RaZeile As Range
With Worksheets("Motor")
' Unabhängig von Excelversion
' für Spalte D (4)
LoLetzte = IIf(IsEmpty(.Cells(Rows.Count, 4)), .Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count)
For LoI = LoLetzte To 1 Step -1
If Cells(LoI, 4) = "Roller" Then
If RaZeile Is Nothing Then
Set RaZeile = .Rows(LoI)
Else
Set RaZeile = Union(RaZeile, .Rows(LoI))
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
End With
Set RaZeile = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 28. März 2006

Hallo Achim,

ich habe diese Bsp-Tabelle genommen:

[parsehtml]<table border=3 cellpadding=1><tr><td> </td><td align=center bgcolor=#C0C0C0>A</td><td align=center bgcolor=#C0C0C0>B</td><td align=center bgcolor=#C0C0C0>C</td><td align=center bgcolor=#C0C0C0>D</td></tr><tr><td align=center bgcolor=#C0C0C0>1</td><td>1</td><td> </td><td> </td><td>Roller</td></tr><tr><td align=center bgcolor=#C0C0C0>2</td><td>2</td><td> </td><td> </td><td>Mofa</td></tr><tr><td align=center bgcolor=#C0C0C0>3</td><td>3</td><td> </td><td> </td><td>Kfz</td></tr><tr><td align=center bgcolor=#C0C0C0>4</td><td>4</td><td> </td><td> </td><td>Bus</td></tr><tr><td align=center bgcolor=#C0C0C0>5</td><td>5</td><td> </td><td> </td><td>Roller</td></tr><tr><td align=center bgcolor=#C0C0C0>6</td><td>6</td><td> </td><td> </td><td>Mofa</td></tr><tr><td align=center bgcolor=#C0C0C0>7</td><td>7</td><td> </td><td> </td><td>Kfz</td></tr><tr><td align=center bgcolor=#C0C0C0>8</td><td>8</td><td> </td><td> </td><td>Bus</td></tr><tr><td align=center bgcolor=#C0C0C0>9</td><td>9</td><td> </td><td> </td><td>Roller</td></tr><tr><td align=center bgcolor=#C0C0C0>10</td><td>10</td><td> </td><td> </td><td>Mofa</td></tr><tr><td align=center bgcolor=#C0C0C0>11</td><td>11</td><td> </td><td> </td><td>Kfz</td></tr><tr><td align=center bgcolor=#C0C0C0>12</td><td>12</td><td> </td><td> </td><td>Bus</td></tr><tr><td align=center bgcolor=#C0C0C0>13</td><td>13</td><td> </td><td> </td><td>Roller</td></tr><tr><td align=center bgcolor=#C0C0C0>14</td><td>14</td><td> </td><td> </td><td>Mofa</td></tr><tr><td align=center bgcolor=#C0C0C0>15</td><td>15</td><td> </td><td> </td><td>Kfz</td></tr></td></tr></table>[/parsehtml]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Code dann in ein Modul kopiert und gestartet. Bei mir wurden dann die Zeilen 1, 5, 9 und 13 gelöscht. Klappt es vielleicht mit dem Kopieren in ein Modul nicht?

cu
myfake

AchimSKI · 28. März 2006

Hallo myfake,

kann es daran liegen, daß die Zellen nur "Roller" enthalten? Auto und LKW soll stehen bleiben, aber VESPA-Roller und Yamaha-Roller sollen gelöscht werden....

Thanx, Achim

User · 28. März 2006

Hallo

es war wohl die Tabelle Motor nicht aktiv. Das Stand nicht Explicit in Deinem Code.

User · 28. März 2006

Hallo Achim,

das Stand nicht in Deinem Beitrag.
Code:

Option Explicit

Sub Spalte_D()
Dim LoLetzte As Long
Dim LoI As Long
Dim RaZeile As Range
With Worksheets("Motor")
' Unabhängig von Excelversion
' für Spalte D (4)
LoLetzte = IIf(IsEmpty(.Cells(Rows.Count, 4)), .Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count)
For LoI = LoLetzte To 1 Step -1
If InStr(Cells(LoI, 4), "Roller") > 0 Then
If RaZeile Is Nothing Then
Set RaZeile = .Rows(LoI)
Else
Set RaZeile = Union(RaZeile, .Rows(LoI))
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
End With
Set RaZeile = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

myfake · 28. März 2006

Hallo Achim,

dann versuch es bitte mal mit diesem Code ....
Code:

AchimSKI · 28. März 2006

Heiligs Blechle, myfake - Dein Glück, daß ich nicht in Deiner Nähe bin - ich würde Dich umarmen und küssen!

Jubel - es funktioniert!!!

Ein Bier, wo ist hier das nächste Bier? Fump.

Luxikatz · 19. September 2017

Hi,

der Code ist super.

jedoch möchte ich Zeile löschen, wenn NICHT abgeschlossen oder geklärt drin steht.

Irgendwo ist noch der Wurm drin, ware euch sehr dankbar, wenn jemand den Fehler findet.

Im Text steht beispielsweise:

Geklärt am XX.XX.XXXX
Abgeschlossen am XX.XX.XXX

oder mit Herrn XY geklärt

Das heißt man muss zuerst im Text nach diesem Begriff suchen,
dann erst löschen, wenn dieser Begriff "geklärt" nicht drin steht

Danke

Code:

Dim wks As Worksheet

Dim i As Integer

Sheets("data").Select

Application.ScreenUpdating = False

With Sheets("data")

For i = Sheets("data").Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1

If InStr(1, Cells(i, 7).Value, not "abgeschlossen" or or "geklärt") Then

.Cells(i, 1).EntireRow.Delete
End If

Next i
Application.ScreenUpdating = True
Application.ScreenUpdating = False

End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Zeile löschen wenn bestimmter Inhalt in Spalte

Zeile löschen wenn bestimmter Inhalt in Spalte

Zeile löschen wenn bestimmter Inhalt in Spalte

Zeile löschen wenn bestimmter Inhalt in Spalte

Zeile löschen wenn bestimmter Inhalt in Spalte

Zeile löschen wenn bestimmter Inhalt in Spalte - Similar Threads - Zeile löschen bestimmter

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Zeilen bei bestimmten Kriterien löschen

Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

Nach einer bestimmten Formel suchen und Zeile löschen

Zeilen mit bestimmten Inhalten löschen lassen

VBA: Aus einer Liste alle Zeilen löschen, die einen bestimmten Wert enthalten

Zeilen löschen, wenn bestimmte Werte nicht vorkommen