ich habe einen Code zum Löschen von Zeilen, wenn in Spalte B eine "0" steht. Klappte bisher auch wunderbar. Nun habe ich aber mehr Spalten gefüllt, von denen einige Zellen verbunden sind in der Überschrift. Jetzt bekomme ich die Fehlermeldung "..verbundene Zeilen geht nicht...".
Wie sage ich unten im Code, dass erst ab Zeile 7 geschaut werden soll, ob "0" in Spalte B ist? Oder würde die Fehlermeldung immer noch kommen?
Oder kann man den Code fürs "Löschen einer Zeile nach Bedingung" auch noch schlanker machen?
strSuchwert = "0" 'Suchwert
SucheInSpalte = "2" 'Spalte B
Set oSH = Sheets("Tabelle1")
With Application
iCalc = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
With oSH.UsedRange
With .Columns(.Columns.Count).Offset(0, 1)
.Formula = "=IF(TEXT(RC" & SucheInSpalte & ",""@"")=""" & strSuchwert & """,True,ROW())"
oSH.UsedRange.Sort Key1:=.Cells(0, 1), Order1:=xlAscending, Header:=xlNo
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
On Error GoTo 0
.EntireColumn.Delete
End With
End With
.ScreenUpdating = True
.Calculation = iCalc
End With
Vielen Dank schon im voraus
Nicole