Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

out of range error

Forumthread: out of range error

out of range error
06.01.2004 10:58:44
Gorginio
Hallo zusammen,

Warum erhalte ich bei der For schleife einen out of range error??

....
' Funktionierende Schleife zum einlesen des arrays; (array zeilenindex = i)
' letzten Wert fuer i an n uebergeben
n = i

i = 1
For i = 1 To n Step 1
If Data_array(i, 1) = "Hund" And Data_array(i, 2) = "Haus" Then
Debug.Print Data_array(i, 1) & " " & Data_array(i, 2);
End if
Next i
....
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: out of range error
06.01.2004 11:03:50
Hans W. Herber
Hallo Gorginio,

in Dienem Beispiel wird eine Schleife über einen Datensatz geführt (Step 1 kann übrigens entfallen). Kann es sein, dass das Array nicht mit der Startzahl 1 initialisiert wurde und der erste Datensatz den Zeilenindex 0 hat?

gruss hans
AW: out of range error
06.01.2004 12:13:43
Gorginio
Hallo Hans,

Nein, ich habe

Option Explicit
Option Base 1

angeben.

gruss Georg
Anzeige
AW: out of range error
06.01.2004 12:19:18
Martin Beck
Hallo Georg,

irgendwo in Deinem Code hast Du den Array deklariert und gefüllt und so lange Du uns den Code vorenthältst, läßt sich nicht viel sagen. Also: poste den kompletten Code.

Gruß
Martin Beck
AW: out of range error
06.01.2004 17:08:48
Gorginio
Sorry, fuer die spaete Antwort,
hier nun der gesamte code...

Warum out of range???

Option Explicit
Option Base 1

'Finds last row with data in the table INSERT HERE

Function last_row_address(s As String, column1 As Integer)
last_row_address = Cells(Rows.Count, 1).End(xlUp).Row
End Function




Sub selector()
Dim i, j, l, m, n As Integer
Dim Data_array() As String
Dim lastrow As Long
lastrow = last_row_address("INSERT HERE", 1)
Sheets("INSERT HERE").Activate
ReDim Data_array(1 To lastrow, 1 To 2)
i = 1
' 3 rows headline
j = 4
For i = 1 To lastrow Step 1
Data_array(i, 1) = Cells(j, 1).Value
Data_array(i, 2) = Cells(j, 2).Value
j = j + 1
Next i
n = i
i = 1
For i = 1 To n
If Data_array(i, 1) = "Tier" And Data_array(i, 2) = "Haus" Then
Debug.Print Data_array(i, 1) & " " & Data_array(i, 2);
End If
Next i
End Sub

Anzeige
AW: out of range error
06.01.2004 17:42:39
Martin Beck
Hallo Georg,

nimm statt

n = i

n = i - 1

In der Schleife wird i hochgezählt und zwar bis lastrow + 1 (immer eins weiter, als in der Schleife angegeben. Da Du den Array nur mit lastrow deklariert hast, läuft die letzte Schleife im letzten Durchlauf auf einen Fehler, weil n = lastrow + 1 und das ist out of range.

Gruß
Martin Beck
Anzeige
AW: out of range error
09.01.2004 15:50:39
Gorginio
Danke fuer den Tip, das war's nun rennt das Ding

Liebe Gruesse,
Gorginio
;

Forumthreads zu verwandten Themen

Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
Index ausserhalb des gültigen Bereichs
RainerK

Hallo,
bei folgendem Code funktioniert erhalte ich eine Fehlermeldung - Index ausserhalb des gültigen Bereichs:
Sub ws1() Dim wb As String wb = "Vergleich " & Tabelle1.Range("H21") & ".xls" If Tabelle8.Range("I13") = True Then Workbooks(ws).Worksheets("info").Range("D1") = True...
24.07.2010 17:23:50
Thread-ID: 1168691
6 Beiträge
Index außerhalb des gültigen Bereichs
sabbelschlaeppchen

Über eine Userform will ich Daten in eine Tabelle schreiben lassen. Wenn man auf den Ok-Button der Userform klickt soll folgende Prozedur ausgeführt werden: Private Sub CommandButton1_Click() Sheets("Tabelle1").Select Range("C3").Select ActiveCell.Value = Klasse Range("C4").Select ActiveCell.Va...
11.01.2011 20:17:41
Thread-ID: 1195100
5 Beiträge
Index außerhalb des gültigen Bereichs
Korl

Hallo,
ich habe habe lange nicht mehr im VBA-Bereich gemacht, deshalb ist mir wohl einiges abhanden gekommen ;-)
Mit nachfolgendem Code stoße ich an Grenzen. Fehlerwert = siehe Betreff Sub Daten_übernehmen() ' Daten aus der Datenbank ins Formular übernehmen ' aus der aktiven Zeile einz...
17.07.2011 20:48:42
Thread-ID: 1222511
4 Beiträge
Indexnummer eines Blattes ohne VBA?
Rainer

Hallo!Ich glaube, dass ich im Moment auf dem Schlauch stehe.Ich suche eine Funktion (ohne VBA), die mir die Index-Nummer eines Tabellenblattes ermittelt.Mit einer UDF habe ich eine Lösung :-(Danke
Rainer
31.05.2002 14:44:56
Thread-ID: 125100
5 Beiträge
Anzeige
Index formel und wenn formel in Vba integrieren
Angelika

Hallo
ich möchte zwei formeln die ich in meinem Datenblatt ( Daten1 ) habe in VBA einfügen.
die Formeln sollen in VBA weil immer wieder Zeilen aus der Tabelle gelöscht werden.
Leider ist das zu hoch für mich. Kann mir bitte jemand sagen wie ich das machen kann.
Ich habe die Tab...
01.03.2012 07:23:48
Thread-ID: 1252910
9 Beiträge
Index aßerhalb des gültigen Bereichs. Array
Michel

Hi Leute,
habe folgendem Code geschrieben. Private Sub Swingingdoor() Dim x As Long Dim eps As Long Dim y(100) As Long, i As Integer, j As Integer Dim t(100) As Long Dim stg As Long Dim delta As Long x = Range("G12").Value eps = "2" i = i + 1 If j delta = x - stg * i - y(j) If Abs(delta) &...
26.04.2012 23:20:47
Thread-ID: 1261183
9 Beiträge
Anzeige
Laufzeitfehler 9, Index außerhalb des bereichs
Riccardo

Hallo Leute,
Ich habe 5 Arbeitsblätter. jetzt soll das Makro auf dem dritten von Zeile 2005 bis 2120 die Werte mit den ersten 3 blättern vergleichen, sobald ein Treffer erscheint (der erscheint mit 100%iger sicherheit), dann werden die Werte von dem Blatt, auf dem es gefunden wurde in blatt...
20.12.2012 15:44:39
Thread-ID: 1291711
5 Beiträge
Anzeige
Index außerhalb des gültigen Bereichs
Manu

Hallo Profis,
ich bin mal wieder am verzweifeln. Ich habe ein Makro das aus einzelnen Tabellen Daten in eine Datei kopiert und anschließend daraus neue Dateien pro Mitarbeiter erstellt und abspeichert. Dieses Makro funktioniert auf meinem Computer wunderbar ohne Fehlermeldungen.
Wenn i...
26.02.2013 17:46:01
Thread-ID: 1301147
5 Beiträge
Fehler 9: Index außerhalb des gültigen Bereichs
Constantin

Hallo,
ich würde gerne das nachstehende Programmm (von Franz) auf geänderte Bedingungen anpassen wollen, da ich in der Schleife "For Zeile = 1 To ZeileQ" den "Fehler 9: Index außerhalb des gültigen Bereichs" erhalte.
Zum einen beginnt der Datenbereich der Quelldatei jetzt(mit der Übersc...
15.03.2013 14:13:56
Thread-ID: 1304236
5 Beiträge
INdex außerhalb des gültigen Bereich
Tina

Hallo,
also ich hätte da ein Problem. Ich habe eine Matrix (A2:J2) und will diese in VBA einlesen.
Folgenden Code habe ich:
Sub Schleife dim j as byte, mat() as double for j = 1 to 10 mat(2,j)=cells(2,j) next j End Sub beim ausführen bekomme ich jedes Mal die Meldung: Index außerha...
21.05.2013 19:04:13
Thread-ID: 1314166
4 Beiträge
VBA|UserForm For-Each-Schleife zählt nicht korrekt
Mario

Hallo zusammen,
bei folgendem Code zählt meine For-Each Schleife fehlerhaft.
Solange die Tabelle entsprechenden Suchwert beinhaltet, wird auch der richtige Wert angegeben.
Selbst bei einem Eintrag wird auch nur 1 angezeigt.
Wenn die Tabelle aber keinen Eintrag mit diesem Suchwe...
10.07.2013 01:38:15
Thread-ID: 1321752
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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