Lösche wenn...
30.10.2005 17:50:06
Jartul
habe ein kleines Makro, dass mir eine Tabelle von Inhalten säubert, sind diese kleiner als 0.1.
Wie muss ich das abändern, wenn ich "lösche falls kein Eintrag in spalte 2" die Bedingung sein soll?
danke
jartUl
P.S.:
Hier das makro:
Sub LoescheZeilenBedingt()
Dim i As Long, lz As Long
Dim Bereich As Range
Dim loesch As Boolean
With Sheets("S1") 'Namen anpassen oder 'ActiveSheet'
'letzte beschriebene Zeile ermitteln (maßgeblich hier Spalte A!)
lz = .Range("A65536").End(xlUp).Row
For i = lz To 1 Step -1 'evtl Überschrift berücksichigen (dann To 2)!
loesch = False
'Bereich = Zeile von Spalte 1 bis Spalte 30
'Set Bereich = .Range(.Cells(i, 1), .Cells(i, 30))
'ZÄHLENWENN(...;"<0") in VBA
If WorksheetFunction.CountIf(.Cells(i, 2), "") > 0 Then loesch = True
'Zelle Dx >0,01
'If .Cells(i, 2).Value > 0.001 Then loesch = True
'evtl weitere Bedingungen
If loesch Then .Rows(i).Delete Shift:=xlUp
Next i
End With
End Sub
Das aktive sollte der counter sein. "" versteht er aber nicht und das makro wird nicht ausgeführt mit dem hinweis "index out of range".