11.07.2015, 05:04
Hallo Tobias,
In der Zeile musst Du nichts ändern, da Du nur die betreffenden beiden Dateien geöffnet hast (siehe weiter oben die Meldung usw, wenn mehr offen sind). Was passiert?
Es ist eine Schleife, die über alle offenen Dateien geht und nacheinander entsprechend der excelinternen Liste zuweist bzw. die Zuweisung überschreibt. Es bleibt dann nur die letzte zugewiesen (die die Bedingung erfüllt). In Deinem Fall erfüllt die Bedingung bzw. gibt es ja auch nur die eine Datei, deren Name anders ist als die Zieldatei.
In dieser Zeile wird Deine Zieldatei aktiviert, also hier die mit dem code. Entweder, Du trägst den richtigen Namen ein, oder nimmst einfach
Zitat:Zeile 9 - Name Quelldatei setzen, da nicht bekannt - Was muss ich dafür genau ändern?
In der Zeile musst Du nichts ändern, da Du nur die betreffenden beiden Dateien geöffnet hast (siehe weiter oben die Meldung usw, wenn mehr offen sind). Was passiert?
Code:
For wkb = 1 To Workbooks.Count
If Not Workbooks(wkb).Name = ActiveWorkbook.Name Then
Set wb = Workbooks(wkb).Sheets(1) ' Name Quelldatei setzen, da nicht bekannt
End If
Next wkbEs ist eine Schleife, die über alle offenen Dateien geht und nacheinander entsprechend der excelinternen Liste zuweist bzw. die Zuweisung überschreibt. Es bleibt dann nur die letzte zugewiesen (die die Bedingung erfüllt). In Deinem Fall erfüllt die Bedingung bzw. gibt es ja auch nur die eine Datei, deren Name anders ist als die Zieldatei.
Zitat:Run-time error '9':
Code:
Windows("Daten.xls").Activate 'anpassenIn dieser Zeile wird Deine Zieldatei aktiviert, also hier die mit dem code. Entweder, Du trägst den richtigen Namen ein, oder nimmst einfach
Code:
ThisWorkbook.Activate