Hallo Excelprofis,
folgender Code lief bis MSUpdate letzten Dienstag wunderbar:
Seither habe ich folgendes Problem; bei I=3 erhalte ich Fehlermeldung 32809
Anwendungs- oder Objektdefinierter Fehler in der Zeile "If Worksheets(I).Name <> "Zugangsdaten" Then"
Anmerkung: Fehler tritt nur auf bei Win7Enterprise Office2010 Pro.
Bei Win8 Win7Enterprise läuft dieser Quellcode aus derselben(!) Exceltabelle problemlos. In der Datei gibt es auch versteckte Sheets.
Die on error Anweisung fängt den Fehler nicht ab.
Danke für Hilfe!
For I = 1 To Worksheets.Count
On Error GoTo weiter1
If Worksheets(I).Name <> "Zugangsdaten" Then
With Worksheets(I)
.Visible = True
End With
Worksheets(I).Activate
With ActiveWindow
.DisplayWorkbookTabs = True 'False
.DisplayGridlines = True 'False
End With
End If
weiter1:
Next I
On Error GoTo 0