Office: Excel-Datei öffnen und Werte kopieren

User · 21. Juni 2015

Abend Leute! Ich habe mich heute etwas an VBA ran gewagt und komme leider nicht weiter. Mein Code soll zwei Werte miteinander vergleichen. Wenn die Bedingung erfüllt ist soll eine andere Excel-Datei geöffnet werden, dann soll im Anschluss von der Hauptdatei Werte markiert und in die neue Datei kopiert werden.
Leider bringt mir Excel den Fehler 9 = Index außerhalb des gültigen Bereichs.
In der Zeile:
Code:

If Workbooks("Austaktungsdatenbank.xlsm").Worksheets("Austaktung").Cells(3, i) "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein gesamter Code sieht folgendermaßen aus:

Code:

Sub Daten_exportieren()

Application.ScreenUpdating = False ' ScreenUpdating wird ausgeschaltet

If Worksheets("Daten").Range("E5") = Worksheets("Dropdown Filter").Range("P2") Then
Workbooks.Open "C:\Users\Nico\Desktop\Test_1.xlsx"

Dim i
Dim j
Dim k

i = 12
j = 12

For k = 1 To 20
If Workbooks("Datenbank.xlsm").Worksheets("Daten").Cells(3, i) "" Then
Workbooks("Datenbank.xlsm").Worksheets("Daten").Range((Cells(6, i + 2)), Cells(21, i + 2)).Copy
Workbooks("Test_1.xlsx").Sheets("Neu").Cells(3, j).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
i = i + 9
j = j + 7

Next k

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es cool wenn mir jemand sagen kann wieso diese Meldung kommt. Kann es sein das der Befehl Workbooks falsch ist und er meckert weil ich es falsch ansteuere?

Gruß Nico

:)

chris-kaiser · 23. Juni 2015

Hi,

vermutlich habe ich Tomaten auf den Augen, aber ich kann deine Zeile im gesamten Code nicht finden....

Austaktungsdatenbank / Datenbank
Austaktung / Daten
?

User · 24. Juni 2015

oh nein oh nein ich habe sie falsch geschrieben die besagt Zeile lautet:

Code:

If Workbooks("Datenbank.xlsm").Worksheets("Daten").Cells(3, i) "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und nicht

Code:

If Workbooks("Austaktungsdatenbank.xlsm").Worksheets("Austaktung").Cells(3, i) "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tut mir Leid ich habe die Quellen umgeschrieben und vergessen das bei der oberen Zeile um die es eigentlich geht auch zu machen.

Gruß Nico

chris-kaiser · 24. Juni 2015

Hi,

Code:

Option Explicit

Sub Daten_exportieren()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim wbAkt As Workbook
Dim wbTest_1 As Workbook
Dim shNeu As Worksheet
Dim shDat As Worksheet
Dim shDropFilt As Worksheet

Set wbAkt = ActiveWorkbook ' Mappe Datenbank
Set shDat = wbAkt.Sheets("Daten") '-> Mappe Datenbank -> Blatt "Daten"
Set shDropFilt = wbAkt.Sheets("Dropdown Filter")
i = 12
j = 12

If shDat.Range("E5").Value = shDropFilt.Range("P2").Value Then
Workbooks.Open "C:\Users\Nico\Desktop\Test_1.xlsx" 'ich würde nicht den Desktop zum Testen verwenden!
Set wbTest_1 = ActiveWorkbook ' Test_1 wenn es geöffnet worden ist
Set shNeu = wbTest_1.Sheets("Neu") ' -> Mappe Test_1 -> Blatt Neu
For k = 1 To 20
With shDat
If .Cells(3, i) "" Then
.Range((.Cells(6, i + 2)), .Cells(21, i + 2)).Copy
shNeu.Cells(3, j).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
i = i + 9
j = j + 7
Next k
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

es wird noch immer LFZ 9 erscheinen *Smilie
Aber so hast du einen besseren Überblick wo welcher Name nicht passen sollte.

in der Zeile wäre ohnehin LFZ 1004 gekommen
Workbooks("Datenbank.xlsm").Worksheets("Daten").Range((Cells(6, i + 2)), Cells(21, i + 2)).Copy

Da die Referenzierung auf den Cells nicht gegeben ist.....

User · 24. Juni 2015

Und das heißt? Was kann ich jetzt machen damit es läuft?

User · 24. Juni 2015

Kannst du mir vll sagen wieso es nicht funktioniert? Jetzt kommt nämlich keine Fehlermeldung mehr aber es wird nur die andere Excel Datei geöffnet und das war es. Eigentlich soll eine andere Excel Datei geöffnet werden danach soll er zurück zur urpsprungsdatei springen die betreffenden zellen markieren und in die andere datei zurück springen und einfügen.

aber das makro bleib direkt nach dem öffnen stehen =(

chris-kaiser · 25. Juni 2015

Hi,

Kannst du mir vll sagen wieso es nicht funktioniert?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die falschen Spalten sind ggf. gewählt worden. (J und i passen nicht)
Abfragen ob Cells(3,i) "" ??? können falsch sein.

UND herumspringen muss VBA nicht! *Smilie
Select und Activate sind nahezu überflüssig!
vgl. dazu
http://www.ms-office-forum.de/forum/...29&postcount=1

Office: Excel-Datei öffnen und Werte kopieren

Excel-Datei öffnen und Werte kopieren

Excel-Datei öffnen und Werte kopieren

Excel-Datei öffnen und Werte kopieren

Excel-Datei öffnen und Werte kopieren - Similar Threads - Excel Datei öffnen

Zugriff auf andere Excel Datei ohne aktives Öffnen

Word-Datei mit Excel im Bearbeitungsmodus öffnen

Problem beim Öffnen von Dateien oder Ordnern über Links in Excel 2016 für Mac

Warum kann ich meine Excel-Datei nicht öffnen?

Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Mehrere EXCEL Dateien per Makro durchsuchen und öffnen

[Excel] per Makro eine Datei öffnen und ein Makro ausführen