ich würde gerne per Makro folgendes machen:
Makro1: Alle Zeilen die in Spalte A nicht Fr Sa oder So stehen haben - ausblenden
Makro2: Alle Zeilen wieder einblenden
https://www.herber.de/bbs/user/92056.xlsx
Gruß und Danke vorab
TOM
=Wenn(Wochentag(B3;2)>5;"WE";"Arb")
Sub Spalten_ausblenden()
Dim WoTag As Object, Tag As String
Set Tab1 = Sheets("Tabelle1")
For Each WoTag In Tab1.Range(BerSpalteA)
Tag = WoTag.Value
If Tag = "Fr" Or Tag = "Sa" Or Tag = "So" Then
WoTag.EntireRow.Hidden = True
End If
Next WoTag
Tab1 = Nothing
End Sub
Sub Spalten_einblenden()
Set Tab1 = Sheets("Tabelle1")
Tab1.Range(BerSpalteA).EntireRow.Hidden = False
Tab1 = Nothing
End Sub
Gruss Adis
Sub Spalten_ausblenden()
Dim WoTag As Object, Tag As String
Set Tab1 = Sheets("Tabelle1")
For Each WoTag In Tab1.Range(BerSpalteA)
Tag = WoTag.Value
If Tag = "Fr" Or Tag = "Sa" Or Tag = "So" Then
WoTag.EntireRow.Hidden = True
End If
Next WoTag
Tab1 = Nothing
End Sub
Sub Spalten_einblenden()
Set Tab1 = Sheets("Tabelle1")
Tab1.Range(BerSpalteA).EntireRow.Hidden = False
Tab1 = Nothing
End Sub
Gruss Adis