AW: Button verliert seine Größe und Position
04.06.2016 16:12:27
Daniel
Beispielsweise mit diesem Code im Modul des Tabellenblatts.
Ausgelöst wird die Aktion durch einen Doppelklick auf eine Zelle in Spalte A:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
Select Case Target.Row
Case 10, 16
Target.Offset(1, 0).Resize(2).EntireRow.Hidden = Not Target.Offset(1, 0).Resize(2). _
EntireRow.Hidden
Case 12, 13, 14, 15
Target.Offset(1, 0).EntireRow.Hidden = Not Target.Offset(1, 0).EntireRow.Hidden
End Select
End If
End Sub
ein weiteres Problem was du bedenken musst ist folgendes:
wenn du die Datei speicherst und schließt, dann haben beim nächsten Öffnen die Steuerelemente wie Togglebuttons nicht den Wert und die Eigenschaften, die sie beim Schließen hatten, sondern die die in der Eigenschaftsliste hinterlegt sind.
Dh deine ausgeblendeten Buttons sind dann wieder sichtbar und überlagern ggf andere, weil die Zeilen ausgeblendet bleiben.
Gruß Daniel