Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe folgendes Problem: Ich habe eine große Excel-Tabelle, in der immer wieder ein Zeile auftaucht in der ein bestimmtes Wort steht und die dazugehörige Zeile gelöscht werden soll. Bei festen Werten konnte ich das mit nachfolgendem Makro lösen. Jetzt befinden sich jedoch auch Zeilen in dieser Excel, wo sich zum Beispiel das Wort Stadt befindet aber auch zum Beispiel ein Bezirk in der gleichen Zelle. Aber alle sollen Zellen gelöscht werden, in der sich das Wort Stadt befindet. Kann mir jemand das Makro so modifizieren? Bsp: München Nord München Süd München West Sub Zeile_löschen_wenn_Leerzeichen_in_Spalte_A() Range("A1").Activate 'Richtige Spalte wird aktiviert LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ActiveCell(LetzteZeile).Activate 'Letzte Datenzeile wird gefunden und aktiviert ErsteLeere = ActiveSheet.Cells(Rows.Count, 14).End(xlUp).Row ActiveCell.Offset(ErsteLeere, 0).Activate 'Erste Leere Datenzeile wird angesprungen ActiveCell.FormulaR1C1 = "Ende" 'Endmarke wird einfügt Range("A1").Activate 'Rücksprung an den Datenanfang Do While ActiveCell.Text <> "Ende" 'Abfrage ob Datenende erreicht ist, wenn nicht dann wird das Marko weiter abgearbeitet Wert = ActiveCell.Text 'Wert aus Zelle einlesen ActiveCell.Offset(1, 0).Activate 'Sprung in die nächste Zeile [b]If Wert = "Stadt mit Bezirk" [/b]Then 'Abfrage ob Zelle leer ist ActiveCell.Offset(-1, 0).Activate 'Wenn die Zelle leer ist Rücksprung in die richtige Zeile Selection.EntireRow.Delete 'Zeile wird gelöscht End If 'Rücksprung zur Abfrage ob die Zeile leer ist Loop Selection.EntireRow.Delete 'Wenn Zelle mit den Inhalt 'Ende' hat wird diese gelöscht Range("A1").Activate 'und anschließend in die erste Zelle gesprungen. 'Das Makro wird beendet End Sub Vielen Dank

Ich hab noch ein bisschen probiert und schreibe deswegen die Antwort selber :)

Fettgedruckte Zeile ersetzen durch:

If Wert Like "*München*"

• Zeilen mit #BEZUG# löschen
• Unterschiedliche Darstellung von csv-Dateien im Excel
• Möchte im Excel wiederholend jede 2-9 Zeile löschen
• Excel Bedingte Formatierung!?
• zuordnungen