VBA Index außer d. gültigen Bereichs

Hallo mal wieder,
ich habe einen Code (wird per Schaltfläche ausgelöst),
der den Inhalt eines Blattes einer Datei
in eine andere Datei auf ein definiertes Blatt kopiert.
Wichtig ist mir dabei, dass die Zeilen- und Spalteneigenschaften (Breiten,Höhen)
übernommern werden.
Der Code scheint eine Macke zu haben, denn er funktioniert leider nur willkürlich.
Finde leider kein vergleichbares Beispiel in den Recherchen zur Fehlerbehebung.
Fehlermeldung: Sie Betreff.
Beim Debuggen wird Zeile 12 Markiert
Kann mir jemand bitte erklären, woran es in meinem Fall liegt?


1 Sub Übertrage_Daten()
2 '
3 ' Übertrage_Daten Makro
4 ' Überträgt Daten der Datei "LNW Mitarbeiter", Mappe "gehe 2 nach links"
5 ' in das Ziel:
5 ' Datei: "  1 - Abrechnung LNW blanko "
6 ' Blatt: "  LNW Gesamt "
7 '
9   Worksheets(ActiveSheet.Index - 2).Select
10  Cells.Select
11  Selection.Copy
12  Windows("1 - Abrechnung LNW blanko.xlsm").Activate    '

Ich möchte ungern mit Dateipfaden arbeiten, da sich dieser schnell ändern kann.
Vielleicht helfende Hinweise:
-Während der Bearbeitung sind nur 2 Dateien offen
(1x LNW Mitarbeiter , 1x Abrechnungsdatei)
eine automatische Öffnung wird daher nicht benötigt
-


Worksheets(ActiveSheet.Index - 2).Select

wollte ich mit Absicht,
da der Blattname sich ständig ändert.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Übertrage_Daten() ' Übertrage_Daten Makro ' Überträgt Daten der Mappe "2 nach links" in ' Datei: " 1 - Abrechnung LNW blanko " ' Blatt: " LNW Gesamt " Worksheets(ActiveSheet.Index - 2).Select Cells.Select Selection.Copy Windows("1 - Abrechnung LNW blanko.xlsm").Activate 'Debugger Marke Worksheets("LNW Gesamt").Activate Cells.Select ActiveSheet.Paste Range("J11").Select Application.CutCopyMode = False Selection.Copy Application.CutCopyMode = False End Sub

Sub Übertrage_Daten() If ActiveSheet.Index > 2 Then ActiveWorkbook.Worksheets(ActiveSheet.Index - 2).Cells.Copy _ Workbooks("1 - Abrechnung LNW blanko.xlsm").Sheets("LNW Gesamt").Cells End If End Sub

Hallo,
der Grund ist klar, das Problem ist das Fensterhandling der versch Excel-Versionen, Du versuchst in xl2010 das SDI (zur Erklärung, Links s.u.) von xl2013 nachzustellen, indem Du eine zweite Excel-Instanz öffnest.
In xl2010 gibt's aber nur das MDI, d.h., wenn Du vor dem Öffnen der Datei eine zweite Instanz öffnest, hast Du zwei versch. Applications geöffnet, das kannst Du im Taskmanager erkennen, da sind zwei Einträge 'EXCEL.EXE' in der Prozessliste vorhanden.
Im Gegensatz hierzu wird in xl2013 nur eine Instanz erstellt, auch wenn aufgrund des SDI zwei Dateien in zwei Fenstern dargestellt werden.
Das hat zur Folge, daß die jeweils zweite Arbeitsmappe in Deinem Code in der Workbooks-Aufzählung der ersten Application nicht mehr vorhanden ist, sondern nur in der zweiten Application und umgekehrt und somit im Code nicht mehr erkannt wird.
Beide Arbeitsmappen werden also in versch. Applications geöffnet, Dein Code spricht nur eine App. an, aber beide Workbooks...böse Falle...!
http://msdn.microsoft.com/de-de/library/office/dn251093.aspx
http://riptutorial.com/excel-vba/example/14030/single-document-interface-versus-multiple-document-interfaces
Gruß, Mullit

Beliebteste Forumthreads (12 Monate)

VBA Index außer d. gültigen Bereichs

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread