VB Multiplichoice mit Summenberechnung im Ergebnis, Vorzugsweise EXEL

  • Excel

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von Kathleen.

    VB Multiplichoice mit Summenberechnung im Ergebnis, Vorzugsweise EXEL

    Hey leute,
    Ich versuche derzeit ein Programm zu schreiben, welches ein Multiplichoice Quiz darstellt. Bisher(ich bin in der Auswertung und zusammenrechnug der Einzelergebnisse) hat alles gut gegangen, doch nun streikt VB. Dazu sei gesagt, dass ich nicht viel über VB weiß und mir alles selbst zusammengreimt habe. Sollten also Fehler in meinem Code sein, so bitte ich, mir diese aufzuzeigen, damit ich das Programm möglichst optimieren kann.

    Mein Programm baut sich derzeit folgendermaßen(Aufrufreihenfolge)auf:
    1. Quiz1-> sagt TextBox"Text1" in Formular "ErgebnisQuiz" es soll dessen Text Eigenschaft auf gegebenen Wert setzen
    2. Quiz1 wird durch commandButton Abfolge gehidet und Quiz2 aufgerufen(show)
    3. (Das geht wie bei Quiz1 so weiter(bis Quiz9) nur dass das Text feld höhere werte-Bis 8- zugewiesen bekommt)
    4. ... ErgebnisQuiz wird aufgerufen und die Textfelder 1 bis 9 zeigen die richtigen Werte. Soweit so gut.
    5. ErgebnisQuiz hat noch ein Textfeld indem die Summe der Byte werte von den textfeldern 1 bis 9 angeben soll. Nur scheitert diese Anzeige immer wieder aufs neue, es erscheint nie ein wert.

    Ich habe schon versucht diese Werte von den einzelnen Quiz frm an einen Public Sub in ErgebnisQuiz zu übergeben, doch was ich auch tue, kein Erfolg. folgendes hab ich bereits versucht:

    Call ErgebnisQuiz!QuizErgebnis (Frage1 As Integer) ' VB sagt: ! muss . sein und nach Frage1 muss entweder Listentrennzeichen oder ) kommen'

    Call ErgebnisQuiz.QuizErgebnis (ByVal Frage1 As Integer) ' VB sagt: nach Frage1 muss listentrennzeichen oder ) kommen, sowie: Typen unverträglich(dabei hat er ByVal markiert)

    Call ErgebnisQuiz.QuizErgebnis (Frage1) ' VB sagt: RefVal Typen unverträglich

    Aus Frust hab ich ihm dann einfach das Argument in Doppelklammern gesetzt damit er erzwungen wird und dann motzt er mich an: Argument nicht Optional

    :cursing: Ich könnt den manchmal. hier die verschiedenen Codes. hab die frm dazugeschrieben, einmal von 0 oder 1 Wert (Quiz1) und einmal mehr Antworten (Quiz3) sowie das ErgebnisQuiz. Solltet ihr euch über QuizErgebnis wundern, so hab ich den Public Sub benannt.

    Visual Basic-Quellcode

    1. (frmQuiz1)
    3. Public Sub Ergebnis()
    4. Frage = Frage + 1
    5. End Sub
    6. Public Sub Richtig1()
    7. ErgebnisQuiz!Text1.Text = 1
    8. Call Ergebnis
    9. End Sub
    11. Public Sub Falsch1()
    12. ErgebnisQuiz!Text1.Text = 0
    13. End Sub
    15. Public Sub Richtig2()
    16. ErgebnisQuiz!Text2.Text = 1
    17. Call Ergebnis
    18. End Sub
    20. Public Sub Falsch2()
    21. ErgebnisQuiz!Text2.Text = 0
    22. End Sub
    24. Private Sub cmdSpeichern_Click()
    25. cmdWeiter.Enabled = True
    26. End Sub
    28. Private Sub cmdWeiter_Click()
    29. Call ErgebnisQuiz.Ergebnis(Summe, Frage)
    30. Quiz1.Hide
    31. Quiz2.Show
    32. End Sub
    34. Private Sub Form_Load()
    35. Dim Frage As Integer
    36. Frage = 0
    37. ErgebnisQuiz!Text1.Text = 0
    38. ErgebnisQuiz!Text2.Text = 0
    39. End Sub
    41. Private Sub Option1_Click()
    42. If Option1.Enabled Then
    43. Falsch1
    44. End If
    45. End Sub
    47. Private Sub Option2_Click()
    48. If Option2.Enabled Then
    49. Falsch1
    50. End If
    51. End Sub
    53. Private Sub Option3_Click()
    54. If Option3.Enabled Then
    55. Falsch1
    56. End If
    57. End Sub
    58. Private Sub Option4_Click()
    59. If Option4.Enabled Then
    60. Falsch1
    61. End If
    62. End Sub
    64. Private Sub Option5_Click()
    65. If Option5.Enabled Then
    66. Falsch1
    67. End If
    68. End Sub
    70. Private Sub Option6_Click()
    71. If Option6.Enabled Then
    72. Falsch1
    73. End If
    74. End Sub
    76. Private Sub Option7_Click()
    77. If Option7.Enabled Then
    78. Richtig1
    79. End If
    80. End Sub
    82. Private Sub Option8_Click()
    83. If Option8.Enabled Then
    84. Falsch1
    85. End If
    86. End Sub
    88. Private Sub Option9_Click()
    89. If Option9.Enabled Then
    90. Richtig2
    91. End If
    92. End Sub
    93. Private Sub Option10_Click()
    94. If Option10.Enabled Then
    95. Falsch2
    96. End If
    97. End Sub
    99. Private Sub Option11_Click()
    100. If Option11.Enabled Then
    101. Falsch2
    102. End If
    103. End Sub
    105. Private Sub Option12_Click()
    106. If Option12.Enabled Then
    107. Falsch2
    108. End If
    109. End Sub
    110. Private Sub Option13_Click()
    111. If Option13.Enabled Then
    112. Falsch2
    113. End If
    114. End Sub
    116. Private Sub Option14_Click()
    117. If Option14.Enabled Then
    118. Falsch2
    119. End If
    120. End Sub
    122. Private Sub Option15_Click()
    123. If Option15.Enabled Then
    124. Falsch2
    125. End If
    126. End Sub
    128. Private Sub Option16_Click()
    129. If Option16.Enabled Then
    130. Falsch2
    131. End If
    132. End Sub
    135. (frmQuiz3)
    137. Option Explicit
    138. Dim Zähler As Byte
    141. Public Sub Richtig5()
    142. Zähler = Zähler + 1
    143. End Sub
    145. Public Sub Falsch5()
    146. If Zähler = 0 Then
    147. Zähler = Zähler
    148. Else
    149. Zähler = Zähler - 1
    150. End If
    151. End Sub
    152. Private Sub Check1_Click()
    153. If Check1.Value Then
    154. Richtig5
    155. End If
    156. End Sub
    158. Private Sub Check2_Click()
    159. If Check2.Value Then
    160. Falsch5
    161. End If
    162. End Sub
    164. Private Sub Check3_Click()
    165. If Check3.Value Then
    166. Richtig5
    167. End If
    168. End Sub
    170. Private Sub Check9_Click()
    171. If Check9.Value Then
    172. Richtig5
    173. End If
    174. End Sub
    176. Private Sub Check8_Click()
    177. If Check8.Value Then
    178. Richtig5
    179. End If
    180. End Sub
    182. Private Sub Check7_Click()
    183. If Check7.Value Then
    184. Falsch5
    185. End If
    186. End Sub
    188. Private Sub Check6_Click()
    189. If Check6.Value Then
    190. Richtig5
    191. End If
    192. End Sub
    194. Private Sub Check5_Click()
    195. If Check5.Value Then
    196. Richtig5
    197. End If
    198. End Sub
    200. Private Sub Check4_Click()
    201. If Check4.Value Then
    202. Falsch5
    203. End If
    204. End Sub
    206. Private Sub cmdSpeichern_Click()
    207. cmdWeiter.Enabled = True
    208. End Sub
    210. Private Sub cmdWeiter_Click()
    211. Select Case Zähler
    212. Case Is <= 0
    213. ErgebnisQuiz!Text5.Text = 0
    214. Case 1
    215. ErgebnisQuiz!Text5.Text = 1
    216. Case 2
    217. ErgebnisQuiz!Text5.Text = 2
    218. Case 3
    219. ErgebnisQuiz!Text5.Text = 3
    220. Case 4
    221. ErgebnisQuiz!Text5.Text = 4
    222. Case 5
    223. ErgebnisQuiz!Text5.Text = 5
    224. Case 6
    225. ErgebnisQuiz!Text5.Text = 6
    226. End Select
    227. Quiz3.Hide
    228. Quiz4.Show
    229. End Sub
    231. Private Sub Form_Load()
    232. Zähler = 0
    233. End Sub
    236. (frmErgebnisQuiz)
    238. Public Sub Ergebnis(Summe As Integer, Frage As Integer)
    239. Summe = Summe + Frage
    240. If ErgebnisQuiz.Visible = True Then
    241. QuizErgebnis.Text = Summe
    242. End Sub


    hoffe ihr könnt mir helfen, ich verzweifle hier...

    Das mit Exel:
    Ich habe versucht anhand von OLE oder Datenbank Exel versucht die Formulare an bestimmte Werte der ExelTabelle zu binden, aber ich verstehe nicht wie ich das machen soll, finde weder die richtigen Scripts noch finde ich eine Eigenschaft die mir das ermöglicht einfach zu verknüpfen. HILFE!!!
    hab euch auch die Tabelle angehängt, solltet ihr damit etwas anfangen können.

    Lg Kathleen

    *Topic verschoben*
    Dateien

    • Mappe1.xls

      (16,38 kB, 192 mal heruntergeladen, zuletzt: )
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Zum Code, naja. Es gibt viele Kleinigkeiten, die man kürzen / weglassen könnte, die Namen sind nicht ausschlaggebend und du greifst 'falsch' in eine andere Form über, aber nun denn, frag konkret was das anbelangt. Außerdem muss Option Strict On! (lass dich aber nicht erschlagen von den 57 Fehlermeldungen)

    Zur Excel-Tabelle: =SUMME(B1+B2+...+B9) --> =SUMME(B1:B9)

    Zum Problem: Was ist QuizErgebnis ??
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    hi,
    also die Mappe1.xls hat in der Ergebniszelle die von dir beschriebenen Formatierung. Mein Problem ist eigentlich: Wie sage ich VB in seiner Sprache: "Wenn das Forumular ErgebnisQuiz geladen wird frage die Exeltabelle nach dem Wert der Zelle B11 und zeige ihn in QuizErgebnis.Text"
    Die Quiz1 - 9 formulare sollen zu ihrer Zeit dann schon ihre Werte den Zellen B1 bis B9 zuweisen, damit Exel die berechnung =Summe(B1+B2+B3+B4+B5+B6+B7+B8+B9) durchführen kann.

    hier, ich habe mal ein wenig recherchiert und habe etwas zu diesem Thema gefunden, was ich allerdings nicht ganz verstehe.

    Visual Basic-Quellcode

    1. 'Dieser Quellcode stammt von http://www.activevb.de
    2. 'und kann frei verwendet werden. Für eventuelle Schäden
    3. 'wird nicht gehaftet.
    5. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
    6. 'Ansonsten viel Spaß und Erfolg mit diesem Source!
    8. '------------- Anfang Projektdatei Project1.vbp -------------
    9. ' Die Komponente 'Microsoft Common Dialog Control 6.0 (SP3) (COMDLG32.OCX)' wird benötigt.
    11. '--------- Anfang Formular "Form1" alias Form1.frm ---------
    12. ' Steuerelement: Standarddialog-Steuerelement "CommonDialog1"
    13. ' Steuerelement: Schaltfläche "Command2"
    14. ' Steuerelement: Schaltfläche "Command3"
    15. ' Steuerelement: Textfeld "Text9"
    16. ' Steuerelement: Textfeld "Text8"
    17. ' Steuerelement: Textfeld "Text7"
    18. ' Steuerelement: Textfeld "Text6"
    19. ' Steuerelement: Textfeld "Text5"
    20. ' Steuerelement: Textfeld "Text4"
    21. ' Steuerelement: Textfeld "Text3"
    22. ' Steuerelement: Textfeld "Text2"
    23. ' Steuerelement: Textfeld "Text1"
    24. ' Steuerelement: Schaltfläche "Command1"
    25. ' Steuerelement: Beschriftungsfeld "Label9"
    26. ' Steuerelement: Beschriftungsfeld "Label8"
    27. ' Steuerelement: Beschriftungsfeld "Label7"
    28. ' Steuerelement: Beschriftungsfeld "Label6"
    29. ' Steuerelement: Beschriftungsfeld "Label5"
    30. ' Steuerelement: Beschriftungsfeld "Label4"
    31. ' Steuerelement: Beschriftungsfeld "Label3"
    32. ' Steuerelement: Beschriftungsfeld "Label2"
    33. ' Steuerelement: Beschriftungsfeld "Label1"
    35. Option Explicit
    37. Dim Excel As Object
    38. Dim LFlag As Boolean
    40. Private Sub Form_Load()
    41. Set Excel = CreateObject("Excel.Application")
    42. Excel.Visible = False
    43. End Sub
    45. Private Sub Command1_Click()
    46. CommonDialog1.Filter = ("Excel-Datei (*.xls)|*.xls;")
    47. CommonDialog1.InitDir = App.Path
    48. CommonDialog1.ShowOpen
    50. If CommonDialog1.filename <> "" Then
    51. Excel.Workbooks.Open CommonDialog1.filename
    52. LFlag = True
    53. Call Command2_Click
    54. End If
    55. End Sub
    57. Private Sub Command2_Click()
    58. If Not LFlag Then Exit Sub
    60. Text1.Text = Excel.Range("A1").Value
    61. Text2.Text = Excel.Range("B1").Value
    62. Text3.Text = Excel.Range("C1").Value
    64. Text4.Text = Excel.Range("A2").Value
    65. Text5.Text = Excel.Range("B2").Value
    66. Text6.Text = Excel.Range("C2").Value
    68. Text7.Text = Excel.Range("A3").Value
    69. Text8.Text = Excel.Range("B3").Value
    70. Text9.Text = Excel.Range("C3").Value
    71. End Sub
    73. Private Sub Command3_Click()
    74. If Not LFlag Then Exit Sub
    76. Excel.Range("A1").Value = Text1.Text
    78. Excel.Range("B1").Value = Text2.Text
    79. Excel.Range("C1").Value = Text3.Text
    81. Excel.Range("A2").Value = Text4.Text
    82. Excel.Range("B2").Value = Text5.Text
    83. Excel.Range("C2").Value = Text6.Text
    85. Excel.Range("A3").Value = Text7.Text
    86. Excel.Range("B3").Value = Text8.Text
    87. Excel.Range("C3").Value = Text9.Text
    88. End Sub
    90. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    91. If LFlag Then
    92. Call Command3_Click
    93. Excel.ActiveWorkbook.Close SAVECHANGES:=LFlag
    94. End If
    96. Excel.Quit
    97. Set Excel = Nothing
    98. End Sub
    99. '---------- Ende Formular "Form1" alias Form1.frm ----------
    100. '-------------- Ende Projektdatei Project1.vbp --------------


    Vielleicht ist da die lösung drin, nur ist es mir ein Rätsel, was Range und der ganze mist von aufrufen des xls bedeutet...
    QuizErgebnis habe ich die TextBox getauft, welches die Summe Wiedergeben sollte (obwohl es das nicht zu verstehen scheint)
    Ich weiß nicht ob es was zur Sache tut, aber die Exeltabelle soll während des Vorgangs Visible = False sein

    LG Kathleen
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Können wir zuallererst die Rahmenbedingungen klären?

    Du postest unter der Rubrik VBS.
    Du sprichst von Excel, was auf VBA deuten würde.
    Du zitierst einen VB6-Code, der ein Excel-Workbook bearbeitet.
    Von ThePlexian kommt ein Kommentar, der sich auf VB.net bezieht.

    In welcher Entwicklungsumgebung willst du programmieren?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich kenne diese VBA oder VBS abkürzung nicht, dachte script hat was mit dem code zu tun... schuldigung...
    VB6, VB.Net... kp was du meinst. Also ich habe als kleine Hilfe ein Buch namens "Visual Basic 6 Für DUMMIS" Ich gehe davon aus das ich auf eben Visual Basic 6 Sprache schreibe. Entwicklungsumgebung? Ich bediene VB6, keine ahnung was du damit sagen möchtest.
    LG Kathleen
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Achso! Das meinst du. Nein. Ich schreibe in der VB6 Umgebung meines Programmes und nicht in dem VB Fenster von dem Exel dokument.
    Ich habe jetzt den Code so aktualisiert, dass er sich mit meinem letzten angegebenen Code überschneidet. Ich nutze kein gesondertes Exel dokument, sondern habe die daten in einem OLE objekt in einem Formular eingefügt. Nur weiß ich nicht wen ich mit meinem Private Sub wie ansprechen soll, damit die TextBoxen in dem Formular ihre eigentlich bereit stehenden Values annehmen. Heißt: Wie sage ich bspw. TextBox "Text1" Nimm den Wert von "B1" und zeige ihn an.

    Hab in anderen Topics gelesen, dass die dann manchmal einfach die formel angeben, die diese Zelle berechnet, das sollte möglichst nicht der fall sein.

    Lg Kathleen
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Erkennt .Range("B1") nicht als Methode oder Mitglieds...

    Habe nun auf Range umgeschrieben, aber das möchte er nicht erkennen. Was hab ich falsch gemacht?

    Visual Basic-Quellcode

    1. Private Sub Check5_Click()
    2. If Check5.Value Then
    3. Form1!OLE1.Range("E9").Value = 1
    4. End If
    5. End Sub
    7. Private Sub cmdSpeichern_Click()
    8. cmdWeiter.Enabled = True
    9. End Sub
    11. Private Sub cmdWeiter_Click()
    12. Quiz7.Hide
    13. ErgebnisQuiz.Show
    15. ErgebnisQuiz!Text1.Text = Form1!OLE1.Range("B1").Value
    16. ErgebnisQuiz!Text2.Text = Form1!OLE1.Range("B2").Value
    17. ErgebnisQuiz!Text3.Text = Form1!OLE1.Range("B3").Value
    18. ErgebnisQuiz!Text4.Text = Form1!OLE1.Range("B4").Value
    19. ErgebnisQuiz!Text5.Text = Form1!OLE1.Range("B5").Value
    20. ErgebnisQuiz!Text6.Text = Form1!OLE1.Range("B6").Value
    21. ErgebnisQuiz!Text7.Text = Form1!OLE1.Range("B7").Value
    22. ErgebnisQuiz!Text8.Text = Form1!OLE1.Range("B8").Value
    23. ErgebnisQuiz!Text9.Text = Form1!OLE1.Range("B9").Value
    24. ErgebnisQuiz!QuizErgebnis.Text = Form1!OLE1.Range("B10").Value
    25. End Sub


    wenn ihr noch mehr schnipsel haben wollt, sagt was, nur viel mehr ist da auch so nicht drin.

    vielleicht kann man es mit SourceItem und so machen?

    LG Kathleen
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kathleen“ ()

    Bei OLE kann ich dir nicht weiterhelfen, aber für den direkten Zugriff von VB6 auf eine Excel-Instanz geht's so:

    Visual Basic-Quellcode

    1. Dim ZelleA1 As String
    2. Set XLS = CreateObject("Excel.Application")
    3. XLS.Visible = True ' fürs Debugging. Später False, wenn es im Hintergrund passieren soll.
    4. Set wb=XLS.Workboods.Open("C:\x.xlsx")
    5. Set ws=wb.Sheets("Tabelle1")
    6. ZelleA1 = ws.Range("A1").Value
    7. wb.Close False
    Achtung ungetestet.
    Wenn irgendwo noch ein Bug drin ist, musst du ihn halt entfernen ;)
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    was heißt ws?

    und ich sehe jetzt schon voraus, das er mir sagen wird, er möchte es in einer Prozedur.

    Kannst du mir sagen, wie ich den code verändern müsste, wenn er zu beginn des Programms, also wenn das frm Begrüßung.Visible = true hat, die Exel instanz öffnen soll und bis zum endgültigen schließen des Programms dieses erst wieder schließen soll, damit ich die einzelnen frms darauf zugreifen lassen kann ohne es ständig neu zu laden?

    Da ich das Programm später von einer CD oder stick aus laden und abspielen lassen möchte(weil es für ein zusatzmaterial zu einem referat gedacht ist) weiß ich nicht so recht, wie ich das mit dem Verzeichnis machen soll, wo er das Exel abrufen soll. Wie kann ich das so machen, dass er von der Ebene aus nach der Exel Instanz suchen soll, wo das vbprojekt gespeichert ist und von da aus nur ordner weiter innen des pfades durchsuchen soll? Hier die Anordnun:

    • Programmdaten
    • Bilder, Icons, Datenbank, vbProjekt, Formen
    • ->Datenbank
    • Auswertung.xls
    er soll Auswertung aufrufen und am ende in einer neuen xls speichern, damit man die daten später abrufen kann. Naja, das kann man teoretisch auch weglassen, aber wär schon schön.

    Außerdem soll vielleicht ganz am anfang oder nach der begrüßung(welche mit optionsfeldern zu drei unterkategorien führt, auch zu Quiz) und zwischen den nachfolgenden frms, ein Formular kommen das(zu vorigem punkt mit dem daten Speichern) den Namen des ausfüheres aufnimmt und erst weitergibt wenn dieser <>"" ist. Das könnte man ja auch als angabe in der exel machen. Dabei würde wahrscheinlich eher das schwierige sein, dem zu sagen, dass er sein formular erst abgibt, wenn der wert einer der vorgefertigten exeltabellen zelle entspricht. Diese würden dann die namen des kurs entsprechen.

    Danke schonmal im voraus

    Kathleen

    Hoffe es ist nicht alles unmöglich
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kathleen“ ()

    Higlav schrieb:

    Visual Basic-Quellcode

    1. dim wb as Excel.workbook
    2. dim ws as excel.worksheet
    also ists ne variable. gut. Ich versuchs mal...

    kann ich das vielleicht in das modul schreiben, so das er es mit den anderen frm zusammen lädt?

    kann ich das dim as String auch als Integer machen? Der soll da eh nur zahlen machen. Mit String hab ich die befürchtung, er kann damit nicht mehr rechnen.

    das mit dem Pfad namen, kann man das mit App.Path machen und .IntDir?
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Kathleen“ ()

    Kathleen schrieb:

    kann ich das vielleicht in das modul schreiben, so das er es mit den anderen frm zusammen lädt?
    Schreib's meinetwegen wohin du willst.
    Du solltest aber etwas strukturierter denken.
    Löse erst mal das eine Problem (Excel-Zellen zu lesen) unabhängig von deiner Umgebung.
    Wenn du verstanden hast, wie es funktioniert, kannst du es dort einbinden, wo es Sinn macht.
    Und trenne GUI und Daten!

    Kathleen schrieb:

    kann ich das dim as String auch als Integer machen?
    Kannst du, Excel-intern ist es eh ein Variant und kein String.
    Bei Integer fliegt der Code aber auf die Schnauze sobald jemand Text in die Zelle schreibt.
    Als String kriegst du wenigstens immer einen gültigen Wert.

    Kathleen schrieb:

    Mit String hab ich die befürchtung, er kann damit nicht mehr rechnen.
    Du sollst mit den Strings auch nicht rechnen.
    Wenn du mit den Inhalten rechnen willst, musst du sie erst parsen (prüfen) und nur wenn es sinnvoll ist, darfst du sie in Zahlen konvertieren.
    Die berechneten Ergebnisse darfst du dann zur Anzeige wieder in Strings konvertieren.
    Habe ich schon erwähnt, dass GUI und Daten getrennt gehören?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Wenn Du vb6 hast, dann verstehe ich nicht, warum nicht das gesamte Quiz in VB6 erstellt wird und anschließend die Ergebnisse in eine Exceldatei oder einfach im csv Format gespeichert werden, wenn die Auswertung in Excel stattfinden soll.

    Plan-B wäre, alles gleich in Excel mittels vba zu erstellen.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Die Werte werden von Option oder Check feldern über den code in von diesem bestimmten wert verwandelt, der Anwender kann nur diese Option oder Check felder enablen. Und wer ist bitte "GUI und Daten"?

    Du meinst nur mit Exel? Weil das dann nicht so aussieht wie es soll. Bilder usw... Ja ich weiß das ich per VBA auch UserForm erstellen kann, aber das nun alles nochmal? Bin grade nochmal mit den letzten eurer Vorschläge geupdatet am testen.
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    peterfido schrieb:

    Plan-B wäre, alles gleich in Excel mittels vba zu erstellen.

    Und Plan C wäre Googledocs zu benutzen. Obwohl ich das vielleicht sogar ein wenig höher einstufen würde...

    @Kathleen: GUI = Graphical User Interface und Daten sind.. nunja, die Daten halt.

    googledocs? Hab ich nicht.

    hm, jetzt nimmt der mir die Daten einfach weg... achso, der glaubt die Excel Tabelle enthielte die richtigen Werte.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim Excel As Object
    3. Private Sub Command1_Click()
    4. Set Excel = CreateObject("Excel.Application")
    5. Excel.Visible = False
    6. CommonDialog1.Filter = ("Excel-Datei (*.xls)|*.xls;")
    7. CommonDialog1.InitDir = App.Path
    8. CommonDialog1.ShowOpen
    10. If CommonDialog1.FileName <> "" Then
    11. Excel.Workbooks.Open CommonDialog1.FileName
    12. Text1.Text = Excel.Range("B1").Value
    13. Text2.Text = Excel.Range("B2").Value
    14. Text3.Text = Excel.Range("B3").Value
    16. Text4.Text = Excel.Range("B4").Value
    17. Text5.Text = Excel.Range("B5").Value
    18. Text6.Text = Excel.Range("B6").Value
    20. Text7.Text = Excel.Range("B7").Value
    21. Text8.Text = Excel.Range("B8").Value
    22. Text9.Text = Excel.Range("B9").Value
    23. Excel.Range("B10").Value = QuizErgebnis.Text
    24. End If
    25. End Sub


    Was muss ich tun, damit der die Werte der Textfelder in die genannten Zellen einfügt und den Wert der Zelle "B10" in QuizErgebnis.Text einfügt, wohlgemerkt eine stinknormale TextBox?
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Kathleen schrieb:

    googledocs? Hab ich nicht.

    Doch, das hast du. ;) Einfach auf "Erstellen" und "Formular" auswählen.

    wie sag ich dem denn, welche die richtige antwort ist?
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

Facebook
Telefonspende