MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.02.2019, 18:43   #1
Boromeus
Neuer Benutzer
Neuer Benutzer
Tipp Frage - Script um Optionsfelder zu deaktiveren und vielleicht mehr...

Moin,

ich habe einen Fragebogen mit 132 Multiple Choice Fragen.
Zelle A2 erste Frage, Zelle b3:b6 je eine Antwort.
Davor ein Gruppenfeld mit 4 Optionsfelder (je Antwort eins).
Das Ausgabefeld wird dann mit einer Lösungsmatrix verglichen und so weiter...
Die Zellen, die die Frage und die möglichen Antworten beinhalten, sind auch ordentlich über den Namensmanager definiert und optisch abgegrenzt (auch wenn das hierfür nicht so wichtig ist). Das ganze 132 mal untereinander.

Ich hätte gerne jetzt einen Button, mit dem ich die Optionsfelder alle auf einmal wieder auf 0 setzen kann.

Ach und wenn einer noch ein Script hat, mit dem ich die Fragen gleichzeitig neu sortieren kann, das wäre noch sehr cool.

Und sollte einer von euch gerade seine "WünschDirWas"-Box aufhaben, dann würde ich auch noch ein Script nehmen, dass die 4 Antworten innerhalb jeder Frage durcheinander würfelt (das müsste wahrscheinlich Zeilenweise geschehen, damit die Nummerierung der richtigen Lösung erhalten bleibt und irgendwie mit den Optionsfeldern gekoppelt werden).

Leider übersteigen alle drei Wünsche meine Fähigkeiten bei weitem, da ich nicht scripten kann und ich habe auch nichts passendes gefunden (was durchaus daran liegen kann, dass ich nicht die passende Fachbegriffe kenne...).

Eine Beispieldatei mit 10 Fragen habe ich mit hochgeladen.

Ich hoffe einer von euch kann mir da weiterhelfen.

Vor allem das erste wäre mir nicht nur sehr hilfreich, sondern auch wichtig.

Schon im voraus Danke fürs lesen und eventuell helfen.

Boro

P.S.
Die Rahmen der Gruppenfelder sind normalerweise ausgeblendet, die habe ich im Beispiel der Einfachheit halber eingeblendet gelassen.
Angehängte Dateien
Dateityp: xlsx Fragebogen.xlsx (37,0 KB, 8x aufgerufen)

Geändert von Boromeus (12.02.2019 um 18:49 Uhr).
Boromeus ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.02.2019, 19:42   #2
R J
MOF Meister
MOF Meister
Standard

Hi Boromeus,

finde gerade meine "WünschDirWas"-Box nicht. Aber 1. ist kein Problem:

Code:

Sub allesAuf0()
Dim sh As Shape
    With Worksheets("Prüfungsbogen")
        For Each sh In .Shapes
         If InStr(1, sh.Name, "Option") > 0 Then
            sh.Select
            Selection.Value = xlOff
         End If
        Next
        Cells(6, 1).Select
    End With
End Sub
Würde ich allerdings nicht über einen Button starten, sondern einen ShortKey festlegen...

__________________

Ciao, Ralf

Kommt mir irgendwie bekannt vor...
Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.


R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.02.2019, 20:27   #3
AlterDresdner
Neuer Benutzer
Neuer Benutzer
Standard Variante 2 zu Wunsch 1

Hallo Boromeus,
da ich mir das nun schon angesehen habe, hier eine 2. Variante mit gleichem Effekt:
Sub Auf0()
With Sheets("Prüfungsbogen")
.Range("F8:F" & .Cells(Rows.Count, 6).End(xlUp).Row).ClearContents
End With
End Sub
Die anderen Wünsche sind nicht so trivial, aber schaun mer mal...
Gruß der AlteDresdner
AlterDresdner ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.02.2019, 20:51   #4
Boromeus
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ihr seid Klasse.. Damit ist das wichtigste schon geschafft. DANKE

Und wegen der Extras lasse ich das hier nochmal offen.
Würde und wird mir und vielen anderen Prüflingen nach mir sehr beim lernen helfen..!
Boromeus ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.02.2019, 20:54   #5
AlterDresdner
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Boromeus,
hier wäre Wunsch 2 (Sub Fragentausch).
Die Fragen werden zufällig getauscht, dabei werden auch alle Optfelder auf 0 gesetzt.
Das Tauschen der 4 Unterfragen ist auch machbar, da müsste aber z.B. die Frage
Was sollte in der Definitive Media Library (DMS) aufbewahrt werden?
neu aufgestellt werden, das kann man nicht automatisch machen.
Denkbar wäre auch, solche nicht sortierfähigen Fragen mit einem Merkmal in der Datei (Spalte ? nicht leer) zu versehen. Gib mal Bescheid.
Bytheway: Die Namen Frage1... in der Datei werden wahrscheinlich beschädigt. Wenn Du die nicht woanders brauchst, kann man sie auch löschen.
Gruß der AlteDresdner
Angehängte Dateien
Dateityp: xlsm Fragebogen1.xlsm (51,7 KB, 0x aufgerufen)
AlterDresdner ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.