PDA

Vollständige Version anzeigen : Fragebogen auswerten


Iren_77
26.07.2012, 08:57
Hallo,
ich möchte eine keine Umfrage mit Excel auswerten. Es sind insgesamt 14 Fragen, die per Hand angekreuzt werden (1 sehr gut bis 5 mangelhaft). Die werden an ca. 30 Personen verteilt und von denen ausgefüllt.

Ich stelle mir das ungefähr so vor:

alle Fragen in Excel eingeben, die fünf Auswahlmöglichkeiten auch. Wenn ich drei antippe, dann zahlt das Programm eins dazu.

z. B. Sind Sie mit der technischer Ausstattung zufrieden? Dann klicke bei drei an, und das Programm zählt (bei befriedigend) 1, bzw. 1 dazu. Die andere Person hat bei der gleichen Frage eine 2 angekreuzt, dann klicke ich bei 2 an, und das Programm zählt bei "gut" 1 bzw. 1 dazu. Geht das überhaupt mit Excel?
Ich hoffe, ich habe das etwas verständlich beschrieben.

Danke
LG
Iren

hary
26.07.2012, 09:34
Hallo Iren
Geht das überhaupt mit Excel?

Ja
ich habe das etwas verständlich beschrieben
Naja ;-)
Lade mal eine Bsp.Mappe hoch damit wir sehen wie diese aussieht.
gruss hary

IngGi
26.07.2012, 10:24
Hallo Iren,

schreibe in A1 bis A5 die Zahlen von 1 bis 5. In das Codemodul des betreffenden Tabellenblattes kommt dann folgender Code. Bei einem Rechtsklick auf eine der 5 Zellen A1:A5 wird die Zelle rechts daneben hochgezählt und bei einem Doppelklick um 1 vermindert (für Korrekturen):

<blockquote><div style='background-color: #F2F2FF; border: 1px solid #3300B2; padding: 0px 24px;'><pre style='text-align: center; font-size: 13px;'><span style='color: #008000;'>'#######################################################<br>'# #<br>'# Code einfügen in: #<br>'# das Klassenmodul des betreffenden Tabellenblattes #<br>'# #<br>'#######################################################<br></span></pre><hr style='color: #3300B2; background: #3300B2; height: 1px;'><pre style='font-size: 12px; padding: 0px 10px;'><span style="color: #0000FF">Option Explicit</span><br><br><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Worksheet_BeforeDoubleClick<span style='color: #B200CC;'>(</span><span style="color: #0000FF">ByVal</span> Target <span style="color: #0000FF">As</span> Range, Cancel <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span><span style='color: #B200CC;'>)</span><br>Cancel = <span style="color: #0000FF">True</span><br><span style="color: #0000FF">If</span> Target.Column =<span style="color: #FF0000"> 1</span> And Target.Row &lt;<span style="color: #FF0000"> 6</span> <span style="color: #0000FF">Then</span><br> Target.Offset<span style='color: #B200CC;'>(</span><span style="color: #FF0000">0</span>,<span style="color: #FF0000"> 1</span><span style='color: #B200CC;'>)</span> = Target.Offset<span style='color: #B200CC;'>(</span><span style="color: #FF0000">0</span>,<span style="color: #FF0000"> 1</span><span style='color: #B200CC;'>)</span> -<span style="color: #FF0000"> 1</span><br><span style="color: #0000FF">End </span><span style="color: #0000FF">If</span><br><span style="color: #0000FF">End </span><span style="color: #0000FF">Sub</span><br><br><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Worksheet_BeforeRightClick<span style='color: #B200CC;'>(</span><span style="color: #0000FF">ByVal</span> Target <span style="color: #0000FF">As</span> Range, Cancel <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span><span style='color: #B200CC;'>)</span><br>Cancel = <span style="color: #0000FF">True</span><br><span style="color: #0000FF">If</span> Target.Column =<span style="color: #FF0000"> 1</span> And Target.Row &lt;<span style="color: #FF0000"> 6</span> <span style="color: #0000FF">Then</span><br> Target.Offset<span style='color: #B200CC;'>(</span><span style="color: #FF0000">0</span>,<span style="color: #FF0000"> 1</span><span style='color: #B200CC;'>)</span> = Target.Offset<span style='color: #B200CC;'>(</span><span style="color: #FF0000">0</span>,<span style="color: #FF0000"> 1</span><span style='color: #B200CC;'>)</span> +<span style="color: #FF0000"> 1</span><br><span style="color: #0000FF">End </span><span style="color: #0000FF">If</span><br><span style="color: #0000FF">End </span><span style="color: #0000FF">Sub</span><br></pre><hr style='color: #3300B2; background: #3300B2; height: 1px;'><p style='font-size: 8px; font-family: Verdana; text-align: right;'>VBA/HTML - CodeConverter für Excelforen<br>AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi<br>Anbindung an VBE-Kontextmenü geklaut ;-) bei: <a href='http://www.cpearson.com/excel/VbeMenus.aspx'>http://www.cpearson.com/excel/VbeMenus.aspx</a></p></div></blockquote>

Gruß Ingolf