Worksheets(Array()) Schleife
28.02.2013 18:56:59
Dani
habe folgenden Code aus dem Archiv zusammengeschustert, aber leider wird das Makro nur in dem Blatt ausgeführt, was gerade aktiv ist, anstatt auf die definierten Tabellenblätter?!
Wisst Ihr warum das so ist?
Danke!
Dani
Sub SpaltenAusblendenRest()
Dim Startmonat, Folgemonat As Date
Dim wks, arrwks
arrwks = Array(Worksheets("Tabelle4"), Worksheets("Tabelle8"), Worksheets("Tabelle9"), _
Worksheets("Tabelle10"))
Folgemonat = DateSerial(Year(Date), Month(Date), 1)
Startmonat = DateSerial(Year(Date), Month(Date) - 14, 1)
SpalteE = Application.Match(CLng(Folgemonat), Range("A4:BT4"), 0)
SpalteA = Application.Match(CLng(Startmonat), Range("A4:BT4"), 0)
For Each wks In arrwks
If IsError(SpalteE) Then
MsgBox "Datum-Spalte nicht vorhanden"
Else
Range(Cells(4, SpalteE), Cells(1, 72)).EntireColumn.Hidden = True
End If
If IsError(SpalteA) Then
MsgBox "Datum-Spalte nicht vorhanden"
Else
Range(Cells(1, 2), Cells(4, SpalteA)).EntireColumn.Hidden = True
End If
Next wks
End Sub