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.
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
[
attachment=5905]
Gruß Uwe
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.
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.
@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: