Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung Index außerhalb des gültigen Bereich

Fehlermeldung Index außerhalb des gültigen Bereich
27.05.2016 23:52:41
Falo

Hallo,
ich brauche Eure Hilfe ich bekomme die Fehlermeldung Index außerhalb des gültigen Bereich 

Private Sub Olaf_Export_Click()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection
.Columns("A:O").Copy
End With
ChDir ThisWorkbook.Path
With Workbooks("export.xls").Sheets(1)
longLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(longLetzte, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 06:30:48
Luschi
Hallo Falo,
bei springt der Debugger an dieser an: 

With Selection
.Columns("A:O").Copy
End With
Schreib doch mal, was Du mit diesem 3-Zeiiler erreichen willst.
Gruß von Luschi
aus klein-Paris

AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 06:59:29
stef26
Hi,
Ich bin nur Laie. Aber kann es daran liegen, dass du versuchst ganze Spalten kopierst und dies dann ab einer bestimmten Zeile einfügen möchtest. Nimm beim copieren die Zeilen die du benödigst mit, dann denk ich funktionierte....

AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 07:01:02
Crazy Tom
Moin
@ Luschi
ich meine mich daran erinnern zu können,
dass er einige Zeilen an der Zeilenbeschriftung markiert
und aus diesen markierten Zeilen die Spalten A bis O kopieren möchte
@ Olaf
ist denn dein Workbook "export.xls" schon geöffnet?
davon steht nix im Code
MfG Tom

Anzeige
AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 10:55:02
Matthias L
Hallo
Also daran 

With Selection
.Columns("A:O").Copy
End With
liegt es nicht, es ist nur nicht sicher ob Du das auch wirklich so willst.
Wenn eine Zelle in Spalte("B") mariert wird, kopiert Excel nicht "A:O", sondern "B:P".
Eine weiterer Fehler würde kommen wenn rechts der markierten Zelle weniger als 14 Spalten vorhanden sind.
Auch nicht ganz klar ob nicht Dein Ziel: Sheets(1) tatsächlich ein WorkSheet ist!
Wäre das erste Register z.B. ein Diagramm so würde das auch nicht funktionieren.
Gruß Matthias

AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 12:44:02
Falo
Hallo,
das Makro Kopiert markierte zeilen in die Datei Export.xls die im gleichen Verzeichnis Liegt. ist es möglich, das die Datei Export.xls nicht gefunden wird weil das falsch ist?. "ChDir ThisWorkbook.Path" wenn die Datei geöffnet ist wird auch alles Kopiert.
Gruß
Olaf

Anzeige
Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 13:18:43
Nepumuk
Hallo,
ChDir ändert nur den Wert von CurDir, öffnet aber nicht die Mappe und in eine geschlössene Mappe kannst du nichts kopieren.
Gruß
Nepumuk

beachte bitte auch meine Hinweise ...
28.05.2016 14:12:30
Matthias L
Hallo
das Makro Kopiert markierte zeilen
Aber nur wenn auch wirklich Zeilen markiert sind.
Du solltest also trotzdem meine Hinweise beachten!
Ist z.B. eine einzige Zelle markiert, so kopierst Du keine Zeilen sondern einen Bereich.
Der beginnt in der Spalte der markierten Zelle und kopiert den Bereich
Deiner markierten Zelle + 14 Spalten nach rechts.
Gruß Matthias

sorry, war für Olaf gedacht ... owT
28.05.2016 14:14:11
Matthias L

Anzeige
AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 17:09:45
Crazy Tom
Hi
@ Olaf
dann öffne doch die Datei erst mal 
Sub Olaf_Export_Click()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection
.Columns("A:O").Copy
End With
Workbooks.Open ThisWorkbook.Path & "\export.xls"
With Workbooks("export.xls").Sheets(1)
longLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(longLetzte, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

MfG Tom

AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 19:04:57
Falo
Hallo,
Danke für die Tipps, ich habe es jetzt so gelöst
Gruß
Olaf 
Private Sub Olaf_Export_Click()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection
.Columns("A:O").Copy
End With
ChDir ActiveWorkbook.Path & "\"    'ich glaube das hat auch gefehlt  & "\"
Workbooks.Open Filename:="export.xls"  'ich öffne erst die Datei
With Workbooks("export.xls").Sheets(1)
longLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(longLetzte, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Fehlermeldung Index außerhalb des gültigen Bereich
28.05.2016 19:05:29
Falo
Hallo,
Danke für die Tipps, ich habe es jetzt so gelöst
Gruß
Olaf 
Private Sub Olaf_Export_Click()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection
.Columns("A:O").Copy
End With
ChDir ActiveWorkbook.Path & "\"    'ich glaube das hat auch gefehlt  & "\"
Workbooks.Open Filename:="export.xls"  'ich öffne erst die Datei
With Workbooks("export.xls").Sheets(1)
longLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(longLetzte, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Anzeige
warum offen, wenn für Dich gelöst ... ? owT
29.05.2016 17:35:16
Matthias L

nur ein Test ... owT
01.06.2016 20:06:21
Matthias L
test

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

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