Daten in bestimmten Zellen aus Excel auslesen

[Der Steuerfuzzi]

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.

[Druckvertrieb]

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...

[Der Steuerfuzzi]

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

Code:

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

[Druckvertrieb]

Super genial, hat perfekt funktioniert, vielen Dank!

[Kuwer]

Code:

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

Hmm, 3x Sheets(2) trotz With !  

Gruß Uwe

[Der Steuerfuzzi]

Hallo Uwe,

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?

[Kuwer]

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

[Der Steuerfuzzi]

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