Programm Code gesucht

20/11/2009 - 19:30 von Werner Kiefer | Report spam
Hallo
Ich habe eine Arbeitsmape mit einer Tabelle "Fehler auswertung"
B1 entspricht z.B. der Fehlerhüfigkeit von Frage 1, B2 von Frage 2 usw.
es sind insgesamt 58 Fragen, diese Fragen sind mit jeweils 42 Fragen auf
3 Fragebögen verteilt.
Fragebogen A mit 42 fragen
Fragebogen B mit 42 fragen
Fragebogen C mit 42 fragen
Es kann also vorkommen das eine Frage in allen 3 Fragebögen vorhanden ist,
z. B. Frage 5 / entspricht Frage A5 + B12 + C42
ich möchte jetzt feststellen welche Fragenvon den 58 wieviel mal Falsch
beantwortet wurden.
Habe also ein UserForm eingefügt mit 3 Register Entspricht Fagebogen a bis c
mit jeweils 42 Schaltflàchen, also frage 1, Frage 2,
jetzt suche ich den passenden CODE der folgendes ausführt :
bei klick auf eine Schaltflàche z. B. bei Fragebogen A Frage 5
wàhle Tabele "Fehler auswertung"
wert von B5 = B5 +1
ENDSUB

müsste eigentlich einfach sein
stelle mich nur zu dappig an.

wer kann mir Helfen

im voraus vielen Dank

m. f. G.
Werner Kiefer
 

Lesen sie die antworten

#1 Eberhard Funke
20/11/2009 - 21:29 | Warnen spam
Am Fri, 20 Nov 2009 19:30:18 +0100 schrieb Werner Kiefer:

Hallo Werner,

Ich habe eine Arbeitsmape mit einer Tabelle "Fehler auswertung"
B1 entspricht z.B. der Fehlerhüfigkeit von Frage 1, B2 von Frage 2 usw.
es sind insgesamt 58 Fragen, diese Fragen sind mit jeweils 42 Fragen auf
3 Fragebögen verteilt.
Fragebogen A mit 42 fragen
Fragebogen B mit 42 fragen
Fragebogen C mit 42 fragen
Es kann also vorkommen das eine Frage in allen 3 Fragebögen vorhanden ist,
z. B. Frage 5 / entspricht Frage A5 + B12 + C42



Du meinst: Bogen A B5, Bogen B B12, Bogen C B42? Und das Eergebnis soll die
Summe dieser drei Zellen ergeben?

ich möchte jetzt feststellen welche Fragenvon den 58 wieviel mal Falsch
beantwortet wurden.
Habe also ein UserForm eingefügt mit 3 Register Entspricht Fagebogen a bis c
mit jeweils 42 Schaltflàchen, also frage 1, Frage 2,



Da es 58 Fragen gibt und z. B. Frage 3 auf dem ersten Register nicht
vorkommt (ist ja möglich), was dann?

jetzt suche ich den passenden CODE der folgendes ausführt :
bei klick auf eine Schaltflàche z. B. bei Fragebogen A Frage 5
wàhle Tabele "Fehler auswertung"
wert von B5 = B5 +1



diese Formel verwirrt mich etwas

ENDSUB



Zusammenfassend verstehe ich die Aufgabe so, dass für alle 58 Fragen
ermittelt werden soll, wieviele Fehler je Frage in der Gesamtheit der 3
Bögen auftreten.

Wenn es nicht ganz so schick (UserForm mit Registern) sein soll, dann lege
noch eine vierte Tabelle an und probiers mal mit diesem Code:


Sub Fehler()
Dim intI As Integer
Dim intTab As Integer
Dim wks(1 To 4)
Dim intZS As Integer
Dim rngTmp As Range


Set wks(1) = Worksheets("Tabelle1")
Set wks(2) = Worksheets("Tabelle2")
Set wks(3) = Worksheets("Tabelle3")
Set wks(4) = Worksheets("Tabelle4")

For intI = 1 To 58
For intTab = 1 To 3
Set rngTmp = wks(intTab).Range("A2:A59") _
.Find(what:=intI, lookat:=xlWhole)
If Not rngTmp Is Nothing Then
intZS = intZS + rngTmp.Offset(0, 1).Value
End If
Next
wks(4).Range("A" & intI + 1).Value = intI
wks(4).Range("B" & intI + 1).Value = intZS
intZS = 0
Next
End Sub


Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen