Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Button nach Click dauerhaft ausblenden
#11
Hallo Bernie,

Zitat: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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#12
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


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

Gruß Uwe
Antworten Top
#13
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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#14
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#15
@Peter,

Zitat: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:
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2016 Pro  32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste