Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm anzeigen

UserForm anzeigen
16.01.2003 23:29:00
Lutz
Schönen Abend auch...

ich hoffe, Ihr könnt mir helfen. Ich rufe bei Workbook Open eine UserForm auf, möchte dem Nutzer aber die Möglichkeit geben, über Optionsbutton o.ä. selbst zu entscheiden, ob er den Dialog beim nächsten Start wieder sehen möchte.
Habe schon mit Checkbox und OptionButton rumprobiert, funzt aber irgendwie nicht....

Gruß Lutz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: UserForm anzeigen
16.01.2003 23:43:28
Mathias Sohn
Speicher einfach den 'Schalter' in der Registry ab.

Sub test()
' wenn Option vom Anwender ausgeschaltet wird
SaveSetting "meineAnwendung", "Options", "ShowSplah", False
End Sub


Sub AnzeigeAbfragen()
bolSollAngezeigtWerden = GetSetting(appname:="meineAnwendung", section:="Options", _
key:="ShowSplash", Default:=True)
If bolSollAngezeigtWerden Then
' frmSplash.show
End If

End Sub

Re: UserForm anzeigen
16.01.2003 23:46:44
Philipp
Hallo

Ich mache das so:

Checkbock beim click in eine Zelle schreiben Zelle schreiben

Private Sub CheckBox1_Click()
Static x As Boolean
Sheets(3).Cells(1, 1) = CheckBox1.Value
End Sub

dann noch initalize
Private Sub UserForm_Initialize()
CheckBox1.Value = Sheets(3).Cells(1, 1)
End Sub

Private Sub Workbook_Open()

If Sheets(3).Cells(1, 1) = False Then
UserForm1.Show
End If

End Sub

Bitteschön

Schönen Abend noch..

Gruss Phil

Anzeige
Re: UserForm anzeigen
17.01.2003 00:07:00
Lutz
Vielen Dank!

Gruß Lutz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige