Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Userform - Optionsbuttons mit "Gedächtnis"

Userform - Optionsbuttons mit "Gedächtnis"
16.09.2005 08:04:31
Dirk
Hallo liebe VBA-Experten,
vielleicht kann mir jemand bei meinem folgenden VBA-Problem helfen:
Die Optionsbuttons sollen ihren Status sich merken können, leider weiß ich in VBA nicht weiter.
Schon mal vielen Dank für die Hilfe !
In dem Userform sind mehrere Optionsbuttons.
Wenn ich ein Optionsbutton wähle wird ein entsprechender Text in A1 abgelegt.
Frage:
Wenn ich wieder das Userform aufrufe, soll der Optionsbutton aktiv sein, der dem Eintrag in A1 entspricht, das Userform soll im Prinzip also ein "Gedächtnis" haben. Wie geht das ?
https://www.herber.de/bbs/user/26633.xls
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform - Optionsbuttons mit "Gedächtnis"
16.09.2005 08:34:09
Frederik
Hallo!
Machs so:

Private Sub CommandButton1_Click()
If Range("a1") = "text1" Then
UserForm1.OptionButton1 = True
End If
If Range("a1") = "text2" Then
UserForm1.OptionButton2 = True
End If
If Range("a1") = "text3" Then
UserForm1.OptionButton3 = True
End If
UserForm1.Show
End Sub

Gruß
F.
Anzeige
AW: Userform - Optionsbuttons mit "Gedächtnis"
16.09.2005 08:42:16
Galenzo
das hat mich auf diese Idee gebracht, die wohl besser als meine erste Antwort ist:

Private Sub UserForm_Initialize()
Select Case [A1]
Case "Text1": OptionButton1 = True
Case "Text2": OptionButton2 = True
Case "Text3": OptionButton3 = True
End Select
End Sub

Viel Erfolg!
Anzeige
AW: Userform - Optionsbuttons mit "Gedächtnis"
16.09.2005 08:39:22
Galenzo
das einfachste wäre, deine Optionsbutton "Text1", "Text2" und "Text3" zu nennen.
Dann könntest du das machen:

Private Sub UserForm_Initialize()
Controls(Range("A1")).Value = True
End Sub

Also das Control mit dem Namen, der in A1 steht, wir TRUE gesetzt
Momentan wäre dieses möglich:

Private Sub UserForm_Initialize()
Controls("Optionbutton" & Right(Range("A1"), 1)).Value = True
End Sub

Der Name des Controls wird hier aus 2 Teilen zusammengesetzt, zum einen "OptionButton" und dahinter die letzte Stelle (also die Ziffer) aus A1.
Viel Erfolg!
Anzeige
AW: Userform - Optionsbuttons mit "Gedächtnis"
16.09.2005 11:13:11
Dirk
Hallo zusammen,
vielen Dank für die Anregungen, ich habe alles ausprobiert und komme mit meinem Projekt dank euer Hilfe voran!
Tschüß
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige