Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Ausgeblendet Arbeitsblatt nicht überprüfen

Betrifft: Ausgeblendet Arbeitsblatt nicht überprüfen von: Melvin
Geschrieben am: 20.08.2004 12:30:52

Hallo zusammen,

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
  


Betrifft: AW: Ausgeblendet Arbeitsblatt nicht überprüfen von: Beni
Geschrieben am: 20.08.2004 15:52:36

Hallo Melvin,
ein ausgeblendet Sheet kann man nicht selektieren, wenn eine Aktion stattfinden soll, blende ein, mit

If Worksheets(x).Visible = False Then Worksheets(x).Visible = True

wenn keine Aktion stattfinden soll, mache ohne select, mit.

For x = 1 To Worksheets.Count
AcSheetName = CStr(Sheets(x).Name)
With Sheets(x)
MsgBox .Cells(1, 1).Value
End With
Next x

Gruss Beni


 

Beiträge aus den Excel-Beispielen zum Thema "Ausgeblendet Arbeitsblatt nicht überprüfen"