ich habe folgenden Code bei dem 11 Werte aus 11 Tabellen geholt werden.
In meiner Zieldatei steht dieses Script welches die Wert untereinander ausgibt.
Jetzt hätte ich gerne gewusst ob es die Möglichkeit gibt die Werte aus den Tabellen zu holen ohne das diese geöffnet sind?
Sub Kopieren()
Dim Vergleich
Dim Bereich As Range
Dim Quelle As Workbook
Dim Quelle1 As Workbook
Dim Quelle2 As Workbook
Dim Quelle3 As Workbook
Dim Quelle4 As Workbook
Dim Quelle5 As Workbook
Dim Quelle6 As Workbook
Dim Quelle7 As Workbook
Dim Quelle8 As Workbook
Dim Quelle9 As Workbook
Dim Quelle10 As Workbook
Dim Quelle11 As Workbook
Dim Ziel As Workbook
Set Quelle = Workbooks("Quelle.xls")
Set Quelle1 = Workbooks("Quelle1.xls")
Set Quelle2 = Workbooks("Quelle2.xls")
Set Quelle3 = Workbooks("Quelle3.xls")
Set Quelle4 = Workbooks("Quelle4.xls")
Set Quelle5 = Workbooks("Quelle5.xls")
Set Quelle6 = Workbooks("Quelle6.xls")
Set Quelle7 = Workbooks("Quelle7.xls")
Set Quelle8 = Workbooks("Quelle8.xls")
Set Quelle9 = Workbooks("Quelle9.xls")
Set Quelle10 = Workbooks("Quelle10.xls")
Set Quelle11 = Workbooks("Quelle11.xls")
Set Ziel = Workbooks("Ergebniss.xls")
Set Bereich = Range(ActiveSheet.UsedRange.Address)
Ziel.Sheets("Ergebniss").Activate
Wert = Quelle.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A1").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle1.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A2").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle2.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A3").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle3.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A4").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle4.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A5").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle5.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A6").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle6.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A7").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle7.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A8").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle8.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A9").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle9.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A10").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle10.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A11").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Wert = Quelle11.Sheets("Tabelle1").Range("H20").Value
Ziel.Sheets("Ergebniss").Range("A12").Value = Wert
Quelle.Activate
Application.CutCopyMode = False
Set Quelle = Nothing
Set Ziel = Nothing
Set Bereich = Nothing
End Sub
Mit freundlichen Grüßen
Christian Metzger