Thema Datum  Von Nutzer Rating
Antwort
Rot Problem bei Datenfeld
 06.06.2008 21:12:54 Ben
NotSolved
07.06.2008 07:45:46 jh
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
06.06.2008 21:12:54		 Views:
1681		 Rating:
     
Antwort:
  Ja
Thema:
Problem bei Datenfeld
Guten Tag Leute,
habe ein kleines Problem ich soll ein Datenfeld erstellen was 9 Körpergrößen einliest und die Durchschnittgröße berechnet. Ich poste euch mal meinen Code, wäre nett wenn mir wer helfen kann :)

Sub Main()
Dim intErgebnis As Integer
intErgebnis = Arithmetischesmittel

Dim intGröße(9) As Integer
intGröße(1) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(2) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(3) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(4) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(5) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(6) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(7) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(8) = InputBox("Bitte geben Sie eine Größe ein")
intGröße(9) = InputBox("Bitte geben Sie eine Größe ein")

Cells(2, 1) = intGröße(1)
Cells(3, 1) = intGröße(2)
Cells(4, 1) = intGröße(3)
Cells(5, 1) = intGröße(4)
Cells(6, 1) = intGröße(5)
Cells(7, 1) = intGröße(6)
Cells(8, 1) = intGröße(7)
Cells(9, 1) = intGröße(8)
Cells(10, 1) = intGröße(9)
Cells(11, 1) = Arithmetischesmittel

End Sub

Function Arithmetischesmittel() As Integer
Arithmetischesmittel = intGröße(1) + intGröße(2) + intGröße(3) + intGröße(4) + intGröße(5) + intGröße(6) + intGröße(7) + intGröße(8) + intGröße(9) / 9
End Function






Es erscheint immer die Fehlermeldung am ende "Sub oder Function nicht definiert".

Wäre nett wenn mir wer sagt wie ich das Programm lauffähig bekomme und mir meinen Fehler sagt :). Vielen dank für eure Hilfe.

Mit freundlichen Grüßen

Benny

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Problem bei Datenfeld
 06.06.2008 21:12:54 Ben
NotSolved
07.06.2008 07:45:46 jh
NotSolved