Office: Mehrere verschiedene Ausdrücke in ganzer Spalte suchen und löschen

Hallo,
ich möchte in den Zellen einer Spalte verschiedene Ausdrücke suchen und diese löschen.
Ich kann das zwar mit folgender Funktion, die ich mehrfach hintereinander ausführe machen,
Columns(1).Cells.Replace What:="Act", Replacement:="", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
aber geht es auch einfacher, z.B. mit einem Array?

Vielen Dank
Alexander

 

Hi Alexander,

das könnte man mit VBA mithilfe einer ListBox in einem UserForm realisieren. In die ListBox werden beim Start alle Zellinhalte der betreffenden Spalte nur einmalig eingelesen. Dann kann man gleichzeitig mehrere markieren und anschließend die betreffenden Zellen leeren.

Da du nicht geschrieben hast um welche Spalte es sich handelt bin ich mal von Spalte B ausgegangen - das musst du in deiner Originalmappe dann im Code anpassen. Außerdem habe ich den Code erst einmal so geschrieben, dass die betreffenden Zellen nicht geleert sondern grün markiert werden, sodass du die Richtigkeit dessen überprüfen kannst was der Code macht. Wenn alles deinen Wünschen entspricht musst du diese Zeile im Code löschen und stattdessen die andere Codezeile aktivieren, die die Zellinhalte dann tatsächlich löscht (siehe entsprechende Kommentare im Code).

---

 

Hallo Karin,
danke Dir für den Code. Passt noch nicht so ganz, da habe ich mich unklar ausgedrückt. Es soll nicht die ganze Zelle geleert werden sondern lediglich der Suchausdruck. vIch habe mal eine Beispieldatei in der in Spalte A nach Delta gesucht werden soll. Dann soll dieser Ausdruck entfernt werden, nich die komplette Zelle geleert werden. Weiter soll nach dem Ausdruck Loe gesucht werden und so weiter. Die Tabelle enthält ca. 1500 Zeilen. Und es soll nach verschiedenen Ausdrücken gesucht werden, diese können sich von Version zu Version ändern.

 

Hi Alexander,

und wo bzw. wie wird vorgegeben, nach welchen Ausdrücken gesucht, bzw. welche gelöscht werden sollen? Wenn sie sich von Fall zu Fall ändern macht es wenig Sinn, sie im Code fest vorzugeben, also solltest du sie ins Tabellenblatt schreiben - z.B. in Spalte J:

Code:

Sub TeileLoeschen()
    Dim varDaten
    Dim lngZeile As Long
    Dim intSuche As Integer
    Dim varIst As Variant
    ' zu vergleichende/zu löschende Begriffe stehen in Spalte J
    varDaten = Range("J1", Range("J1").End(xlDown))
    For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For intSuche = 1 To UBound(varDaten, 1)
            If InStr(Cells(lngZeile, 1), varDaten(intSuche, 1)) > 0 Then
                Cells(lngZeile, 1) = Application.Substitute(Cells(lngZeile, 1), varDaten(intSuche, 1), "")
            End If
        Next intSuche
    Next lngZeile
End Sub

---

 

Danke Dir, probiere ich morgen

 

Wowww , funktioniert bestens. Danke dir.

 

Hallo Karin,

Code:

Sub TeileLoeschen()
    Dim varDaten
    Dim lngZeile As Long
    Dim intSuche As Integer
    Dim varIst As Variant
    ' zu vergleichende/zu löschende Begriffe stehen in Spalte J
    varDaten = Range("J1", Range("J1").End(xlDown))
    For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For intSuche = 1 To UBound(varDaten, 1)
            If InStr(Cells(lngZeile, 1), varDaten(intSuche, 1)) > 0 Then
                Cells(lngZeile, 1) = Application.Substitute(Cells(lngZeile, 1), varDaten(intSuche, 1), "")
            End If
        Next intSuche
    Next lngZeile
End Sub

wie lässt sich der Code so anpassen, dass die gesuchten Texte, die in Spalte J angegeben sind, nicht ersetzt sondern in Spalte E eingetragen werden?

Vielen Dank für Deine Hilfe.
Alexander

 

Hi Alexander,

wenn ich dich richtig verstanden habe dann ersetze die Zeile

Code:

                Cells(lngZeile, 1) = Application.Substitute(Cells(lngZeile, 1), varDaten(intSuche, 1), "")

durch diese

Code:

                Cells(lngZeile, 5) = varDaten(intSuche, 1)

---

 

Mache ich, danke und schönes Wochenende

 

Kann man die zu suchenden Begriffeauch auf einem anderen Tabellenblatt angeben? Z.B. in Tabelle 1 Spalte A?

 

Selbstverständlich - dann musst du an der betreffenden Stelle im Code vor die Zelladresse noch den Bezug zum betreffenden Worksheet setzen. Nach diesem Prinzip: Worksheets("Tabelle1").

---

 

Hallo Karin,
ich benötige noch einmal Deine Hilfe. Ich habe den Code wie folgt angepasst:

Sub Naming()

Dim varDaten
Dim lngZeile As Long
Dim intSuche As Integer
Dim varIst As Variant

' zu vergleichende Begriffe stehen in Tabelle2 Spalte A
varDaten = Worksheets("Tabelle2").Range("A1", Range("A1").End(xlDown))

For lngZeile = 1 To Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For intSuche = 1 To UBound(varDaten, 1)
If InStr(Worksheets("Tabelle1").Cells(lngZeile, 1), varDaten(intSuche, 1)) > 0 Then
Worksheets("Tabelle1").Cells(lngZeile, 5) = varDaten(intSuche, 1)
End If
Next intSuche
Next lngZeile

End Sub
Wenn ich den code von Tabelle2 aus starte läuft er problemlos durch und tut was erwartet ist. Starte ich ihn jedoch von Tabelle1 aus, aus der eigentlichen Daten Tabelle, erhalte ich den "Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler"

Was ist da falsch?
Viele Grüße
Alexander

 

Hallo Alexander,

welche Programmzeile wird markiert, wenn der Fehler auftritt?

 

Hallo Alexander,

VBA ist manchmal etwas zickig bei der Adressierung. Versuche es mal so:
varDaten = Worksheets("Tabelle2").Range("A1", Worksheets("Tabelle2").Range("A1").End(xlDown))

 

Funktioniert, prima Danke und schönes WE.