Office: Zellwert je nach Zustand Optionbutton

Helfe beim Thema Zellwert je nach Zustand Optionbutton in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich möchte für die Bewertung eines Projektes je nach ausgewählter Antwort Punkte vergeben und diese am Schluss zu einem Total... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von henry96, 8. Oktober 2011.

  1. Zellwert je nach Zustand Optionbutton


    Hallo zusammen,

    ich möchte für die Bewertung eines Projektes je nach ausgewählter Antwort Punkte vergeben und diese am Schluss zu einem Total zusammenzählen.

    Pro Thema stehen drei OptionButtons zur Verfügung, welche ja nach Auswahl 3, 2 oder 1 Punkt geben. Die OptionButtons habe ich als ActiveX-Steuerelemente eingefügt damit ich sie gruppieren konnte.

    Ich möchte einer Zelle (z.B. G19) je nach gewähltem Button die entsprechende Punktezahl sehen. Da ich nicht rausgefunden habe wie das geht, wollte ich alternativ pro OptionButton den Wert in eine Zelle schreiben (markiert = 3, nicht markiert = 0) und dann halt in Zelle G19 das Total ausrechnen. Nun funktioniert es, dass es mir bei ausgewähltem Button die entsprechende Punktezahl in die Zelle schreibt. Wir der Button deaktiviert, ändert sich der Wert wieder auf 0.

    Mein VBA-Code sieht wie folgt aus:

    Private Sub OptionButton13_Click()

    If OptionButton13.Value = True Then
    Tabelle2.Range("C20") = "3"
    Else
    Tabelle2.Range("C20") = "0"
    End If

    End Sub

    Was mache ich falsch? Oder wie muss ich für einen eleganteren Weg vorgehen?

    Vielen Dank für eure Tipps!

    Gruss
    Henry96

    :)
     
    henry96, 8. Oktober 2011
    #1
  2. Hallo Henry,

    Private Sub OptionButton13_Click()

    If OptionButton13.Value = True Then
    Worksheets("Tabelle2").Range("C20") = "3"
    Else
    Workheetss("Tabelle2").Range("C20") = "0"
    End If

    End Sub
     
  3. Hallo zusammen,

    ich habe ein ähnliches Problem, nutze aber die Userform zur Lösung.

    Sollte das Thema hier falsch sein, mache ich gerne einen neuen Thread auf (Ich bin nicht nur bei VBA neu, auch in Foren).

    Ich versuche in eine bestehende Tabelle über einen Button eine neue Zeile zu generieren. Der Wertebereich beginnt in Zeile 7. Ich stelle mir vor, dass man auf einen Button klickt, danach geht die Userform auf, man wählt eine von sechs Optionen aus, klickt OK und in der letzten leeren Zeile des Wertebereichs steht in Spalte A das Tagesdatum und in Spalte B eine Beschreibung (Text) in Abhängigkeit der gewählten Option.

    Eine Beispieldatei mit einem ersten Versuch liegt bei. Es will aber nicht so recht funktionieren. Es wäre schön, wenn jemand helfen kann!

    Gruß,
    Stefan
     
    Boefking, 10. Oktober 2011
    #3
  4. Zellwert je nach Zustand Optionbutton

    Danke Rainer! Leider funktioniert es noch nicht wie gewünscht. Den (vermuteten) Schreibfehler beim zweiten mal 'Worksheets' habe ich zwar korrigiert, doch die '3' beim deaktivieren des Buttons bleibt bestehen...

    Der Code sieht jetzt so aus:

    Private Sub OptionButton13_Click()

    If OptionButton13.Value = True Then
    Worksheets("Tabelle2").Range("C20") = "3"
    Else
    Worksheets("Tabelle2").Range("C20") = "0"

    End If

    End Sub


    Habe ich noch irgend einen wichtige Info unterschlagen damit es funktioniert?

    Gruss
    henry96
     
    henry96, 10. Oktober 2011
    #4
  5. Hallo henry96,

    wenn Du den OptBtn nicht anklickst, löst das Klick-Ereignis auch nicht aus. Eine reine Zustandsänderung (Löschung durch Aktivieren eines anderen OptBtn) reicht dafür nicht aus. Also bleibt die 3. Der Wert müsste also durch ein anderes Ereignis überschrieben werden.

    Nebenbei: Zahlenwerte bedürfen keiner Anführungszeichen, um sie zuzuweisen.

    Grüße
    EarlFred
     
    EarlFred, 10. Oktober 2011
    #5
  6. Hallo Henry,

    probier's mal so

    Code:
     
  7. Super, funktioniert nun. Danke EarlFred!

    Der Code sieht nun so aus:

    Private Sub OptionButton13_Click()

    If OptionButton13.Value = True Then
    Worksheets("Tabelle2").Range("C20") = 3
    Worksheets("Tabelle2").Range("D20") = 0
    Worksheets("Tabelle2").Range("E20") = 0

    End If

    End Sub


    Gruss
    henry96
     
    henry96, 10. Oktober 2011
    #7
Thema:

Zellwert je nach Zustand Optionbutton

Die Seite wird geladen...
  1. Zellwert je nach Zustand Optionbutton - Similar Threads - Zellwert Zustand Optionbutton

  2. Zellwert durch 60

    in Microsoft Excel Hilfe
    Zellwert durch 60: Hallo Zusammen, in Spalte G werden per Macro Werte in Minuten geladen.Bei jeden Start des Macros werden die Werte gelöscht und neue eingesetzt. Gerne würde ich die Werte ( Minuten) direkt in...
  3. Verwenden von Zellwerten als benutzerdefinierte Excel-Dateieigenschaft zur Unterstützung der ...

    in Microsoft Excel Tutorials
    Verwenden von Zellwerten als benutzerdefinierte Excel-Dateieigenschaft zur Unterstützung der ...: Verwenden von Zellwerten als benutzerdefinierte Excel-Dateieigenschaft zur Unterstützung der Verwaltung Ihrer Arbeitsmappen in einer SharePoint-Bibliothek Mit den File nameEigenschaften in Excel...
  4. Anzeigen oder Ausblenden von Zellwerten

    in Microsoft Excel Tutorials
    Anzeigen oder Ausblenden von Zellwerten: Anzeigen oder Ausblenden von Zellwerten Excel für Microsoft 365 für Mac Excel 2019 für Mac Excel 2016 für Mac Excel für Mac 2011 Mehr... Weniger...
  5. Ausblenden oder Anzeigen von Zellwerten

    in Microsoft Excel Tutorials
    Ausblenden oder Anzeigen von Zellwerten: Ausblenden oder Anzeigen von Zellwerten Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Mehr... Weniger...
  6. Verketten von Zellwerten aus Formeln

    in Microsoft Excel Hilfe
    Verketten von Zellwerten aus Formeln: Hallo, ich habe folgende Funktion für meine Spalte N: Code: Public Function VerkettenXlph(Bereich As Range, Optional Unikate As Boolean, _ Optional NurSichtbareWerte As Boolean, _ Optional...
  7. Hyperlink an Zellinhalt/Zellwert knüpfen (anstatt an eine bestimmte Zelle)

    in Microsoft Excel Hilfe
    Hyperlink an Zellinhalt/Zellwert knüpfen (anstatt an eine bestimmte Zelle): Hallo :) , Ich habe eine Excel-Datei mit zwei Arbeitsblättern. Auf dem ersten Arbeitsblatt ist eine Liste mit Daten zu bestimmten Personen. Auf dem zweiten Arbeitsblatt ist eine Liste, von...
  8. Exel Zellwert einer anderen Zelle bei Eingabe setzen

    in Microsoft Excel Hilfe
    Exel Zellwert einer anderen Zelle bei Eingabe setzen: Hallo, ich suche eine Möglichkeit, ohne VBA den Zellwert einer Zelle zu setzen, wenn in einer anderen Zelle eine Eingabe erfolgt. ABER: der Wert soll dann so bleiben. Beispiel: In Zelle A1 wird...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden