Fehler in array

Forumthread: Fehler in array

Fehler in array

14.04.2008 09:24:06

Sebastian

Hallo,
ich lese eine Textdatei ein.
Nun möchte ich alle werte in einem array speichern um später darin suchen zu können nach bestimmten Werten
Dim arri()
Dim aiz As Integer
aiz = 1
Do While Not EOF(1)
arri(aiz) = strParse(Trim(Textzeile), ";", 2)
Loop
Nun bekomme ich bei
arri(aiz) = strParse(Trim(Textzeile), ";", 2)
Laufzeitfehler '9'
Index ausserhalb des gültigen Bereichs

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fehler in array

14.04.2008 10:01:34

Renee
AW: Fehler in array

14.04.2008 10:30:29

Sebastian
AW: Fehler in array

14.04.2008 10:39:21

Rudi
AW: Fehler in array

14.04.2008 10:56:00

Renee
AW: Fehler in Vorschlag

14.04.2008 11:05:17

Renee

AW: Fehler in array

14.04.2008 10:01:34

Renee

Hi Sebastian,
Vor dem Abfüllen sollte der Array redimensioniert und
nach dem Abfüllen muss der Array-Index erhöht werden.
ungefähr so:


Do While Not EOF(1)
ReDim Preserve arri(aiz)
arri(aiz) = strParse(Trim(Textzeile), ";", 2)
aiz = aiz + 1
Loop

GreetZ Renée

AW: Fehler in array

14.04.2008 10:30:29

Sebastian

ok danke geht!!
Hat einer ein Beispiel wie ich in nem array suchen kann?
Ich möchte folgendes machen. ich habe einen wert z.B. 42
dann hab ich im array an position
29 = 37,5
30 = 39
31 = 42,1
32 = 43
Jetzt möchte ich das array durchsuchen nach dem höchten möglichen wert der noch in die zahl passt
also soll das suchergebniss position 30 zurückgeben, da position 31 ja schon vom wert größer ist. Und dann möchte ich die werte der 10 position davor addieren. also die summe von position 20 bis 30
Wisst ihr ungefähr was ich vorhabe?

AW: Fehler in array

14.04.2008 10:39:21

Rudi

Hallo,
einfach mit ner Schleife


SuchWert = 42
For i = LBound(MeinArray) To UBound(MeinArray)
If MeinArray(i)

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Fehler in array

14.04.2008 10:56:00

Renee

Hi Sebastian,
Wisst ihr ungefähr was ich vorhabe?
Nein, aber dunkle Ahnungen steigen, wie Nebel aus den Sümpfen ;-)
Warum liest du die Werte nicht in eine Tabelle und arbeitest dann mit Formeln ?
Aber vielleicht so als Ansatz:


Dim SuchWert As Double
Dim aix As Integer, aix2 As Integer
Dim dSumme As Double
aix = 0
SuchWert = 42
Do
aix = aix + 1
Loop While aix

GreetZ Renée

AW: Fehler in Vorschlag

14.04.2008 11:05:17

Renee

Hi,
Statt 5 muss 10 stehen:


For aix2 = Application.Max(aix - 10, 0) To aix - 1

GreetZ Renée

Beliebteste Forumthreads (12 Monate)

Forumthread: Fehler in array

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread