Office: Probleme mit Zellinhalt löschen

Guten Tag allerseits,
wie es schon in der Ãœberschrift steht habe ich ein kleines Problem und hoffe der ein oder andere kann mir da weiterhelfen.
Ich versuche mal zu beschreiben was ich vorhabe.
Ich habe eine Reihe von Messdaten, die ich analysieren(auf Abweichung überprüfen) soll. in Spalte 3 ist der Sollwert, Spalte 4 oberer Grenzwert und Spalte 5 uGW. ab Spalte 9 sind dann in 2er Schritten sprich, 9,11,13... die Messdaten festgehalten.
als Beispiel: Sollwert ist 5 die Toleranz ist 2. das bedeutet Werte zwischen 3 und 7 sind ok.
Die Messdaten sind bereits eingetragen und ich versuche mit VBA die Werte, die ok sind zu löschen und nur die Werte, die außerhalb liegen anzuzeigen.

Mein Code momentan ist
Sub löschen()
Dim i As Integer
Dim j As Integer
For i = 9 To 152 Step 2
For j = 5 To 94
If Cells(j, i).Value >= Cells(j, 3).Value + Cells(j, 4).Value Or _
Cells(j, i).Value <= Cells(j, 3).Value - Cells(j, 5).Value Then
Cells(j, i).Show
Else
Cells(j, i).ClearContents
End If
Next
Next
End Sub

Programm funktioniert soweit für alle Werte bis auf die Grenzwerte. Für das Beispiel von oben wäre es 3 und 7. Die werden angezeigt sollen aber entfernt werden (ist klar dass 3 und 7 gezeigt werden,weil ich ja >= und <= definiert hab als show. aber wenn ich das = wegmache zeigt der mir einen fehler bei
Cells(j,i).ClearContents an.
Hoffe das war einigermaßen verständlich und vielleicht hat jemand eine Idee. Der Aufbau muss auch nicht so sein, wie ich es gemacht habe. Wenn jemand was besseres hat nehme ich es gerne an.

Gruß Sun

 

Hallo!

Die .Show-Anweisung ist doch überflüssig, oder nicht?

Sub löschen()
Dim i As Integer
Dim j As Integer
For i = 9 To 152 Step 2
For j = 5 To 94
If Cells(j, i).Value <= Cells(j, 3).Value + Cells(j, 4).Value Or _
Cells(j, i).Value >= Cells(j, 3).Value - Cells(j, 5).Value Then
Cells(j, i).ClearContents
End If
Next
Next
End Sub

 

Ok 2 Sachen ist mir aufgefallen.
1. hatte ich eine Zellformatierung drin was den Programm gestört hat vermute ich.
und 2. muss das Or in And umgewandelt werden.
Und danke mit show stimmt verkürzt das ganze.


gruß sun