Kaalbartje
Gebruiker
- Lid geworden
- 3 jan 2020
- Berichten
- 91
Hoi.
Ik heb onderstaande code geschreven. Deze werkt goed, met dank voor de code van het onderste deel van de code vanuit dit forum
Ik ben benieuwd of het handiger, sneller of anders kan.
Ik heb onderstaande code geschreven. Deze werkt goed, met dank voor de code van het onderste deel van de code vanuit dit forum
Ik ben benieuwd of het handiger, sneller of anders kan.
Code:
Sub Verbergen() ' verbergen
Rows("22:24").EntireRow.Hidden = True
Rows("27:29").EntireRow.Hidden = True
Rows("32:34").EntireRow.Hidden = True
Rows("37:39").EntireRow.Hidden = True
Rows("42:44").EntireRow.Hidden = True
Rows("47:49").EntireRow.Hidden = True
Rows("52:54").EntireRow.Hidden = True
Rows("57:59").EntireRow.Hidden = True
Rows("62:64").EntireRow.Hidden = True
Rows("67:69").EntireRow.Hidden = True
Rows("72:74").EntireRow.Hidden = True
Rows("77:79").EntireRow.Hidden = True
Rows("82:84").EntireRow.Hidden = True
Rows("87:89").EntireRow.Hidden = True
Rows("92:94").EntireRow.Hidden = True
End Sub
Sub Zichtbaarmaken() ' zichtbaar
Rows("22:24").EntireRow.Hidden = False
Rows("27:29").EntireRow.Hidden = False
Rows("32:34").EntireRow.Hidden = False
Rows("37:39").EntireRow.Hidden = False
Rows("42:44").EntireRow.Hidden = False
Rows("47:49").EntireRow.Hidden = False
Rows("52:54").EntireRow.Hidden = False
Rows("57:59").EntireRow.Hidden = False
Rows("62:64").EntireRow.Hidden = False
Rows("67:69").EntireRow.Hidden = False
Rows("72:74").EntireRow.Hidden = False
Rows("77:79").EntireRow.Hidden = False
Rows("82:84").EntireRow.Hidden = False
Rows("87:89").EntireRow.Hidden = False
Rows("92:94").EntireRow.Hidden = False
End Sub
Sub AanUit_Rijen()
With ActiveSheet.Shapes("Rijen").TextFrame.Characters
If .Text = "Rijen verbergen" Then
.Text = "Rijen verborgen"
.Font.ColorIndex = 44
.Font.Bold = True
Call Verbergen
Else
.Text = "Rijen verbergen"
.Font.ColorIndex = 2
.Font.Bold = False
Call Zichtbaarmaken
End If
End With
End Sub