AW: Variablendeklaration -funkt. nicht
29.12.2005 16:17:07
Peter
Hallo,
leider funktioniert die Deklaration bei mir nicht.
Irgendwas mache ich falsch?
Beim Aufruf des Makros "BlattAuswahlMonate" über eine
eigene Symbolleiste werden die Variablen nicht übernommen.
Sie werden nur übernommen, wenn die Variablen
im Makro "BlattAuswahlMonate" deklariert werden.
Peter
'im allgemeinen Modul
Option Explicit
Public intJahr As Integer
Public intMonat As Integer
Sub VariablenDeklaration()
intJahr = Year(Date) 'Integer
intMonat = Month(Date) 'integer
End Sub
Sub BlattAuswahlMonate()
'intJahr = Year(Date) 'Integer
'intMonat = Month(Date) 'integer
Auswahl = CommandBars("Arbeitslisten").Controls("Monat").ListIndex
AuswahlMonat = DateSerial(intJahr, intMonat + Auswahl, 0)
BlattName = Format(AuswahlMonat, "mmm YYYY")
For Each shAct In ThisWorkbook.Worksheets
If shAct.Name = BlattName Then
With shAct
.Visible = True
.Select
.Cells.EntireRow.Hidden = False
.ScrollArea = ""
.Range("G9").Select 'zum Anfang
.ScrollArea = ("A1:CU109")
'Call Waren
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End With
End If
Next shAct
End Sub