Datum

Titel

20.04.2024 16:39:00

ältere VBA Codes automatisch neu strukturieren

20.04.2024 16:36:42

Arbeitsblatt Script auslagern in Modul

20.04.2024 16:28:25

zwei Makro in einem zusammenführen?

20.04.2024 15:30:14

Warum Verweis zeigt Falsch an

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

668to672

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Userform - Optionsbuttons mit "Gedächtnis"

Forumthread: Userform - Optionsbuttons mit "Gedächtnis"
4 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform - Optionsbuttons mit "Gedächtnis"

16.09.2005 08:34:09

Frederik
AW: Userform - Optionsbuttons mit "Gedächtnis"

16.09.2005 08:42:16

Galenzo
AW: Userform - Optionsbuttons mit "Gedächtnis"

16.09.2005 08:39:22

Galenzo
AW: Userform - Optionsbuttons mit "Gedächtnis"

16.09.2005 11:13:11

Dirk

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.

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!

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!

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üß