VBA Code funktioniert in neuer Excel-Verion nicht

Hallo zusammen,
generell programmiere ich mit Excel VBA 2010. Nun habe ich einen Code auf einem Rechner mit Excel 2016 ausprobiert und musste leider feststellen, dass der Code nicht mehr durchläuft.
Andere Beiträge weisen auf falsche Verweise der Biliotheken hin.
In Excel 2010 sind die folgenden Bibliotheken verwiesen:

Visual Basic For Appilcations

Microsoft Excel 14.0 Object Libary

OLE Automation

Microsoft Office 14.0 Object Libary

Microfosft Forms 2.0 Object Libary

In Excel 2016 sind die folgenden Bibliotheken verwiesen:

Visual Basic For Appilcations

Microsoft Excel 16.0 Object Libary

OLE Automation

Microsoft Office 16.0 Object Libary

Microfosft Forms 2.0 Object Libary

Der Unterschied liegt demnach in der Microsoft Excel und Office Bibilothek. Wie bzw. in welche Richtung muss ich nun die Bibliotheken anpassen? Muss ich eine Anpassung dann an jedem Rechner mit Excel 2016 vornehmen, oder kann ich das direkt in der Datei verweisen?
Nachfolgend noch ein Beispiel an welcher Zeile der Code in Excel 2016 abstürzt:

Worksheets(Overview).Range(Cells(Row, 8), Cells(LastRow, 10)).ClearContents

Diese Zeile funktioniert in Excel 2010 wunderbar.
Vielen Dank im voraus und viele Grüße
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
du schreibst: dass der Code abstürzt.
unter "abstürzten" versteht man im allgemeinen, dass die Bearbeitung ohne weiteren Kommentar abbricht und zumindest Excel neu gestartet werden muss (im WorstCase sogar das Betriebssytem)
Sollte jedoch nur eine Meldung erscheinen, dass ein Fehler aufgetreten ist, so spricht man von einem "Fehlerabbruch" und du solltest uns zusätlich noch mitteilen, wie der Fehlertext und die Fehlernummer aus der Mitteilung lauten.
grundsätzlich enthält die von dir gezeigte Codezeile nur Elemente, die in 2010 und 2016 unverändert sind. Dh dein Code sollte in beiden Excelversionen gleich gut funktionieren oder eben auch nicht.
der Grundsatzfehler in diesem Code wurde ja schon von ONUR angesprochen, dh das Worksheet(Overview) muss vor den beiden Cells stehen und nicht vor der Range.
(nur wenn der Code in einem Tabellenblattmodul steht, muss die Tabellenblattangabe nicht nur vor den beiden Cells, sondern auch vor der Range stehen)
der von dir gezeigte Code funktioniert nur dann, wenn das Worksheet(Overview) zufälligerweise das aktive Sheet ist.
Das gilt aber in Excel 2010 wie in Excel 2016.
Weiterhin ist der Variablenname "Row" kritisch zu bewerten, da du hier ein VBA-Schlüsselwort als Variablenname verwendest.
Das kann funktionieren, es kann aber auch daneben gehen. (je nachdem in welcher Situation man sich befindet)
Wenn du also das mit dem Worksheet korrigiert hast und der Fehler immer noch auftritt, dann solltst du mal einen Haltepunkt an dieser Stelle setzen und die Variablenwerte überprüfen (Overview, Row, LastRow). Overview muss einen gültigen Tabellenblattnamen enthalten, Row und LastRow müssen gültige Zeilennummern sein (größer 0)
das einzige, was bei einem Versionswechsel gerne mal passieren kann, ist das eine Verweise "korrupt" sind (erkennst du am Text in der Verweisliste), dann funktionieren normale VBA-Funktionen nicht mehr.
hier reicht es dann aus, bei solchen Verweisen einfach den Haken zu entfernen.
Gruß Daniel

Option Explicit Sub Auswerten() Dim Overview As String Dim Calculator As String Dim RowTMP As Integer Dim RowStart As Integer Dim LastRow As Integer ' Namen der Tabellenblätter setzen Overview = ActiveSheet.Name If Range("H1").Value = "ENTRY" Then Calculator = "CalculatorEntry" ElseIf Range("H1").Value = "EXIT" Then Calculator = "CalculatorExit" End If 'Bildschirmupdate ausschalten Application.ScreenUpdating = False 'Erste Zeile der Auswertung setzen RowTMP = 22 RowStart = RowTMP ' Spalte H, I, J leeren LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row With Worksheets(Overview) .Range(.Cells(RowTMP, 8), .Cells(LastRow, 10)).ClearContents End With 'Auswerteschleife While Worksheets(Overview).Cells(RowTMP, 1) "" RowTMP = RowTMP + 1 Wend Application.CutCopyMode = False 'Bildschirmupdate einschalten Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

VBA Code funktioniert in neuer Excel-Verion nicht

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code funktioniert in neuer Excel-Verion nicht

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread