Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Index außerhalb ..." in If-Bedingung

"Index außerhalb ..." in If-Bedingung
Tommy
Hi Leute,
Ich prüfe in einer Bedingung so etwas wie:
Sub pr()
For i = 1 to Ubound(arr)
If arr(i) = arr(i+2) then
Else
Endif
Next i
End Sub
Logischerweise bekomme ich da den Laufzeitfehler 9.
Wie kann ich das am besten lösen.
Hab es mal mit ner Goto-Anweisung versucht. Finde ich aber nicht so gut.
Und das array zu "vergrößern" möchte ich eigenlich nicht.
Ich will im Grunde, dass die if-Bedingugn nur geprüft wird, wenn (i Gibt es da noch einen anderen Weg?
Vielen Dank im voraus.
Grüße
Tommy
For i = 1 to Ubound(arr)-2
27.04.2010 16:19:15
IngoG
Hallo Tommy,
da sonst nichts in deinem Loop passiert lass ihn einfach nicht bis zum Ende laufen ;-)
Gruß Ingo
AW: "Index außerhalb ..." in If-Bedingung
27.04.2010 16:30:16
Tommy
Hallo,
nee das geht nicht. Da passiert schon noch was.
GEnauer:
Sub pr()
For i = 1 to Ubound(arr)
If arr(i) = arr(i+2) then
arr(i) = ....
Elseif  arr(i) = arr(i+1) then
arr(i) = ....
Else
arr(i) = ....
Endif
Next i
End Sub
die Schleife muss schon bis zum Ende gehen.
...und warum ergänzt du dann die Bedingung...
27.04.2010 16:42:42
Luc:-?
…nicht entsprechend, Tommy…?!
If i < UBound(arr) - 1 And arr(i) = arr(i + 2) Then bzw…
If i < UBound(arr) And arr(i) = arr(i + 1) Then
Gruß Luc :-?
Anzeige
So hatte ich es auch erst versucht.
27.04.2010 16:55:34
Tommy
Hallo Luc,
weil dann auch ne Fehlermeldung (9) kommen würde.
So wie du es geschrieben hast, würde er "arr(i) = arr(i + 2)" prüfen auch wenn "i >= UBound(arr) - 1". Und damit wäre arr(i + 2) außerhalb des gültigen Bereichs!
Ja, stimmt, wg And wird beides geprüft,...
27.04.2010 22:58:46
Luc:-?
…Tommy;
dann bleibt nur teilen… 
If i < UBound(arr) - 1 Then
If arr(i) = arr(i + 2) Then
…
ElseIf  arr(i) = arr(i + 1) Then
…
Else
…
End If
ElseIf i < UBound(arr) Then
If  arr(i) = arr(i + 1) Then
…
Else
…
End If
Else
…
End If
…alternativ ggf so… 
If i < UBound(arr) - 1 Then
If arr(i) = arr(i + 2) Then
…
ElseIf  arr(i) = arr(i + 1) Then
GoTo v1
Else: GoTo v2
End If
ElseIf i < UBound(arr) Then
v1: If  arr(i) = arr(i + 1) Then
…
Else: GoTo v2
End If
Else
v2: …
End If
Es gibt da sicher noch andere Möglichkeiten, bspw mit Select Case…
Gruß Luc :-?
Anzeige
AW: "Index außerhalb ..." in If-Bedingung
27.04.2010 16:48:43
IngoG
Hallo Tommy
trotzdem solltest Du den Loop nur bis Ubound(arr)-2 laufen lassen
anschließend hinter dem next machst Du folgendes
if arr(Ubound(arr)-1) = arr(Ubound(arr)) then arr(Ubound(arr)-1) =...
else arr(Ubound(arr)-1)=...
und
arr(Ubound(arr))=...
die beiden letzten umläufe handlest du also manuell...
Gruß Ingo
AW: "Index außerhalb ..." in If-Bedingung
27.04.2010 17:13:32
Tommy
Hi Ingo,
ja das würde gehen. Würde in meinem Fall abre sehr viele Zeilen produzieren.
Der code ist noch etwas komplexer als ich es hier geschrieben habe. Der Vergleich bis zu i+5! Ich müsste dann extrem häufig eine Anweisung aufrufen.
Zudem komm hinzu, dass die Anweisung eine Prouedur aufruft, dem einige Parameter übergeben werden müssen.
ungefär so:
Call KonglomeriertFünf( _
adblDis, _
adblZeitGreif, _
adblZeitTotVG, _
adblZeitTotNG, _
adblZeitTotKong, _
adblZeitWeg, _
dblExAccLeer, _
dblExAccVoll, _
dblExDecLeer, _
dblExDecVoll, _
dblExVelMaxVoll, _
dblExVelMaxLeer, _
dblExZeitGreif0, _
dblExZeitGreif1, _
dblExZeitTotVG, _
dblExZeitTotNG, _
dblExZeitTotKong, _
intExPaketeMax, _
RunZeit)
Das wird dann sehr sehr unschön.
Im Moment tendiere ich dazu das Datenfeld arr einfuch um 5 weitere Plätze zu erweitern. Richtig schön ist das aber auch nicht. Muss dann aufpassen, dass ich im späteren Verlauf als Obergrenze (Ubound(arr) - 5) benutze.
Oder gibt es doch noch ne andere Lösung?
Gruß
Tommy
Anzeige
AW: "Index außerhalb ..." in If-Bedingung
27.04.2010 17:30:11
IngoG
Hallo nochmal,
dann in diesem Stil:
For i = 1 to Ubound(arr)
if (i+2<=ubound(arr))and ( arr(i) = arr(worksheetfunction.min(Ubound(arr) ,i+2))) then ...
dadurch wird der parameter nie größer als ubound(arr)
Gruß Ingo
AW: "Index außerhalb ..." in If-Bedingung
27.04.2010 18:23:20
Tommy
Danke für den Vorschlag, aber ich wüsste nicht wo ich diese Bedingung in mein eProzedur einbauen sollte. 
Sub pr()
For i = 1 to Ubound(arr)
If arr(i) = arr(i+2) then
arr(i) = ....
Elseif  arr(i) = arr(i+1) then
arr(i) = ....
Else
arr(i) = ....
Endif
Next i
End Sub

AW: "Index außerhalb ..." in If-Bedingung
27.04.2010 19:57:01
IngoG
Hallo Tommy,
<pre>Sub pr()
For i = 1 to Ubound(arr)
if (i+2<=ubound(arr))and ( arr(i) = arr(worksheetfunction.min(Ubound(arr) ,i+2))) then
arr(i) = ....
Elseif (i+1<=ubound(arr))and ( arr(i) = arr(worksheetfunction.min(Ubound(arr) ,i+1)))
arr(i) = ....
Else
arr(i) = ....
Endif
Next i
End Sub</pre>
sollte funzen
Gruß Ingo
Anzeige

299 Forumthreads zu ähnlichen Themen

Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
Anzeige
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:05:00
Thread-ID: 1005503
2 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:06:00
Thread-ID: 1005504
4 Beiträge
Knifflig - Zeilen einfügen
Frederic

Guten Morgen liebes Forum,
ich hab da ein kleines kniffeliges Problem, hoffe, ihr könnt mir evtl. weiterhelfen:
Ich exportiere Daten per Makro in eine neue leere Mappe (Mappe1.xls).
Vorab: Die Spaltenzuordnung ist immer identisch!
Jetzt möchte ich statt manuell wie bisher, die R...
29.08.2008 07:29:19
Thread-ID: 1005628
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
4
4
3
1
3
9
4
3
9
7
5
1
6
3
6
13
2
3
3
6
20
1