AW: Formularsteuerelemente verschwinden
07.04.2021 12:04:35
Klaus
Hallo Marc-David,
Sind ActiveX Steuerelemente, richtig? Die sind eine Seuche - ich hab mir (aus diesen Gründen wie deine) lange abgewöhnt die zu benutzen und nehme stattdessen die "normalen" Steuerelemente. Die sind zwar etwas unpraktischer, aber dafür viel pflegeleichter.
Als ich noch ActiveX Elemente hatte, habe ich mir immer mit diesem Makro auf Workbook_Open beholfen:
Option Explicit
Sub ResetMyButtons()
Call MoveButton("CommandButton1", "Tabelle1", "B2")
Call MoveButton("TextBox1", "Tabelle1", "E3")
End Sub
Sub MoveButton(sButton As String, sWks As String, sCell As String)
Dim rng As Range
Set rng = Sheets(sWks).Range(sCell)
With Sheets(sWks).OLEObjects(sButton)
.Top = rng.Top
.Left = rng.Left
.Width = rng.MergeArea.Width
.Height = rng.MergeArea.Height
End With
End Sub
Das richtet die Buttons, Textboxen usw. hübsch an einer Zelle oder einem Zellenverbund aus. Das bekannte "Breite 0 Höhe 0" Problem ist damit umgangen.
Wenn du keine ActiveX Elemente nutzt, vergiss mein Post - dann habe ich keine Idee :-)
LG,
Klaus M.