Clever-Excel-Forum

Hast Du auch den gesamten Code kopiert? Das Fenster zeigt immer nur einen Ausschnitt und man muss dann beim Kopieren darauf achten, dass man scrollen muss.

(16.07.2018, 15:24)Der Steuerfuzzi schrieb: [ -> ]Hast Du auch den gesamten Code kopiert? Das Fenster zeigt immer nur einen Ausschnitt und man muss dann beim Kopieren darauf achten, dass man scrollen muss.

Das war es, danke. Jetzt kommt aber der Fehler "Laufzeitfehler 424: Objekt erforderlich". Beim Debuggen bezieht sich das Programm auf die Zeile:
"With Sheets(2).Range(Tabelle2.Cells(1, 1), Tabelle2.Cells(Z + 1, 10))"

Sorry wenn ich so viel frage...

Sorry, mein Fehler, das müsste heißen:

Super genial, hat perfekt funktioniert, vielen Dank!

(16.07.2018, 16:00)Der Steuerfuzzi schrieb: [ -> ]

Code:

With Sheets(2).Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(Z + 1, 10))

Hmm, 3x Sheets(2) trotz With !  

Gruß Uwe

Hallo Uwe,

(17.07.2018, 07:38)Kuwer schrieb: [ -> ]Hmm, 3x Sheets(2) trotz With

Habe ich mir auch erst gedacht und wollte schon ein zweites With einfügen, habe mich aber dagegen entzschieden.
Wie hättest Du es denn gemacht?

(17.07.2018, 07:51)Der Steuerfuzzi schrieb: [ -> ]Wie hättest Du es denn gemacht?

Hallo Michael,

auch mit einer zweiten With-Amweisung. So werden aus (sogar) 5x Sheets(2) nur noch einmal:

Loop

With Sheets(2)

  .UsedRange.EntireRow.Delete

  With .Range(.Cells(1, 1), .Cells(Z + 1, 10))

    .Value = Result

    .AutoFilter

  End With

  .Activate

End With

End Sub

Gruß Uwe

Stimmt, das hat was. Wäre auf jeden Fall sauberer und schöner gewesen.