Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For i = 1 To Len(WS2.Range("A1"))
WS1.Columns(Mid(WS2.Range("A1"), i, 1)).Hidden = True
Next i
End Sub
Sub Ausblenden2()
Dim TB1, TB2, Arr, Trenner As String, i As Integer
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
Trenner = ";"
TB1.Cells.EntireColumn.Hidden = False
Arr = Split(TB2.Cells(1, 1), Trenner)
For i = 0 To Ubound(Arr)
TB1.Columns(Arr(i)).EntireColumn.Hidden = True
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen