AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 11:42:47
Wolli
Hallo Andreas, dass der Fehler bei Dir nicht kam, liegt daran, dass Dein Code aus der Zelle die Buchstaben "gs" herauslöscht. Mein Code löscht den gesamten Inhalt der Zelle.
Du müsstest jetzt bitte definieren, was passieren soll, wenn
- die Zelle mit "gs" geschützt ist
- eine oder mehrere Zellen daneben geschützt sind
- die Zellen daneben zu einem Zellverbund gehören, der aus dem zu löschenden Bereich herausragt.
Aber vielleicht ist es einfacher, die Fehlermeldung zu ignorieren und das machen zu lassen, was geht. So:
Sub Zellen_mit_Inhalt_gs_löschen()
Dim c As Range
On Error Resume Next
For Each c In ActiveSheet.UsedRange.Cells
If InStr(c.Value, "gs") 0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
On Error GoTo 0
End Sub
bzw.
Sub Zellen_mit_Inhalt_gs_löschen2()
Dim c As Range
On Error Resume Next
For Each c In Intersect(ActiveSheet.UsedRange.Cells, Columns(6))
If InStr(LCase(c.Value), "gs") 0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
On Error GoTo 0
End Sub
Gruß, Wolli