Zellen ausblenden

[Arni49]

Hallo
Kann mir jemand helfen ?
wie kann ich diesen Code so ändern das er in all meinen 12 Tabellen funktioniert, bisher muss ich ihn in jeder Tabelle starten.


Sub SonntageAusblenden()
Dim Spalte As Integer
Dim SpalteEnd As Integer
With Tabelle1
SpalteEnd = .UsedRange.Columns.Count
For Spalte = 1 To SpalteEnd
If .Cells(1, Spalte).Value = "1" Then
.Columns(Spalte).Hidden = True
Else
.Columns(Spalte).Hidden = False
End If
Next Spalte
End With
End Sub

[Kuwer]

Hallo Arni,

Sub SonntageAusblenden()

 Dim i As Integer

 Dim Spalte As Integer

 Dim SpalteEnd As Integer

 For i = 1 To 12

   With Worksheets(i)

     SpalteEnd = .UsedRange.Columns.Count

     For Spalte = 1 To SpalteEnd

       .Columns(Spalte).Hidden = .Cells(1, Spalte).Value = 1

     Next Spalte

   End With

 Next i

End Sub

Gruß Uwe

[Arni49]

Hallo Uwe,

beim Versuch die Sonntage  auszublenden in allen Tabellen kommt ein Fehler:


Fehler beim Kompilieren
Syntaxfehler

[Kuwer]

Hallo Arni,

Fehler beim Kompilieren
Syntaxfehler

bei mir geht das ohne Probleme.
Eventuell versuchst Du mal, mit einem anderen Webbrowser das Makro herauszukopieren oder tippst es direkt ab.

Gruß Uwe

[Arni49]

Hallo Uwe,

kaum zu glauben !! aber das war es, Top danke.

Kannst Du mir eventuell bei meinem andern  Problem im Forum " Suchen in allen Bereichen " helfen ?

[Arni49]

Hallo,

wie kann ich noch ein 2. Kriterium mit rein bringen ??

nicht nur bei " 1" sondern auch bei " 78 " soll ausgeblendet werden.



Sub SonntageAusblenden()
 Dim i As Integer
 Dim Spalte As Integer
 Dim SpalteEnd As Integer
 For i = 1 To 12
   With Worksheets(i)
     SpalteEnd = .UsedRange.Columns.Count
     For Spalte = 1 To SpalteEnd
       .Columns(Spalte).Hidden = .Cells(1, Spalte).Value = 1
     Next Spalte
   End With
 Next i
End Sub

[Kuwer]

Hallo Arni,

Sub SonntageAusblenden()

 Dim i As Integer

 Dim Spalte As Integer

 Dim SpalteEnd As Integer

 For i = 1 To 12

   With Worksheets(i)

     SpalteEnd = .UsedRange.Columns.Count

     For Spalte = 1 To SpalteEnd

       With .Cells(1, Spalte)

         .EntireColumn.Hidden = (.Value = 1 Or .Value = 78)

       End With

     Next Spalte

   End With

 Next i

End Sub

Gruß Uwe

[Arni49]

Danke funzt :28: