vba Code kompatibel 2010

Hallo, ich habe folgenden Code mit Excel 365 verfasst. Bei mir läuft alles einwandfrei. Ich habe ihn ebenfalls mit Excel 2007 ausgetestet. Er läuft dort ebenfalls ohne Probleme. Jetzt sagt mein Kollege, dass er mit Excel 2010 zwar die dort angegebene Datei ganz normal öffnet, allerdings stoppt er bei der folgenden Zeile und zeigt den Laufzeitfehler 9 an (Index außerhalb des gültigen Bereiches) :
zeilenende = Workbooks("Art").Sheets("Art").Cells(Rows.Count, 2).End(xlUp).Row
Da ja die Datei bei mir ohne Probleme läuft auf zwei unterschiedlichen Versionen, kann es ja nichts mit der Bezeichnung zu tun haben (die Bezeichnung des Tabellenblattes ist Art und stimmt dabei mit dem Code überein). Gibt es bei diesem Code irgendetwas was vielleicht mit Excel 2010 nicht kompatibel ist ? Oder irgendwelche andere Programmeinstellungen oder sonstiges, welche zu beachten sind und weswegen es nicht läuft?
Vielen Dank und viele Grüße Nic365

Sub Art()
Dim zeilenende As Integer
'öffnen Datei im entsprechenden Laufwerk
Workbooks.Open "E:\Art.xlsx"
'Festlegen von letzter Zeile in Spalte B
zeilenende = Workbooks("Art").Sheets("Art").Cells(Rows.Count, 2).End(xlUp).Row
'löschen von bereits bestehendem Imput
Workbooks("Übersicht").Sheets("Art").Range("C5:C300").ClearContents
Workbooks("Übersicht").Sheets("Art").Range("E5:E300").ClearContents
'Import Inhalt von Art-Datei und Übertrag in Übersicht
Workbooks("Art").Sheets("Art").Range("B3:B" & zeilenende).Copy
Workbooks("Übersicht").Sheets("Art").Range("C5").PasteSpecial
'Import Inhalt von Art-Datei und Übertrag in Übersicht
Workbooks("Art").Sheets("Art").Range("C3:C" & zeilenende).Copy
Workbooks("Übersicht").Sheets("Art").Range("E5").PasteSpecial
'Anlegen eines Tabellenblattes mit Name "Hilfstabelle"
Workbooks("Art").Sheets.Add
ActiveSheet.Name = "Hilfstabelle"
'Neue Art werden aus der Übersicht kopiert und in die Hilfstabelle übertragen
Workbooks("Übersicht").Sheets("Art").Range("K5:M100").Copy
Workbooks("Art").Sheets("Hilfstabelle").Cells(1, 1).PasteSpecial Paste:=xlPasteValues,  _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'löschen von Fehlern und Leerzeilen
Workbooks("Art").Sheets("Hilfstabelle").Rows("1:1").AutoFilter
ActiveSheet.Range("$A$1:$C$82").AutoFilter Field:=1, Criteria1:="=#NV", _
Operator:=xlOr, Criteria2:="="
Cells.Delete Shift:=xlUp
Range("A1").Select
'abschließende Meldung, dass Daten fertig zur Weiterbearbeitung sind
MsgBox "Die Daten sind verarbeitet."
Workbooks("Übersicht").Sheets("Cockpit").Activate
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Art() Dim zeilenende As Integer, WbArt as Workbook 'öffnen Datei im entsprechenden Laufwerk set WbArt = Workbooks.Open ("E:\Art.xlsx") 'Festlegen von letzter Zeile in Spalte B zeilenende = WbArt.Sheets("Art").Cells(Rows.Count, 2).End(xlUp).Row ... usw.

dim wbArt as workbook dim wbÜb as Workbook dim wb as workbook Workbooks.Open "E:\Art.xlsx" for each wb in application.Workbooks if wb.name like "Art*" then set wbArt = wb if wb.name like "Übersicht*" then set wbÜb = wb Next

Hi
in VBA braucht der Autofilter unabängig von der Ländereinstellung immer die englischen Werte.
im Falle des Bezugsfehlers ist das "#N/A" und nicht "#NV"
Alternativ zum Autofilter kann man Zellen mit Fehlerwerten auch so ansprechen:

Columns(1).SpecialCells(xlcelltypeconstants, 16).EntireRow.Delete

mit echten Leerzellen geht das auch:

Columns(1).SpecialCells(xlcelltypeblanks).EntireRow.Delete

wobei man wissen muss, dass eine Zelle die eine Formel mit dem Ergebnis "" enthielt und deren Formel mit Copy/PasteSpecial xlpasteValues eingefügt wurde, weiterhin keine echte Leerzelle ist, sondern eine Zelle mit Text, auch wenn dieser Text der Leerstring ist.
die nächste Frage an dich wäre:
überall arbeitest du korrekt mit vollständiger Referenzierung, dh jeder Zellbereich wird sauber über die vollständige Objektkette Workbook-Worksheet-Range angesprochen.
nur hier verlässt du diese sinnvolle Methode und arbeitest plötzlich mit dem ActiveSheet.
Warum?
du arbeitest mit meherern Dateien, da ist die vollständige Referenzierung erforderlich, damit du sicher bist, dass die Aktion auch auf dem richtigen Tabellenblatt abläuft!
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread