ich bräuchte da noch mal ein wenig Hilfe mit einem Makro. Hier eine kurze Erläuterung:
Ich habe eine Menge Logfiles auszuwerten und muss Zeilen mit bestimmten Inhalten rauslöschen, da sie unrelevant sind. Über das Forum konnte ich schon verschiedene Makros ausprobieren, die im Grund nicht schlecht sind, mir jedoch nicht genau weiterhelfen konnten.
Also:
In der Zeile steht z. B." oder "/images/people/"
Ich brauche ein Makro, dass soweit flexibel ist, dass es Zeilen durchsucht mit dem Inhalt "images". Unabhängig davon, ob ein "/" davor steht oder nicht und unabhängig davon an welcher position das Suchwort steht "images" davor oder dahinter. Mit Filtern komme ich nicht richtig weiter, mit der Ersetz-Funktion komme ich nicht weiter und würde deshalb gerne mit einem Makro arbeiten.
Ganz wichtig ist auf jeden Fall, dass sich das Makro nicht daran stört, dass vor oder hinter dem Wort ein "/" steht.
Ach ja, noch was: Ich müsste mehrere Suchbegriffe eingeben können, nach denen gesucht werden soll.
Anbei schicke ich mal die bisherigen Lösungsvorschläge:
Sub t()
Dim c As Range
Dim bereich As Range
Dim eingabe(10)
' löschzeilenwert festlegen
anzahl = InputBox("Anzahl der zu findenden löschenden Strings?")
For i = 1 To anzahl
eingabe(i) = InputBox("Was finden & löschen?")
Next i
'durchsuchen & löschen
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
Teil 2
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
Vielen Dank im voraus schon einmal
Grüsse
Markus Gerhartz