1
Excel / Office 2013: Antw: Office 2013: Einzelne Gruppierungen in Excel 2013 per Makro ein-/ausklappen
« am: März 14, 2016, 09:59:03 Vormittag »
Guten Morgen,
konnten das Problem jetzt lösen, indem wir die Zeile eindeutig benennen, ab der ein-/ ausgeblendet werden muss:
Der Code schaut dann so aus (für alle die etwas ähnliches machen wollen):
Private Sub ToggleButton1_Click()
'Vorbereitung
Dim strStart As Long
Dim strEnde As Long
strStart = Worksheets("Dropdown").Cells(5, 13).Value + 1
strEnde = Worksheets("Dropdown").Cells(6, 13).Value - 2
If Me.ToggleButton1.Value = True Then
ActiveSheet.Unprotect
Rows(strStart & ":" & strEnde).EntireRow.Hidden = False
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Rows(strStart & ":" & strEnde).EntireRow.Hidden = True
ActiveSheet.Protect
End If
End Sub
'=======================================================
konnten das Problem jetzt lösen, indem wir die Zeile eindeutig benennen, ab der ein-/ ausgeblendet werden muss:
Der Code schaut dann so aus (für alle die etwas ähnliches machen wollen):
Private Sub ToggleButton1_Click()
'Vorbereitung
Dim strStart As Long
Dim strEnde As Long
strStart = Worksheets("Dropdown").Cells(5, 13).Value + 1
strEnde = Worksheets("Dropdown").Cells(6, 13).Value - 2
If Me.ToggleButton1.Value = True Then
ActiveSheet.Unprotect
Rows(strStart & ":" & strEnde).EntireRow.Hidden = False
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Rows(strStart & ":" & strEnde).EntireRow.Hidden = True
ActiveSheet.Protect
End If
End Sub
'=======================================================
Menü
An- und Abmelden
Partner / Links