AW: Zelleninhalt löschen mit for Schleife
13.02.2013 14:03:18
Klaus
Hi,
nicht optimiert, aber funktional:
Option Explicit
Sub EsuchenUndZellenLoeschen()
Dim lRowFirst As Long
Dim lRowLast As Long
Dim iColCheckFirst As Integer
Dim iColCheckLast As Integer
Dim iColDeleteFirst As Integer
Dim iColDeleteLast As Integer
Dim rBereich As Range
Dim sSearchA As String
Dim sSearchB As String
lRowFirst = 51 'von hier
lRowLast = 66 'bis da
iColCheckFirst = 18 'Spalte R (=18)
iColCheckLast = 23 'Spalte W (=23)
iColDeleteFirst = 4 'Spalte D (=4)
iColDeleteLast = 23 'Spalte W (=23)
sSearchA = "E" 'suche dies
sSearchB = "e" 'oder suche das
'klein / gross hätte man auch anders lösen können, aber vielleicht suchst du ja morgen nach X _
und y ...
With ActiveSheet
For Each rBereich In .Range(.Cells(lRowFirst, iColCheckFirst), .Cells(lRowLast, _
iColCheckLast))
'rBereich.Select
If rBereich.Value = sSearchA Or rBereich.Value = sSearchB Then
.Range(.Cells(rBereich.Row, iColDeleteFirst), .Cells(rBereich.Row, iColDeleteLast)). _
ClearContents
End If
Next rBereich
End With
End Sub
Grüße,
Klaus M.vdT.