die folgende Makrofunktion bietet die Möglichkeit komplette Zeilen mit "bestimmten Inhalt" zu löschen. Funktioniert einwandfrei.
Sub t()
Dim c As Range
Dim bereich As Range
Dim eingabe(10)
' löschzeilenwert festlegen
eingabe(1) = "hierLöschText1"
eingabe(2) = "hierLöschText2"
eingabe(3) = "hierLöschText3"
' usw.
eingabe(4) = ""
eingabe(5) = ""
eingabe(6) = ""
'nicht mehr als 10, oder Dim eingabe(10) ensprechend ändern
For j = 1 To 10
Set bereich = Sheets(1).UsedRange
For Each c In bereich
If c = eingabe(j) And eingabe(j) <> "" Then
reihe = c.Row
spalte = c.Column
Rows(reihe).Delete
End If
Next c
Next j
End Sub
Nun meine Frage:
ich möchte, dass mit Hilfe dieses Makros Zeilen komplett automatisch gelöscht werden können, die nur einen Teil der bestimmten Inhalte haben. Z.B. statt dem kompletten Inhalt
"schöne Ferien" alle Zeilen mit dem Inhalt "schöne".
Wie Ihr merkt, habe ich von VB recht wenig Ahnung. Das oben geschriebene Makro stammt auch nicht von mir. Ein Lob an den Autor. Es funktioniert wie schon gesagt einwandfrei, müsste jedoch noch ein wenig modifiziert werden.
Bin für jede Hilfe dankbar.
Schöne Wochenende !!
Grüsse
Markus Gerhartz