Hallo Forum,
jetzt habe ich doch mal eine knifflige Sache im Bereich Makros.
Ein Kollege von mir hat tolle Makros geschrieben, als er noch Office 2000 hatte. Seit gestern hat er Office XP und schon funktioniert das Makro nicht mehr. Ich denke, das hat was mit XP zu tun, denn eine alte Version der Datei funktioniert bei mir und mein Rechner wurde noch nicht umgestellt. Unten stelle ich mal den Makro Text ein, der bei XP Probleme macht. Vielleicht weiß ja jemand Rat.
Dim wbNeu As Workbook, sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
sh.Visible = xlSheetVisible
und dies ist die Stelle, die beim Debuggen gelb ist.
Next sh
Application.ScreenUpdating = True
With Worksheets("Settings").Cells(15, 5)
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Name Like "*" & .Value Then
sh.Visible = xlSheetVisible
Set wbNeu = ActiveWorkbook
Else
sh.Visible = xlSheetHidden
End If
Next sh
End With
Liebe Grüße von Nicoletroler