Wenn "XXX" vorkommt, dann Zeile löschen

Dieses Thema Wenn "XXX" vorkommt, dann Zeile löschen im Forum "Windows XP Forum" wurde erstellt von cybdr, 12. Nov. 2005.

Thema: Wenn "XXX" vorkommt, dann Zeile löschen Hallo, ich habe ein Problem. Ich möchte mittels einer Funktion in Excel erreichen, dass in einem Datensatz von 55000...

  1. 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
     
  2. 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.
     
Die Seite wird geladen...

Wenn "XXX" vorkommt, dann Zeile löschen - Ähnliche Themen

Forum Datum
Windows 10 vorinstalliert. Was wenn die Festplatte nicht mehr geht. Windows 10 Forum 16. Aug. 2016
Programme wiederherstellen, wenn Systemrückstellung nicht geht? Windows 7 Forum 9. Aug. 2015
Windows 10 DVD erstellen wenn kostenlos verfügbar? Windows 10 Forum 3. Juni 2015
VBA Excel Pop up Fenster wenn D4="Ja" und I7="leer" Microsoft Office Suite 6. Mai 2015
Spiel ruckelt wenn der Laptop am Netzkabel hängt... Hardware 9. Apr. 2015