Button nach Click dauerhaft ausblenden

[Käpt'n Blaubär]

Hallo Bernie,

Dein Vorschlag heb ich so ähnlich bereits umgesetzt in dem ich einen "1" in einer Tabelle eintragen lasse und diese beim nächsten Start der UserForm, wo sich der Button befindet, abfrage. Das klappt soweit.

das hört sich doch gut an, oder?
Melde Dich bitte nochmal, wenn Du Dich für was entschieden hast.

[Kuwer]

Hallo Bernie,

hier noch ein Vorschlag.
In einem allgemeinen VBA-Modul steht das Makro für das Ausblenden des Buttons.

' **************************************************************
'  Modul:  UserForm1  Typ = Userform
' **************************************************************


Option Explicit

Private Sub CommandButton1_Click()
 CommandButton1.Visible = False
End Sub

Private Sub UserForm_Terminate()
 If CommandButton1.Visible = False Then Application.OnTime Now, "CmdVerstecken"
End Sub

' **************************************************************
'  Modul:  m_Kuwer  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub CmdVerstecken()
 'Name von UserForm und Button entsprechend ändern
 Application.VBE.ActiveVBProject.VBComponents("UserForm1").Designer.Controls("CommandButton1").Visible = False
End Sub

Sub CmdNichtVerstecken()
 'Name von UserForm und Button entsprechend ändern
 Application.VBE.ActiveVBProject.VBComponents("UserForm1").Designer.Controls("CommandButton1").Visible = True
End Sub

Sub StarteUserform()
 UserForm1.Show
End Sub

Code eingefügt mit: Excel Code Jeanie


  Button nach Click dauerhaft ausblenden.xls (Größe: 40,5 KB / Downloads: 17)

Gruß Uwe

[Käpt'n Blaubär]

Hallo,

ach was bin ich blöde. Ich hatte ja gelesen, daß sich der Button in einem UserForm
befindet, aber so richtig wahrgenommen habe ich das so im Nachhinein betrachtet
nicht wirklich. Sonst hätte mein Vorschlag sicher anders ausgesehen.

[schauan]

Hallo Uwe,

wie ich schon weiter oben schrieb, ist dafür der Zugriff auf das VBA-Projekt notwendig.
Übrigens läuft das bei mir unter 2016 trotzdem nicht so richtig. Sobald der Button ausgeblendet ist, kommt beim Schließen des UF im Makro CmdVerstecken ein Laufzeitfehler 91. Der Designer ist Nothing und dadurch kommt der Fehler.

[Bernie]

@Peter,

ach was bin ich blöde.

Da ich schon sehr viel, auch außerhalb meiner Beiträge, von Dir lernen durfte, kann und werde ich deiner Aussage nicht zustimmen!!!
@Uwe und André
habe beides ausprobiert und bei mir funktioniert es.
Es kam aber bei mir die Frage auf, wie kann ich das kontrollieren und gewährleisten, dass keine doppelten Abfragen kommen? Und da ich den Weg über eine Tabelle gegangen bin, in der beim allerersten Klick auf den Button in dieser Tabelle in Zelle B20 eine "1" eingetragen wird. Die wird wiederum bei Workbook Open abgefragt. Da ich diese Tabelle gemailt bekomme, habe ich die Möglichkeit zu kontrollieren ob Zelle B20 einen "1" enthält. Ein anderer Weg fällt mir mit meinen doch noch sehr bescheidenen VBA Kenntnissen noch nicht ein.
Danke nochmal sehr für Eure Hilfe :100: