ein und zweidimensionales array

[Haribobaerchen]

zweidemensionale arrays

Hallo,
ich brauche eure Hilfe.
Wir sind gerade dabei einen zweidim. Array zuprogrammieren.
Der folgenden Tabelle

Januar Februar März Summe
______________________________________

Aachen 5 12 15

Berlin 7 8 8

Duisburg 12 10 14

Summe

Durchschnitt



Die Werte müssen in die Tabelle eingetragen werden und von VBA gelesen werden.
Mittels eines Commandbutten müssen die Werte der Summen und der Durchschnitt ermittelt werden.
Dies soll mit hilfe eines zweidim. Arrays geschehen.

Könntet ihr mir die Lösung dazu geben?

Im folgenden habe ich schon einen Versuch gestartet,der aber nicht geht

Option Base 1

Dim Zeile As Byte
Dim Spalte As Byte
Dim SummeM(1 To 3) As Currency
Dim SummeO(1 To 3) As Currency
Dim Tabelle(4, 5) As Double
Dim Durchschnitt(1 To 4) As Currency
Dim Zähler As Byte




Private Sub CommandButton1_Click()
Call eingabe
Call verarbeitung
Call ausgabe
End Sub

Sub eingabe()
For Zeile = 2 To 4
Zeile = Cells(2, 2)
For Spalte = 2 To 4

Next
Next
End Sub

Sub verarbeitung()
SummeM(1) = Tabelle(4, 5) + SummeM(1)
SummeO(1) = Tabelle(4, 5) + SummeO(1)
Durschnitt(1to 4)= SummeM(3) / 3
End Sub

Sub ausgabe()
Cells(5, 2) = SummeM
End Sub

 

[Haribobaerchen]

Hallo,
ich soll eine VBA-Prozedzr erstellen,die nach Eingabe eines Anfangskapitals,des Zinssatzes und der Laufzeit (jahre) durch Inputputboxen das Endkapital ermittelt und ausgegeben werden.

Dies soll alles bittels eines Array sein.



Könnt ihr mir helfen?

 

[Klassenkämpfer]

So wie ich das sehe fehlt bei deiner Prozedur "Eingabe" einiges...aber ich kenne diese Programmiersprache nicht, hatte das letzte Mal vor 2 Jahren mit Informatik zu tun...

Sub eingabe()
For Zeile = 2 To 4
Zeile = Cells(2, 2)
For Spalte = 2 To 4

Next
Next
End Sub

Die doppelte For-Next-Schleife sieht schon mal gut aus, aber in dieser Schleife musst du dann die Werte zusammen zählen lassen und mit den Indices (Zeile,Spalte) arbeiten....
hab wegen Klausurstress auch nicht so viel Zeit mich da einzuarbeiten...versuchs mal mit einem Struktogramm - hat man uns im LK damals so beigebracht.
Viel Erfolg noch

 

[Bishop]

Januar Februar März Summe
______________________________________

Aachen 5 12 15

Berlin 7 8 8

Duisburg 12 10 14

Summe

Durchschnitt

der array dafuer koennte einfach so aussehen ...

sub zweidimarray()
dim arr(5,5)

arr(1,1) = "Aachen"
arr(1,2) = "Berlin"
arr(1,3) = "Duisburg"
arr(1,4) = "Summe"
arr(1,5) = "Duschschnitt"
arr(2,1) = 5
arr(2,2) = 7
arr(2,3) = 12
arr(2,4) = arr(2,1) + arr(2,2) + arr(2,3)
arr(2,5) = arr(2,4) / 3
usw...

msgbox "Spalte 1" & arr(1,1) & arr(1,2) & arr(1,3) & arr(1,4) & arr(1,5)

end sub

wenne die jewilige Stadt nicht mit reinnehmen willst nimmste einfach nen array der 4 spalten udn 4 zeilen hat


alt tabelle sieht das dann so aus


arr(4,4)

spalte1 spalte2 spalte 3 spalte 4
zeile 1 5 12 15

zeile 2 7 8 8

zeile 3 12 10 14

zeile 4

nur ob es sinnvoll ist die ergebnisse summe und durchschnitt mit in den array zu nehmen find ich fraglich, aber jeder wie er mag


Ich hoffe das war jetzt nicht zu verwirrend und konnte helfen, binn halt noch halb am schlafen.

 

[Bishop]

Hallo,
ich soll eine VBA-Prozedzr erstellen,die nach Eingabe eines ...

dann nimmste einfach einen eindimensionalen array
meintewegen mit 99 stellen
dim arr(99)


arr(1) = inputbox(promt:="Anfangskapital", _ title:="eingabe anfangskapital", default:="anfangskapital")
arr(2) = inputbox(promt:="Zinssatz" _ title:="eingabe zinssatz", default:="zinssatz")
....

danach dann einfach die berechnung und alles ist gut
ausgabe nicht vergessen

zb

msgbox "Endkapital: " & arr(99)

 

[Haribobaerchen]

Danke an Bishop.
Mein Lehrer meinte es würde genau so gehen