Office: andere Excel Mappe ansprechen

Da ich Daten aus dem Warenwirtschaftsprogramm benutzen möchte meine Frage hier.
Das Programm tut auf wunsch die Daten in eine neue Excelmappe öffnen. Ich habe nun eine ungespeicherte Excelmappe mit dem Titel "Mappe1" und die Daten in Tabelle1.
Ich möchte nun aus meine geöffnetten Exceldatei per VBA die Daten aus Mappe eins rausnehmen und nach Verarbeitung per VBA in meiner Datei als neue Datensätze speichern.
Es handelt sich aber nicht aus dem gesamten Datensatz in Mappe1 sondern nur aus ein bis drei Felder. In Mappe1 hab ich so 1 bis 20 Datensätze die ich nacheinander Verarbeiten möchte. Ich weis zur Zeit nichtmal wie ich auf die neue Mappe1 und der Tabelle1 zugreifen (ansprechen) kann Vielen Dank für Eure Hilfe.

Karl-Heinz

:)

 

Hallo Karl-Heinz,

Workbooks("Mappe1").Worksheets("Tabelle1").Range("A1")

 

Hallo,
ich mache irgendwas falsch,ich hab es so versucht:
Public Sub NeueMappe()
Workbooks("Mappe1").Worksheets("Tabelle1").Range ("A1")
End Sub

nun bekomme ich folgende fehlermeldung
Laufzeitfehler: 9
Index außerhalb des gültigen Bereichs

was hab ich falsch gemacht?
Karl-Heinz

 

Hallo Karl-Heinz,

Du wolltest die
Zelle ansprechen und darauf habe ich geantwortet.
Du weist der Zelle keine Wert oder Eigenschaft zu.

 

Hallo,

du hast anscheinend 2 Excelinstanzen offen denn die Fehlermeldung sagt du willst auf ein Objekt zugreifen welches nicht gefunden werden konnte. Schau mal in den Taskmanager ob da 2x excel.exe zu finden ist

Keine Eigenschaft oder Methode ansprechen würde den Fehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht" auslösen.

Du hast 2 Möglichkeiten.

1. Du öffnest deine Makromappe erst nach dem erstellen der "Mappe1".
2. Du greifst auf die andere Instanz zu was nicht so ganz einfach ist.

 

Hallo

ich hatte es mir so ungefähr gedacht.
Code:

es sind bestimmt noch fehler drin, die ich bis auf das springen zur Mappe1 lösen werde.#

 

Hallo,

und für welche Variante (1 oder 2) hast du dich entschieden?

 

Hallo Nepumuk,
du hast recht nach ich meine Mappe nach der mappe 1 geöffnet hab bekomme ich den Fehler 438.
weis aber nicht was ich machen soll. wie es ungefähr in VBA ausehen soll habe ich ja oben sch versucht zu zeigen.

 

Hallo,

teste mal:

Public Sub NeueMappe()

Dim lngNextRow As Long

lngNextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

With Workbooks("Mappe1").Worksheets("Tabelle1")
Cells(lngNextRow, 1).Value = .Cells(1, 4).Value
Cells(lngNextRow, 2).Value = .Cells(1, 6).Value
End With

End Sub

 

Vielen Dank für deine Mühe, habe gerade gesehen das wir im selben Alter sind. Nur du hast in Excel eine Menge mehr drauf.
Ich habe deinen Code ausprobiert
erst Mappe1 geöffnet dann meine Arbeitsmappe dann deinen Code aufgerufen.
Bekomme wieder die Fehlermeldung 9

Karl-Heinz

 

Hallo,

heißt denn die Tabelle "Tabelle1" ?

 

Hallo
In meiner EAN Datei Tabelle1
in Mappe1 auch Tabelle1
karl-Heinz

 

Hallo,

erstell mal die Mappe, öffne deine Makromappe, geh in den VBA-Editor, kopieren die folgende Prozedur in ein Modul und starte sie mit F5. Das was im Direktbereich (einblenden mit STRG+G) ausgegeben wird postest du dann.

Public Sub Test()
Dim objWorkbook As Workbook
Dim objWorksheet As Worksheet
For Each objWorkbook In Application.Workbooks
Debug.Print "*" & objWorkbook.Name & "*"
For Each objWorksheet In objWorkbook.Worksheets
Debug.Print "*" & objWorksheet.Name & "*"
Next
Next
End Sub

 

So das hab ich gemacht hier das Ergebnis
*Mappe1.xls*
*Tabelle1*
*Tabelle2*
*Tabelle3*
*eantest.xlsm*
*Tabelle1*
*Tabelle2*
*Tabelle3*

Karl-Heinz

 

Hallo,

dann ändere mal diese Zeile:

With Workbooks("Mappe1").Worksheets("Tabelle1")

so:

With Workbooks("Mappe1.xls").Worksheets("Tabelle1")