Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
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
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionbuttons abhängig von Zellenwert

Optionbuttons abhängig von Zellenwert
07.06.2020 10:40:19
Zellenwert
Morgen zusammen,
in meinem UserForm habe ich OptionButtons und je nach Wahl wird ein Text in eine Zelle geschrieben.
If Worksheets("Test").Cells(loLetzte, 6).Value = IIf(OptionButton3 = True, "Low", IIf(OptionButton4 = True, "Medium", IIf(OptionButton5 = True, "High", "")))
Wie muss ich denn den Code gestalten, um den Zelleninhalt abzurufen, um dann den jeweiligen Optionbutton zu aktivieren?
Bei meinen Checkboxen hat es so funktioniert, aber das geht nicht bei den OptionButtons und schon gar nicht wenn es mehrere mögliche Ereignisse gibt. Kann mir da bitte jemand sagen wie das geht. Und ich hätte noch eine Frage. Stimmt der Code überhaupt für meine Checkboxen? Er funktioniert, aber ich hoffe dass das kein Zufall ist.
'in Zelle schreiben
Worksheets("Test").Cells(ZeileEdit, 29) = IIf(CheckBox1 = True, "x", "")
'aus Zelle lesen
If Worksheets("Test").Cells(ZeileEdit, 29) = "x" Then CheckBox1.Value True

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optionbuttons abhängig von Zellenwert
07.06.2020 11:06:59
Zellenwert
If Worksheets("Test"). steht in deinem code wirklich vorne ein "If"?
UserForm1.OptionButton3.Value = True 'damit aktivierst du den Optionbutton
alle anderen werden dann false, wenn sie zu einer Gruppe gehören. das ist anders als bei checkboxen, die ja für sich allein arbeiten.
AW: Optionbuttons abhängig von Zellenwert
07.06.2020 11:16:48
Zellenwert
Oh tut mir leid das habe ich falsch wiedergeben. So sieht es aus wenn ich den Optionbutton Status in die Zelle schreibe.
Worksheets("Test").Cells(loLetzte, 6).Value = IIf(OptionButton3 = True, "Low", IIf(OptionButton4 = True, "Medium", IIf(OptionButton5 = True, "High", "")))
Ich weiß aber jetzt nicht wie ich den Status in die andere Richtung wieder gebe. Es kann ja sein das die Zelle leer ist, Low, Medium oder High drin steht. Das mit dem Checkboxen habe ich verstanden also was du meinst.
Anzeige
AW: Optionbuttons abhängig von Zellenwert
07.06.2020 11:21:13
Zellenwert
Hallo,
so: 
Private Sub UserForm_Initialize()
Dim loLetzte As Long
With Worksheets("Test")
loLetzte = .Cells(.Rows.Count, 6).End(xlUp).Row
Select Case .Cells(loLetzte, 6).Value
Case "Low": Me.OptionButton1 = True
Case "Medium": Me.OptionButton2 = True
Case "High": Me.OptionButton3 = True
End Select
End With
End Sub
Gruß Werner
Danke Ralf und Werner
07.06.2020 11:55:44
MarC
Danke Werner so funktioniert es. Kann mir bitte trotzdem jemand erklären wieso die Idee von mir so falsch war? Also ich habe eingesehen das nur einer der drei Buttons aktiv sein kann das war doof von mir. Aber wieso funktioniert es dann nicht so?
If Worksheets("Test").Cells(loLetzte, 6) = "Low" Then OptionButton5.Value True
If Worksheets("Test").Cells(loLetzte, 6) = "Medium" Then OptionButton6.Value True
If Worksheets("Test").Cells(loLetzte, 6) = "High" Then OptionButton7.Value True
Ich habe es auch mit ElseIf versucht aber das ging auch nicht^^
Stimmt denn wenigstens meine CheckBox Prozedur oder ist das nur ein Zufall?

'in Zelle schreiben
Worksheets("Test").Cells(ZeileEdit, 29) = IIf(CheckBox1 = True, "x", "")
'aus Zelle lesen
If Worksheets("Test").Cells(ZeileEdit, 29) = "x" Then CheckBox1.Value True

Anzeige
AW: Danke Ralf und Werner
07.06.2020 11:59:55
ralf_b
OptionButton7.Value True 'du läßt gerne das = weg
Me.OptionButton3 = True da fällt mir nur das auf
AW: Danke Ralf und Werner
07.06.2020 12:03:30
Daniel
Naja weil die Zuweisung eines Wertes (True) ann eine Eigenschaft (.Value) das Gleichheitszeichen erfordert, welches du immer weglässt.
Vergleiche auch mal deinen Code mit dem Code von Werner..
Du:
OptionButton5.Value True
Richtig ist:
OptionButton5.Value = True
Gruß Daniel
Nochmals danke
07.06.2020 12:12:53
MarC
Oh man, danke Jungs ich werde in Zukunft genauer hinschauen.
Gerne u. Danke für die Rückmeldung. o.w.T.
07.06.2020 12:40:57
Werner
AW: Optionbuttons abhängig von Zellenwert
07.06.2020 11:56:56
Zellenwert
Hi
Ich würde anstelle der Optionbuttons eine List- oder Combobox für die Auswahl verwenden und die Box über die Eigenschaft ControlSource mit der Zelle verknüpfen.
Dann geht das ganze ohne Code.
Gruß Daniel
Anzeige
AW: Optionbuttons abhängig von Zellenwert
07.06.2020 12:04:00
Zellenwert
Danke für den Tipp Daniel. Am Anfang habe ich sogar eine ComboBox verwendet, aber dann dachte ich mir das es schneller geht wenn man nur die Begriffe anklickt anstatt sie in einer DropDownListe auswählen zu müssen.
Gruß Marc
AW: Optionbuttons abhängig von Zellenwert
07.06.2020 12:13:17
Zellenwert
Ist richtig.
Eine Combobox braucht einen Klick mehr, dafür spart sie Platz auf der Userform.
Ich hatte ja auch die Listbox vorgeschlagen, da kann man auch direkt auf den Wert klicken.
Wenn man will, kann man über die Eigenschaften die Listbox auch so aussehen lassen wie eine Optionbuttongruppe.
Optionbuttons würde ich nur verwenden, wenn aus gestalterischen Gründen die Optionbuttons nicht untereinander stehen können, da die Listbox einfacher zu Programmieren ist.
(In deinem Fall sogar ganz ohne Code)
Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Festgelegten Wert von Button in Textbox übergeben
Button

Hallo,
ich bitte Euch um Eure Hilfe weil ich bis jezt noch ganz wenig Ahnung von VBA hab.
Ich möchte von UserForm2 per cmd-Button einen fest hinterlegten Wert in die Textbox von Userform1 eintragen.
siehe hier:
https://www.herber.de/bbs/user/58341.xls
Ich habe mir zwar sch...
13.01.2009 15:09:00
Thread-ID: 1039266
8 Beiträge
Anzeige
Pflichtfeld in Abhängigkeit von Zelleninhalt
Zelleninhalt

Hallo zusammen,
hier mein Poblem:
Ein Tabellenblatt enthält eine Liste von Aufgaben, wobei jeder Aufgabe ein Status zugewiesen werden kann.
Spalte A enthält jeweils die Bezeichnung der Aufgabe.
In Spalte B stehen über ein Auswahlfeld der ""StatusA"", ""StatusB"" und der ""Status...
03.08.2009 13:33:48
Thread-ID: 1093209
5 Beiträge
Doppelte Werte, abhängig von aktiver Zelle, finden
aktiver

Hallo,
auch nach stundenlanger Suche konnte ich folgendes Problem bisher nicht lösen:
In meinem Tabellenblatt kommen verschiedene Zelleinträge mehrfach vor.
Nun soll, wenn sich der Cursor in einer Zelle befindet, deren Inhalt in der Tabelle nochmals (oder mehrmals) vorkommt, diese Z...
09.08.2009 13:52:48
Thread-ID: 1094515
12 Beiträge
Anzeige
Combobox in Abhängigkeit von Wert in 2. Spalte
Wert

Hallo Forum,
Ich habe in Tabelle1 eine Spalte (A2:A45) mit Mitarbeiternamen.
In der 2. Spalte wird festgehalten, ob diese MA eine bestimmte Qualifikation haben (mittels "x" quasi angekreuzt).
In Tabelle2 gibt es eine Combobox, die ich nun mit den Werten aus der o.g. Spalte befüllen...
11.10.2009 23:11:06
Thread-ID: 1108963
4 Beiträge
Tabelle öffnen in Abhängigkeit von Zelleintrag
Zelleintrag

Guten Morgen allesreits,
Suche einen Code mit dem ich ein bestimmtes Tabellenblatt einer Zieldatei in ABHÄNGIGKEIT von einem Zelleintrag der Quelldatei öffnen kann.
Habe eine Zieldatei mit 10 inhaltlich gleichen Sheets, die aber einen unterschiedlichen Zeitraum auswerten.
Ich verwen...
25.10.2009 11:42:04
Thread-ID: 1111984
9 Beiträge
Zahlenformat abhängig von anderer Zelle
anderer

Hallo
ich habe eine mehrsprachige Tabelle erstellt, in der in einer Listbox u.a. die Währung ausgewählt werden kann. Die Währungsauswahl wir in einer einzelnen Zelle gespeichert.
Ich möchte das Zahlenformat in Abhängkeit des gewählten Währungswertes darstellen.
Bsp:
Zelle 1 = 25...
27.11.2009 11:00:49
Thread-ID: 1120482
3 Beiträge
Farbe der Autoform abhängig von Zellwert ändern
Zellwert

Hallo liebe Community,
ich habe ein kleines VBA Problem und hoffe ich könnt mir etwas weiterhelfen.
In dem nachfolgenden Bild werden in Spalte "G" die Texte "WAHR" und "FALSCH" eingetragen; diese Werte werden ständig aktualisiert (von einem Server). Bei Mausklick auf den CommandButton "...
26.02.2010 12:33:36
Thread-ID: 1141728
6 Beiträge
Ausdruck nur in Abhängigkeit von Zellwert
Zellwert

Hallo Forumsmitglieder,
ich habe folgendes Problem: der Ausdruck eines Excel-Tabellenblattes soll nur möglich sein, wenn vom Nutzer in einer bestimmten Zelle ein Datumswert eingetragen wurde. Bei einer leeren Zelle bzw. Werten, die kein Datum darstellen sollte kein Ausdruck möglich sein. Wi...
01.03.2010 14:48:41
Thread-ID: 1142380
9 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
11
4
3
8
2
5
8
8
11
1
6
7
3
3
1
4
2
3
2
2
1
10