Spalten "dynamisch" ausblenden
19.12.2019 01:45:51
Michael
mein derzeitiges Projekt ist ein Excel Kalender. Jeder Tag hat 2 Termine fest und einen Dritten optional. Die Spalten für diesen dritten Termin sind normalerweise versteckt. Dazu nutze ich folgenden Code:
Sub Week1()
Rows("14:19").Hidden = Not Rows("14:19").Hidden
End Sub
Sub Week2()
Rows("35:40").Hidden = Not Rows("35:40").Hidden
End Sub
Sub Week3()
Rows("56:61").Hidden = Not Rows("56:61").Hidden
End Sub
Sub Week4()
Rows("77:82").Hidden = Not Rows("77:82").Hidden
End Sub
Sub Week5()
Rows("98:103").Hidden = Not Rows("98:103").Hidden
End Sub
Sub HideRemarks()
Rows("12:13").EntireRow.Hidden = Not Rows("12:13").EntireRow.Hidden
Rows("24:25").EntireRow.Hidden = Not Rows("24:25").EntireRow.Hidden
Rows("33:34").EntireRow.Hidden = Not Rows("33:34").EntireRow.Hidden
Rows("45:46").EntireRow.Hidden = Not Rows("45:46").EntireRow.Hidden
Rows("54:55").EntireRow.Hidden = Not Rows("54:55").EntireRow.Hidden
Rows("64:67").EntireRow.Hidden = Not Rows("64:67").EntireRow.Hidden
Rows("75:76").EntireRow.Hidden = Not Rows("75:76").EntireRow.Hidden
Rows("87:88").EntireRow.Hidden = Not Rows("87:88").EntireRow.Hidden
Rows("96:97").EntireRow.Hidden = Not Rows("96:97").EntireRow.Hidden
Rows("108:109").EntireRow.Hidden = Not Rows("108:109").EntireRow.Hidden
Lieben Gruß,
Michael