Array in VBA erstellen < BASIC < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 21:04 Mo 08.03.2010 | | Autor: | tynia |
Hallo. ich habe leider nicht soviel Ahnung von VBA. Ich hoffe, einer von euch kann mir helfen.
Ich würde gerne eine Tabelle über ein Array erstellen, wenn man das so nennen kann. Also ich habe eine Tabelle, die aus 5 Spalten und z.B. 10 Zeilen besteht. jede spalte der tabelle soll über ein array erzeugt werden. ich weiß gar nicht, ob ich mich richtig ausdrücke, aber ich brauche sowas, damit ich die einzelnen spalten später miteinander vergleichen kann und berechnungen damit machen kann. die zahlen in den jeweiligen arrays sollen zufällig sein und die einzelnen arraylängen sollen nicht länger als 10 sein, können aber kleiner 10 sein.
Kann mir jemand helfen?
LG
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 23:05 Di 09.03.2010 | | Autor: | rainerS |
Hallo!
> Hallo. ich habe leider nicht soviel Ahnung von VBA. Ich
> hoffe, einer von euch kann mir helfen.
>
> Ich würde gerne eine Tabelle über ein Array erstellen,
> wenn man das so nennen kann. Also ich habe eine Tabelle,
> die aus 5 Spalten und z.B. 10 Zeilen besteht. jede spalte
> der tabelle soll über ein array erzeugt werden. ich weiß
> gar nicht, ob ich mich richtig ausdrücke, aber ich brauche
> sowas, damit ich die einzelnen spalten später miteinander
> vergleichen kann und berechnungen damit machen kann. die
> zahlen in den jeweiligen arrays sollen zufällig sein und
> die einzelnen arraylängen sollen nicht länger als 10
> sein, können aber kleiner 10 sein.
Ich habe noch nicht ganz verstanden, was du machen willst: Willst du die Zellen einer Excel-Tabelle mit Werten aus einem Array belegen?
Das ginge zum Beispiel so:
| 1: | ' Lege 5 Array-Variablen an, jeweils mit 10 Einträgen, d.h. Index von 0..9
| | 2: | Dim Spalte1(9)
| | 3: | Dim Spalte2(9)
| | 4: | Dim Spalte3(9)
| | 5: | Dim Spalte4(9)
| | 6: | Dim Spalte5(9)
| | 7: | Dim i as integer
| | 8: |
| | 9: | ' Besetze das Array Spalte1 mit zufälligen Werten (Aufruf der FUnktion Rnd())
| | 10: | For i=0 to UBound(Spalte1)
| | 11: | Spalte1(i) = Rnd()
| | 12: | Next
| | 13: |
| | 14: | ' Kopiere Werte von Array Spalte1 in die erste Spalte der aktuellen Excel-Tabelle
| | 15: | ' Beachte: Das Array beginnt bei 0, die Zeilennummern der Tabelle bei 1
| | 16: | With ActiveSheet
| | 17: | For i = 0 to UBound(Spalte1)
| | 18: | .Cells(i+1,1).Value = Spalte1(i)
| | 19: | Next
| | 20: | End With |
Viele Grüße
Rainer
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 16:33 Do 11.03.2010 | | Autor: | tynia |
das wollte ich haben. vielen dank
|
|
|
|
