Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1764to1768
1764to1768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ablagepfad aus Datenbank

Forumthread: Ablagepfad aus Datenbank

Ablagepfad aus Datenbank
18.06.2020 16:03:06
nielsr_98
Moin moin liebe Excel Experten,
ich habe folgendes Problem.
Mein Programm erstell einen Auftrag den er nun wie folgt ablegen und drucken soll:
ActiveWorkbook.SaveAs Filename:="Dateipfad" & "\" & "iWerkstattauftrag" & " " & Hersteller & " " & Modell & "_" & Serienr & " " & Format(i, "00000") & "-" & Format(Date, "YYYY-MM-DD") & ".xls"
Ich habe eine zweite Datei, nennen wir sie mal "Datenbank1", wo ich nun aus Zelle "T26" den Pfad raus nehmen möchte.
Ist es möglich den Pfad als Variable mit Bezug auf die Datenbank1 zu setzen damit wenn der Pfad sich mal ändern sollte ich den nur einmal in der Datenbank1 ändern muss?
Das selbe Problem habe ich auch mit dem Namen des Druckers (z.B.: "Büro auf Ne06:")
Über Hilfe würde ich mich sehr freuen :)
Vielen Dank im Voraus
LG
Niels
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
du bist excel profi und vba gut.... soso
18.06.2020 16:35:05
ralf_b
cc
AW: du bist excel profi und vba gut.... soso
18.06.2020 16:54:52
nielsr_98
vielen Dank für die hilfreiche Antwort
na gut Antwort ist ja, es ist möglich owT
18.06.2020 16:59:08
ralf_b
Anzeige
AW: na gut Antwort ist ja, es ist möglich owT
18.06.2020 17:02:33
nielsr_98
Ok, du hast mich.
1:0 für dich
Nun meine Frage sollte eigentlich so aussehen:
Ist das möglich und wenn ja wie?
AW: na gut Antwort ist ja, es ist möglich owT
18.06.2020 17:15:11
ralf_b
aus dem 
ActiveWorkbook.SaveAs Filename:="Dateipfad" & "\" & "iWerkstattauftrag" & " " & Hersteller & " " _
& Modell & "_" & Serienr & " " & Format(i, "00000") & "-" & Format(Date, "YYYY-MM-DD") & ".xls"
mache dies, ungefähr, ungetestet 

Dim Dateipfad as String
Dateipfad = Workbooks("Datenbank1.xlsx").Worksheets("Tabelle1").Range("T26")
ActiveWorkbook.SaveAs Filename:= Dateipfad  & "\" & iWerkstattauftrag  & " " & Hersteller & " " & Modell & "_" & Serienr & " " & Format(i, "00000") & "-" & Format(Date, "YYYY-MM-DD") & ".xls"

Anzeige
AW: na gut Antwort ist ja, es ist möglich owT
22.06.2020 12:12:51
nielsr_98
Moin Ralf,
erstmal vielen Dank für deine Hilfe.
Leider kommt nun der Laufzeitfehler 9 "index außerhalb des Gültigkeitsbereichs"
Kannst du mir da sagen woran das liegen könnte?
AW: na gut Antwort ist ja, es ist möglich owT
22.06.2020 17:42:33
ralf_b
der fehler bedeutet das er ein objekt in einer Liste nicht findet. kann sein das deine Datenbank1 datei nicht so heisst oder am Pfad was fehlt oder eine deiner variablen nicht mehr gültig sind. i ist doch eine Zählvriable. Hast du dir die Werte deiner Variablen im Lokalfenster oder durch Überwachung angesehen?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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