Excel: Zeilen löschen wenn best. Wort in Spalte

Gabriel@B · 27.04.2005

Hallo,

leider finde ich nicht raus wie ich das machen kann. Ich habe eine Tabelle mit 32.000 zeilen je 10 Spalten. Alle Zeilen die in der Spalte E: 204 stehen haben sollten gelöscht werden. Also komplett nicht nur der Inhalt!

Das weiss doch bestimmt jemand wie das hinzubekommen ist!

Danke schonmal

Gruss Gabriel

Gabriel@B · 27.04.2005

Achso da muss ich mir grad nochmal selbst antworten. Ich kann nicht nach E sortiren und dann so löschen! Die Tabelle muss so in der Ordnung erhalten bleiben wie sie jetzt ist!

Matjes · 27.04.2005

Hi Gabriel@B,

für den Fall, dass der Inhalt von E gleich 204 ist, sollte folgender Makro das Gewünschte tun.

Wenn du jedoch meinst, es soll gelöscht werden, wenn 204 in Spalte E enthalten ist, also auch noch etwas anderes zusätzlich in der Zelle stehen kann, mußt du dich noch einmal melden.

Gruß Matjes

Code:

Sub ZeilenMitInhalt204InSpalteELoeschen()
  Const c_SuchInhalt = 204
  Const c_SuchSpalte = 5->entspr. E
  
  Dim ws As Worksheet, l_ZeileMax As Long, x As Long

  Set ws = ActiveSheet
  l_ZeileMax = ws.Cells(ws.Rows.Count, c_SuchSpalte).End(xlUp).Row
  
  For x = l_ZeileMax To 1 Step -1
    If ws.Cells(x, c_SuchSpalte).Value = c_SuchInhalt Then
      ws.Rows(x).Delete
    End If
  Next
  
  Set ws = Nothing
End Sub

Gabriel@B · 27.04.2005

Hallo Matjes.,

nein wenn dann steht 204 einzelnt in der zelle der E Spalte.

Also das Makro passt schon! Dankeschön!

Noch eine Frage kennst du eine Seite wo es gute Hilfen zu Excel gibt? Also Tipps und Tricks vorlagen Makros, Tastenkürzel usw ?

Matjes · 27.04.2005

eine zentrale Seite die dich dann weiterführt ist http://www.mvps.org/

Gruß Matjes

Gabriel@B · 27.04.2005

Danke!! ;D

Excel: Zeilen löschen wenn best. Wort in Spalte

Gabriel@B

Gabriel@B

Matjes

Gabriel@B

Matjes

Gabriel@B

Excel: Zeilen löschen wenn best. Wort in Spalte

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums