Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Laufzeitfehler 424 Objekt erfoderlich

Laufzeitfehler 424 Objekt erfoderlich
17.02.2015 12:16:34
Roger
Hallo zusammen
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
Danke für eure Hilfe
Gruss
Roger

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 424 Objekt erfoderlich
17.02.2015 12:21:10
Rudi
Hallo,
Es sollte dann das active Sheet nehmen wenn ich ihn ausführe.
dann eben
With ActiveSheet
Gruß
Rudi

Super Danke schön
17.02.2015 12:23:53
Roger
Hallo Rudi
Danke sehr das hat geholfen. So klappt es einwandfrei.
Gruss
Roger
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige