Ausgeblendet Arbeitsblatt nicht überprüfen
20.08.2004 12:30:52
Melvin
ich habe folgendes Problem und zwar:
Wir haben eine Arbeitsmappe mit mehreren Arbeitsblätter, ich möchte gerne das beim aufrufen, der Arbeitsblatt für den aktuelle Monat angezeigt wird. ich habe 'was erstellt aber sobald er ein "Ausgeblendeten Arbeitsblatt" findet, bliebt er hängen!! hat irgend jemand ein Idee?
Die Arbeitsblättern heißen: Januar 04 / Februar 04 / März 04......usw..
Sub SheetMonat()
For x = 1 To Worksheets.Count
Worksheets(x).Select
AcSheetName = CStr(Application.ActiveSheet.Name)
WhatMonth = MonthName(Month(Date))
If Year(Date) = "2004" Then
WhatYear = "04"
End If
SheetName = WhatMonth & " " & WhatYear
If AcSheetName = SheetName Then
GoTo FM
Else
End If
Next x
FM:
End Sub
Danke im Voraus,
Melvin
Anzeige