|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.12.2015 10:00:08 |
Alexander |
|
|
|
04.12.2015 10:15:18 |
Gast23054 |
|
|
|
04.12.2015 13:17:36 |
Gast83626 |
|
|
|
04.12.2015 20:57:21 |
Gast75520 |
|
|
|
07.12.2015 11:27:32 |
Gast37261 |
|
|
|
07.12.2015 11:27:33 |
Gast43912 |
|
|
|
07.12.2015 11:35:42 |
Gast63042 |
|
|
 Ja / Nein Abfrage mit Buttons |
07.12.2015 15:08:44 |
Gast8648 |
|
|
|
08.12.2015 11:35:08 |
Alexander |
|
|
|
09.12.2015 15:27:28 |
Alexander |
|
|
|
10.12.2015 13:49:12 |
Gast44292 |
|
|
Von:
Gast8648 |
Datum:
07.12.2015 15:08:44 |
Views:
777 |
Rating:
|
Antwort:
|
Thema:
Ja / Nein Abfrage mit Buttons |
|
Hallo!
Also dazu müsstest du entweder wissen, welche Buttons für normal oder hoch stehen oder alle Buttons durchgehen, erst die Caption Eigenschaft auswerten und wenn hoch oder normal dann schauen ob aktiv.
HIer mal eine Variante. Du müsstest da bei die Variable i nur mit dem Index des ersten zu prüfenden Wertes beginnen und bis zum letzten zu prüfenden durchgehen. Habe mal nicht alle Optionbuttons auf dem Blatt auswerten lassen, da ich nicht genau weiß, ob es irgendwo noch welche gibt, die zwar genauso heißen aber in die Antwort nicht mit einfließen sollen. Das würde sonst das Ergebnis verfälschen.
Dim anzahl As Integer
anzahl = 0
For i = 1 To 4 'die Nummern der Optionbuttons die es betrifft, hier wären es die von 1 bis 4
If (ActiveSheet.OLEObjects("OptionButton" & i).Object.Caption = "Normal" Or ActiveSheet.OLEObjects("OptionButton" & i).Object.Caption = "Hoch") And ActiveSheet.OLEObjects("OptionButton" & i).Object.Value = True Then anzahl = anzahl + 1
Next i
If anzahl >= 3 Then
'hier diene Ausgabe rein
txt_antwort.value = "Antwort"
End If
Und nicht vergessen, die Buttons jeder Frage gruppieren.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.12.2015 10:00:08 |
Alexander |
|
|
|
04.12.2015 10:15:18 |
Gast23054 |
|
|
|
04.12.2015 13:17:36 |
Gast83626 |
|
|
|
04.12.2015 20:57:21 |
Gast75520 |
|
|
|
07.12.2015 11:27:32 |
Gast37261 |
|
|
|
07.12.2015 11:27:33 |
Gast43912 |
|
|
|
07.12.2015 11:35:42 |
Gast63042 |
|
|
Ja / Nein Abfrage mit Buttons |
07.12.2015 15:08:44 |
Gast8648 |
|
|
|
08.12.2015 11:35:08 |
Alexander |
|
|
|
09.12.2015 15:27:28 |
Alexander |
|
|
|
10.12.2015 13:49:12 |
Gast44292 |
|
|