Office: (Office 365) Komplimentierunsfehler versionsabhängig

Hallo zusammen.

Ich hoffe man kann mir hier helfen.
Ich habe einen Code in Excel der bei einigen Rechner Läuft aber bei anderen den Komplimentierungsfehler in ausgeblendeten Modul auslöst.
Hiermit wird das USEForm aufgerufen:

Sub UFSheetAufrufen()
'Prüfen ob Userform geöffnet ist
If UfSheets.Visible = True Then
'userForm Schließen
Unload UfSheets
Else
'userForm öffnen
UfSheets.Show 0
End If
End Sub

Hier bleibt der dann stehen:

Private Sub lbSheets_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Ausgewähltes tabellenblatt Sichbar machen
Worksheets(lbSheets.List(lbSheets.ListIndex)).Visible = True
'Ausgewähltes tabellenblatt aktivieren
Worksheets(lbSheets.List(lbSheets.ListIndex)).Activate
'Alle Tabellenblätter verstecken ausser das Atibe Blatt
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> ThisWorkbook.ActiveSheet.Name Then
wks.Visible = xlSheetVeryHidden
End If
Next
'Userform schließen
Unload Me
End Sub

Habe ich die Chance den Code so umzuschreiben, dass dieser egal auf welchen Versionen läuft ?
Danke für die Hilfe.
Markus

 

Also an einem anderen Rechner kennt er die Methode wks nicht.
Kann man das anpassen ?

 

Hallo,

ich wusste nicht, dass man bei Computern auch schon auf Kompliment(ierungs)fehler achten muss - ich dachte eher an Fehler zur Kompilierzeit.

Diese Methode gibt es prinzipiell nicht. Mit wks wird an dieser Codestelle eine Worksheet-Objektinstanz bezeichnet.
Wird schlampig programmiert, können plötzlich nicht deklarierte Variablen auftauchen. Das sollte man prinzipiell vermeiden, denn was soll so ein armer Compiler an einer solchen Stelle machen. Der VBA-Compiler setzt in solchen Fällen eine Variable vom Typ Variant ein, obwohl es in diesem Falle eine Variable vom Typ Worksheet sein sollte.

Also korrekt müsste der Code für die zweite Codepassage beginnen (aber ohne den Code getestet zu haben):
Private Sub lbSheets_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim wks As Worksheet
'Ausgewähltes tabellenblatt Sichbar machen
Worksheets(lbSheets.List(lbSheets.ListIndex)).Visible = True
'...
'...usw.