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
If Wert = "Stadt mit Bezirk" 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