Laufzeitfehler 424 Objekt erfoderlich
17.02.2015 12:16:34
Roger
Gestern habe ich hier einen wunderbaren Code erhalten.
Wenn ich den nun statt Tabelle1 Sheet1 eintrage in den Code dann kommt der Laufzeitfehler (Tabellenblatt wird mit Sheet1 generiert von anderem programm). Ausserdem wäre es gut wenn ich den Code nicht im selben Excelsheet haben müsste. Das heisst ich habe ein extra Excelfile mit diversen codes drinn. Es sollte dann das active Sheet nehmen wenn ich ihn ausführe.
Sub Loeschen()
Dim rngBereich As Range, rngTmp As Range
With Tabelle1 'Tabelle anpassen !!!
Set rngBereich = .Range("A1:I" & .UsedRange.Rows(.UsedRange.Rows.Count).Row)
Set rngTmp = rngBereich.EntireRow.Columns(.Columns.Count)
End With
Application.Calculation = xlCalculationManual
rngTmp.FormulaR1C1 = "=IF(AND(RC6""""),TRUE,ROW())"
If Application.WorksheetFunction.CountIf(rngTmp, True) > 0 Then
rngTmp.EntireRow.Sort Key1:=rngTmp.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
rngTmp.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
rngTmp.EntireColumn.Delete
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Gruss
Roger