Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1940to1944
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
1940to1944
1940to1944
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 gültigen Bereichs

Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs
07.08.2023 13:39:00
Romi
Hallo Community,

könnt ihr mich bitte eventuell auf meinen Denkfehler hinweisen? Mit dem nachfolgenden Code füge ich ein Worksheet in der bestehenden Arbeitsmappe hinzu und benenne es. 



Sub DatenImportierenExportieren()

Dim IndexSheet_1, IndexSheet_2 as Long 

Set wsNew = ThisWorkbook.Worksheets.Add



With wsNew

    .Name = "DatenImport"

    .Move After:=Sheets(Sheets.Count)

End With



IndexSheet_1 = Worksheets("Veränderung").Index

IndexSheet_2 = Worksheets("DatenImport").Index

ThisWorkbook.VBProject.VBComponents(Worksheets(IndexSheet_2).CodeName).CodeModule.AddFromString strCode



end sub

In dem neuem Worksheet möchte ich nun Code hinterlegen. Jedoch gibt er mir die im Betreff genannte Fehlermeldung 
ThisWorkbook.VBProject.VBComponents(Worksheets(IndexSheet_2).CodeName).CodeModule.AddFromString strCode
für diese Zeile aus. Wenn ich im Code mit dem Mauszeiger rüberfahre, sehe ich das er als Longzahl die "3" im IndexSheet_2 gespeichert hat. Könnt ihr mich bitte unterstützen? Danke.

VG Romi

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

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs
07.08.2023 14:11:54
daniel
HI
bei mir läuft der Code ohne Fehler durch und macht auch das gewünschte.
Gruß Daniel
Code in Tabellenblatt schreiben
07.08.2023 14:59:27
Romi
Hallo Daniel und danke für das Testen.

Aufgrund diesen Hinweises habe ich die Sub in ein Standardmodul gepackt, ausprobiert und der Code funktioniert. Da sich die Daten in Arbeitsmappen befinden, die mir monatlich zugesandt werden und die Aufgaben regelmäßig anstehen, wollte ich die Sub in meiner persönlichen Makroarbeitsmappe speichern.

Was müsste ich an der Codezeile verändern, damit das auch von meiner persönlichen Makroarbeitsmappe aus funktioniert?

VG Romi
AW: Code in Tabellenblatt schreiben
07.08.2023 15:14:34
daniel
und wo soll jetzt was hinzugefügt werden?
ThisWorkbook ist immer die Mappe, die den Code enthält.
wenn man mit mehreren Mappen arbeitet, sollte man immer die Mappe angeben, auf die man sich bezieht.
Wenn du mit ActiveSheet arbeiten willst, solltest du bedenken, dass Aktionen wie Sheets.Add das aktive Tabellenblatt wechselt und danach das neu hinzugefügte das aktive Tabellenblatt ist, eben so hat natürlich das ActiveWorkbook gewechselt.
Gruß Daniel
Anzeige
Problem gelöst
07.08.2023 18:41:50
Romi
Danke für die Erläuterungen. Konnte mein Problem damit lösen.

120 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
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

Links zu Excel-Dialogen

Frame
Anzeige

Infobox zum Thema

EXCEL - Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs

Inhaltsverzeichnis

Die Fragestellung

Du erhältst den Laufzeitfehler 9, der besagt "Index außerhalb des gültigen Bereichs" in deinem VBA-Code. Du möchtest wissen, was diesen Fehler verursacht und wie du ihn beheben kannst.

Erläuterung des Problems {#erläuterung-des-problems}

Der Laufzeitfehler 9 in VBA tritt auf, wenn du versuchst, auf ein Element eines Arrays oder einer Sammlung zuzugreifen, das nicht existiert. Das kann passieren, wenn:

  • Du versuchst, auf ein Arbeitsblatt oder eine Arbeitsmappe mit einem Namen oder Index zuzugreifen, der nicht existiert.
  • Du durch ein Array iterierst und versuchst, auf einen Index außerhalb seiner Grenzen zuzugreifen.
  • Du eine Sammlung von Objekten wie Formulare oder Steuerelemente referenzierst, die nicht im aktuellen Kontext vorhanden sind.

Lösung des Problems {#lösung-des-problems}

Um den Fehler zu beheben, solltest du folgende Schritte durchführen:

  1. Überprüfe alle Objektverweise, die du in deinem Code verwendest, und stelle sicher, dass die Namen korrekt geschrieben sind.
  2. Wenn du mit Indizes arbeitest, stelle sicher, dass du innerhalb der gültigen Bereichsgrenzen bleibst.
  3. Füge Fehlerbehandlungsmechanismen hinzu, um dein Programm robuster zu machen.

Hier ist ein Beispiel für eine Fehlerbehandlung:

On Error GoTo ErrHandler
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("MeinBlatt")

' Dein Code hier

Exit Sub
ErrHandler:
If Err.Number = 9 Then
    MsgBox "Das angegebene Arbeitsblatt existiert nicht.", vbCritical
End If

Anwendungsbeispiele aus der Praxis

  • Dynamisches Referenzieren von Arbeitsblättern: Wenn du Arbeitsblätter basierend auf Benutzereingaben oder externen Daten referenzierst.
  • Durchlaufen von Datenstrukturen: Wenn du Arrays oder Sammlungen in deinem Code durchläufst.

Tipps

  • Verwende die Exists-Funktion, um zu überprüfen, ob ein Arbeitsblatt oder eine andere Sammlung existiert, bevor du darauf zugreifst.
  • Verwende die IsArray-Funktion, um zu überprüfen, ob eine Variable ein Array ist, bevor du versuchst, durch sie zu iterieren.

Verwandte Themenbereiche

  • Fehlerbehandlung in VBA
  • Dynamische Referenzierung von Objekten
  • Sicheres Durchlaufen von Arrays und Sammlungen

Zusammenfassung

Der Laufzeitfehler 9 "Index außerhalb des gültigen Bereichs" weist auf ein Problem beim Zugriff auf Elemente eines Arrays oder einer Sammlung hin. Um diesen Fehler zu beheben, solltest du sicherstellen, dass alle Referenzen korrekt sind und innerhalb der gültigen Grenzen liegen. Die Implementierung einer Fehlerbehandlung kann helfen, solche Fehler zu erkennen und angemessen darauf zu reagieren.

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
4
3
6
4
3
3
3
1
4
1
1
11
7