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

Laufzeitfehler 9, Index außerhalb des bereichs

Forumthread: Laufzeitfehler 9, Index außerhalb des bereichs

Laufzeitfehler 9, Index außerhalb des bereichs
20.12.2012 15:44:39
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 nummer 5 ("Exportformatierung") kopiert.
mein derzeitiger Code: 

If (Target.Address = "$E$2004") Then
Worksheets("Exportformatierung").Range("A1:C250").ClearContents
For k = 1 To 250
For i = 2005 To 2110
For j = 1 To 75
If (ActiveSheet.Cells(i, 3).Value = Worksheets("NovaAlert")._
Cells(j, 1).Value) Then
Worksheets("Exportformatierung").Cells(k, 1) = Worksheets_
("NovaAlert").Cells(j, 1).Value
Worksheets("Exportformatierung").Cells(k, 2) = Worksheets_
("NovaAlert").Cells(j, 2).Value
Worksheets("Exportformatierung").Cells(k, 3) = Worksheets_
("NovaAlert").Cells(j, 3).Value
Else
If (ActiveSheet.Cells(i, 3).Value = Worksheets("NovaAlert _
Basic").Cells(j,1).Value) Then
Worksheets("Exportformatierung").Cells(k, 1) = Worksheets_
("NovaAlert Basic").Cells(j, 1).Value
Worksheets("Exportformatierung").Cells(k, 2) = Worksheets_
("NovaAlert Basic").Cells(j, 2).Value
Worksheets("Exportformatierung").Cells(k, 3) = Worksheets_
("NovaAlert Basic").Cells(j, 3).Value
Else
If (ActiveSheet.Cells(i, 3).Value = Worksheets_
("Handeslware").Cells(j,1).Value) Then
Worksheets("Exportformatierung").Cells(k, 1) =_
Worksheets("Handeslware").Cells(j, 1).Value
Worksheets("Exportformatierung").Cells(k, 2) =_
Worksheets("Handeslware").Cells(j, 2).Value
Worksheets("Exportformatierung").Cells(k, 3) =_
Worksheets("Handeslware").Cells(j, 3).Value
End If
End If
End If
Next j
Next i
Next k
End If
dabei tritt jetzt ein Laufzeitfehler auf, dass mein Index außerhalb des erlaubten Bereiches liegt. Beim Debuggen meckert er bei der innersten If-Anweisung...
Woran liegt das? - Hat jemand eine Idee?

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 9, Index außerhalb des bereichs
20.12.2012 16:16:13
Rudi
Hallo,
ich kann mir nicht vorstellen, das das so heißt: Worksheets("Handeslware")
Gruß
Rudi

Handeslware oder Handelsware ?
20.12.2012 16:23:16
NoNet
Hallo Riccardo,
ich kenne Deine Mappe nicht und shcon gar nicht die enthaltenen Blätter.
Es fällt mir jedoch auf, dass das Blatt "Handeslware" referenziert wird, ist das beabsichtigt oder soltle es nicht doch "Handellware" heissen ?
Bei mehrfacher Nennung von Blättern empfiehlt es sich übrigens, mit Objektvariablen zu arbeiten, z.B. folgendermassen (Code nicht auf Funktionalität oder sinnhaftigkeit geprüft !) :
Sub Beispiel()
Dim wsExport As Worksheet, wsHandelsware As Worksheet, _
wsNova As Worksheet, wsNovaBasic As Worksheet
Set wsExport = Worksheets("Exportformatierung")
Set wsHandelsware = Worksheets("Handelsware")
Set wsNova = Worksheets("NovaAlert")
Set wsNovaBasic = Worksheets("NovaAlert Basic")
If (Target.Address = "$E$2004") Then
wsExport.Range("A1:C250").ClearContents
For k = 1 To 250
For i = 2005 To 2110
For j = 1 To 75
If (ActiveSheet.Cells(i, 3).Value = wsNova.Cells(j, 1).Value) Then
wsExport.Cells(k, 1) = wsNova.Cells(j, 1).Value
wsExport.Cells(k, 2) = wsNova.Cells(j, 2).Value
wsExport.Cells(k, 3) = wsNova.Cells(j, 3).Value
Else
If (ActiveSheet.Cells(i, 3).Value = wsNovaBasic.Cells(j, 1).Value) Then
wsExport.Cells(k, 1) = wsNovaBasic.Cells(j, 1).Value
wsExport.Cells(k, 2) = wsNovaBasic.Cells(j, 2).Value
wsExport.Cells(k, 3) = wsNovaBasic.Cells(j, 3).Value
Else
If (ActiveSheet.Cells(i, 3).Value = wsHandelsware.Value) Then
wsExport.Cells(k, 1) = handelsware.Cells(j, 1).Value
wsExport.Cells(k, 2) = handelsware.Cells(j, 2).Value
wsExport.Cells(k, 3) = handelsware.Cells(j, 3).Value
End If
End If
End If
Next j
Next i
Next k
End If
End Sub
Die Blattnamen können nun ganz einfach oben in den SET Anweisungen angepasst werden !
Gruß, NoNet

Anzeige
Schreibfehler und Handelsware ?
20.12.2012 16:25:49
NoNet
Hi @ll,
auch ich bin nicht frei von Schreibfehlern, wie ihr in meinem obigen Beitrag sehen könnt ;-)
Die zahlreichen Fehler könnt ihr bitte als vorzeitiges Weihnachtsgeschenk ansehen und behalten....
...Nach dem Weltuntergang wird ohnehin alles anders ;-D
Gruß, NoNet

Anzeige
AW: Schreibfehler und Handelsware ?
21.12.2012 07:12:55
Riccardo
... peinlich ^^
Ich habe zwar gefühlte tausend mal auf Schreibfehler geprüft, aber übersehen hab ich das dennoch.
Danke :)
und danke für den Hinweis mit den Objektvariablen :)
VG
Riccardo
;

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
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
Anzeige
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
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
Anzeige
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
Wenn und Index Funktion in VBA darstellen
JackB

Hallo zusammen,
ich habe 12 Tabellenblätter mit jeweils einer Matrix.
Ich möchte erreichen, dass eine Index Funktion (mit zwei Vergleichen) in Abhängigkeit von drei Zellen aufgerufen wird.
Diese drei Zellen befinden sich im 13 Tabellenblatt.
A1 ist entweder 1, 2 oder 3
B1 is...
15.10.2013 15:16:30
Thread-ID: 1334466
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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