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
1288to1292
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
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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

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

300 Forumthreads zu ähnlichen 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
Anzeige
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
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 liegt ausserhalb des gültigen Bereichs
Frank

Hallo allerseits,
ich überprüfe mit folgendem Makroteil, ob ein Workbook geöffnet ist und öffne es, wenn nicht:
Set ExcelApp = GetObject(, "Excel.Application") Set mydocs = ExcelApp.Workbooks For Each x In mydocs If x.Name = "Übersicht Projekte aktuell_Angebote.xls" Then GoTo WorkbookOp...
29.03.2012 15:02:37
Thread-ID: 1256994
5 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
Array (VBA), Index aßerhalb des gültigen Bereichs
Drogist

Hallo Exelaner,
ich stehe echt auf dem Schlauch ...
Ich will einen definierten Bereich einer Tabelle in ein (normales!) Array einlesen. Mit einer For..Next- _
Schleife ist das ja kein Problem, aber ich erinnere mich dunkel, dass das auch in einem Rutsch _ geht. Hier einfach einmal...
20.05.2012 22:17:18
Thread-ID: 1264127
5 Beiträge
Suchen und ersetzen in andere Zelle per VBA
Steffi

Hallo liebes Forum
Ich möchte in einer Textbox Tabelle1 eine Nummer sowie einen Namen eingeben. Diese Nummer soll dann in Tabelle2 von A1 bis A10000 gesucht werden. Wenn die Nummer gefunden wird soll in der gefundenen Spalte in Zelle C der Namen aus der Textbox eingetragen oder ersetzt werd...
10.02.2013 17:54:13
Thread-ID: 1298591
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
2
5
4
3
4
8
4
8
4
4
4
4
3
6
4
3
3
3
1
4
1
1
11
7
3