Daten aus einer Arbeitsmappe ans Ende einer anderen Arbeitsmappe - VBA

Question

Moin,

ich such mir schon seit Wochen die Finger wund, finde allerdings nicht den richtigen Ansatz. Ich hoffe ihr könnt mir helfen.

Ich habe 2 Tabellen (QAB und QAB Statistik).

Aus dem Blatt QAB sollen von Tabelle 2 die Zellen H20 bis P20 in das Blatt QAB Statistik in die nächste freie Zeile der Spalten A bis I kopiert werden. Die Tabelle QAB Statistik ist noch geschlossen, wenn das Makro in QAB ausgeführt wird. Falls ihr mehr Infos braucht, dann einfach nachfragen.

Ich hoffe ihr habt ne Idee.

Danke schonmal im Voraus!

Answer 1

Hallo,

nur noch mal zur Sicherheit: Es handelt sich um zwei verschiedene Arbeitsmappen (mit ggf. mehreren Tabellenblättern)?.
Wie heißt das betreffende Arbeitsblatt in der Arbeitsmappe QAB Statistik, in das die Daten hineinkopiert werden sollen? In welchem Pfad liegt die Arbeitsmappe QAB Statistik (eventuell im gleichen Pfad wie die Arbeitsmappe QAB)? Und das Blatt, aus dem die Daten herauskopiert werden sollen heißt "Tabelle 2"?

Gruß

M.O.

Answer 2

hi all ^^

ein Beispiel

gruss nighty

anzupassen waere
pfad
Dateiname
tabellnnamen

Sub ZellenLesen()
For Each ZellPos In Array("H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20")
Cells(ActiveSheet.Cells(Rows.Count, Range("" & ZellPos).Column - 7).End(xlUp).Row + 1, Range("" & ZellPos).Column - 7) = ExecuteExcel4Macro("'D:\Temp\" & "[" & "DeineDatei.xls" & "]Tabelle1" & "'!" & Range("" & ZellPos).Address(, , xlR1C1))
Next ZellPos
End

Sub

Answer 3

hi all ^^

wie immer korrigiert :-)

gruss nighty

Sub ZellenLesen()
Dim ZellPos As Variant
For Each ZellPos In Array("H20", "I20", "J20", "K20", "L20", "M20", "N20", "O20", "P20")
Cells(ActiveSheet.Cells(Rows.Count, Range("" & ZellPos).Column - 7).End(xlUp).Row + 1, Range("" & ZellPos).Column - 7) = ExecuteExcel4Macro("'D:\Temp\" & "[" & "NeueMenue.xls" & "]Tabelle1" & "'!" & Range("" & ZellPos).Address(, , xlR1C1))
Next ZellPos
End Sub