Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

springe zurück zur aufrufenden Datei

springe zurück zur aufrufenden Datei
21.01.2018 23:50:01
Schwipp
Liebe Leute
mit Hilfe der Datei Master.xls im Verzeichnis1 erzeuge ich in einem Verzeichnis2 die Dateien Didi.xls, Heinz.xls, Lola.xls usw.
Irgendwann später muss ich diesen Dateien eine fortlaufende Nummer aus der Datei Liste.xls im Verzeichnis1 zuteilen.
Das heißt ich springe z.B. von D.xls zu Liste. Xls,
suche die nächste unbenutzte Nummer, markiere diese als benutzt mit dem Namen Didi bzw Heinz bzw Lola usw, (das klappt nun dank Eurer Hilfe in den letzten Tagen),
und muss diese fortlaufende Nummer in die anfragende Datei D.xls bzw H.xls bzw L.xls usw kopieren.
Ich muss also im VBA Makro das Rücksprungziel VARIABEL halten, das ist mein Problem, also so im Stil
“springe zurück zur aufrufenden Datei - wie auch immer deren Name ist”.
Wie stelle ich das an?
Gruß Schwipp

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: springe zurück zur aufrufenden Datei
22.01.2018 02:00:25
Rainer
Hallo Schwipp,
wenn es schon alte Beiträge zu dem Thema gibt, dann verlinke die doch bitte! Beispieldateien sind meist auch hilfreich, um den Ablauf deines Codes zu verstehen.
In diesem Fall denke ich aber, du kannst dein Ziel mit "ThisWorkbook" und "ActiveWorkbook" erreichen:

'Der Code wird von "Liste.xls" gestartet
Set TW = ThisWorkbook
Workbook("Didi.xls").Open
Set AW = ActiveWorkbook
NewBookName = TW.Sheet(1).Cells(LastRow,1)
ActiveWorkbook.SaveAs Filename:= Pfad & NewBookName & ".xlsx"
ActiveWorkbook.Close
Ist bestimmt voller Syntaxfehler, aber sollte das Prinzip darstellen.
Gruß, Rainer
Anzeige
AW: springe zurück zur aufrufenden Datei
22.01.2018 08:21:08
Schwipp
Danke Rainer,
konkreter: wie kann ich in
Workbooks.Open Filename:="F:\Verzeichnis2 \DateiName.xls"
“DateiName” als Variable gestalten,
so dass dieser die Strings Didi oder Lola oder … zuweisen kann?
AW: springe zurück zur aufrufenden Datei
23.01.2018 02:54:40
Rainer
Hallo Schwipp,
ich kenne deine Datei leider nicht.
Woher "weiß" dein Code, dass er jetzt "Didi.xls" öffnen soll?
Wenn es z.B. in einer Zelle steht:

Dateipfad = "F:\Verzeichnis2\"
'Dateiname = "DateiName.xls"
Dateiname = Workbook("Liste.xls").Sheets(1).Cells(1,1) 'Verweis zur Zelle, welche den  _
Dateinamen enthält
Workbooks.Open(Dateipfad & Dateiname)
Gruß,
Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige