Erweiterung Index Schleife
14.12.2016 15:47:37
Marv
ich habe eine Index Schleife, die verschiedene Kombinationen von Inhalten in Zellen findet und die Zelle anschließend löschen soll. Leider funktioniert sie zum ersten noch nicht richtig und zum zweiten ist es etwas mühselig, dass ich i immer durch i+1, i+2 usw. nacheinander ersetzten muss, um die Kombinationen (ID und gefunden / Job und icht erfasst usw.) durchzutesten.
Wie muss ich den Code berichtigen, dass er 1. funktioniert und 2. mehrere Kombinationen in einem Durchlauf überprüft?
Sub Zellen_loeschen()
LoescheZellen Range("D:D"), "ID", "gefunden", "Job", "nicht erfasst"
End Sub
Private Sub LoescheZellen(ByVal rngSource As Range, ParamArray arrTexte())
Dim rngCell As Range
Dim i
For Each rngCell In rngSource
For i = LBound(arrTexte) To UBound(arrTexte) Step 2
If InStr(1, rngCell.Value, arrTexte(i), vbTextCompare) = 1 Then
If InStr(1, rngCell.Value, arrTexte(i), vbTextCompare) = 0 Then
rngCell.ClearContents
End If
End If
Next
Next
End Sub
Danke euch!