Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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?

Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige