Makro zum löschen

[tobipale]

Hallo zusammen,

Ich bin gerade auf der verzweifelten Suche nach einer passenden Makro.

Und zwar stehen in der Spalte N Wörter. Immer wenn "Umbauten" oder "Umbauarbeiten" in einer Zelle (in der Spalte N) steht, soll diese geleert werden.
Die Suche soll in Zeile 1 starten und in Zeile 11538 enden.

Vielen Dank schon einmal für eure Hilfe!

Schöne Grüße

Tobi

[respecter11]

Moin

Mach doch dieses durch die eigene Funktion von Excel Ersetzen. Jetzt schreibst du dort nur noch das Word "Umbauten" oder "Umbauarbeiten" rein und bei ersetzen einfach nichts und nun sollte dies gehen.
Sonst schick bitte einmal die Liste.

/Respecter

[DeBabba]

Moin
hier nen kleines (ungetestetes) Script

Sub Versiv()
Dim I
For I = 1 To 11538
    If InStr(1, Cells(I, 14), "Umbauten", vbTextCompare) > 0 Or _
        InStr(1, Cells(I, 14), "Umbauarbeiten", vbTextCompare) > 0 Then
            Cells(I, 14).ClearContents
    End If
Next
end sub
Erklärung:
1. Schleife I (von 1 bis 11538 oder welche Zahl du auch willst)
2.) wenn ich der Zelle --> Zeile I , Spalte 14 (14=N) der Begriff "Umbauten oder Umbauarbeiten" vorkommt, da ist der Rückgabewert die Stelle an der der Begriff vorkommt. Also größer 0
vbtextcompare bedeuted dass Groß/Kleinschreibung nicht beachtet wird
3.)  dann wird das Feld geleert
Gruß
DeBabba