Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
von Zelle in OptionButton
24.07.2005 20:14:05
Zelle
Hallo,
wenn ich von einer UF aus drei Optionsbuttons etwas in eine Tabelle speichern möchte mache ich das so:
cells(2,5).Value = Switch(OptionButton1, "groß", OptionButton2, "mittel", OptionButton3, "klein")
Wie mache ich das aber, wenn ich diese Daten wieder einlesen möchte. Also das ganze jetzt rückwärts: wenn groß in der zelle steht soll die erste, bei mittel die zweite und bei klein soll die dritte OptionButton aktiviert sein.
Hat jemand nen heißen Tip?
Vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: von Zelle in OptionButton
24.07.2005 20:36:53
Zelle
Hallo Claudia,
nicht so elegant, funktioniert aber auch:

Dim wert As String
wert = Cells(2, 5).Value
Select Case wert
Case "groß"
OptionButton1.Value = True
Case "mittel"
OptionButton2.Value = True
Case "klein"
OptionButton3.Value = True
End Select

Gruß Matthias
AW: von Zelle in OptionButton
24.07.2005 20:43:49
Zelle
Hallo
also eine solche "Vergewaltigung" der Switch-Funktion habe ich auch noch nicht gesehen :-)
Das muss ich mir merken :-)

Private Sub CommandButton2_Click()
Dim i As Integer
Dim resArr()
resArr = Array("Gross", "Mittel", "Klein")
For i = 1 To 3
If UCase(Cells(1, 1)) = UCase(resArr(i)) Then
Me.Controls("OptionButton" & i) = True
Else
Me.Controls("OptionButton" & i) = False
End If
Next i
End Sub

Damit werden zwischenzeitliche Veränderungen an den Buttons gleich wieder korrigiert :-9
Gruss Rainer
Anzeige
Was würd ich bloß machen wenn die Jungs nicht wäre
25.07.2005 11:44:04
Claudia

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige