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
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
Hallo Uwe,
beim Versuch die Sonntage auszublenden in allen Tabellen kommt ein Fehler:
Fehler beim Kompilieren
Syntaxfehler
Hallo Arni,
(24.12.2016, 13:04)Arni49 schrieb: [ -> ]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
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 ?
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
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