Wenn "XXX" vorkommt, dann Zeile löschen

cybdr · 12.11.2005

Hallo,
ich habe ein Problem. Ich möchte mittels einer Funktion in Excel erreichen, dass in einem Datensatz von 55000 Zeilen Größe alle Zellen gelöscht werden, in denen in beliebiger Spalte das Wort XXX vorkommt. Leider habe ich mit http://www.wintotal-forum.de/?board=17;action=display;threadid=33407 keinen Erfolg gehabt, weil dieses Makro nur löscht, was gerade getippt wird, aber nicht vorhandene Einträge.
Danke!

Julian

Billy · 12.11.2005

hi

folgendes Makro einfach in die entsprechende Tabelle kopieren, ausführen und gut ist. Bei dieser Datenmenge empfiehlt es sich aber eine sicherheits kopie zu machen ^^.

Code:

Sub suchenundloeschen()
'Hier das Suchwort definieren
Const c_suchwort = bla

Dim x As Long, y As Long, test
For x = ActiveSheet.UsedRange.Rows.Count To 1 Step -1

 For y = 1 To Range(Cells(x, 1), Cells(x, ActiveSheet.UsedRange.Columns.Count)).Columns.Count
  If Cells(x, y).Value = c_suchwort Then
   ActiveSheet.Rows(x).Delete
  End If
 Next y
 
Next x

End Sub

Hinweis:
Das Suchwort muss genau so stehn. Gross und Kleinschreibung werden beachtet, kann aber auch geändert werden.

Wenn "XXX" vorkommt, dann Zeile löschen

cybdr

Billy

Wenn "XXX" vorkommt, dann Zeile löschen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums