Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Importierung von Daten / Preislistenänderung
#11
Hallo Tobias,

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 wkb

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.

Zitat:Run-time error '9':

Code:
Windows("Daten.xls").Activate 'anpassen

In 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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste