Hallo liebes Forum,
ich habe das erste mal mit Excel VBA programmiert und habe es geschafft ein Tool zu erstellen, dass an sich auch gut funktioniert. Da ich das ich Rahmen meiner Masterarbeit für ein Unternehmen mache, darf nicht wirklich ins Detail gehen.
Ich hoffe ich kann mein Problem jetzt so beschreiben, dass es verstanden wird:
Ich habe eine Userform mit mehreren multipages (4), dort werden in Textboxen und Checkboxen werte ausgewählt. Das kann ich abspeichern in eine neue Excel-Datei über einen Speicher-Button und über einen Lade-Button können die Werte in die jeweiligen textboxen und checkboxen wieder eingetragen werden. Das funktioniert :)
Jetzt gibt es eine Vorlage. Das ist ein Excel-Sheet von meiner Firma, die ständig benutzt wird. Die Werte aus meiner UF sollen in diese Excel eingetragen werden und dann ausgedruckt werden können. Ich hatte bisher diese "Blanco"-Vorlage in dem Ordner, in dem auch die Datei mit meinem Programm-Code ist. Dann habe ich über den Dateipfad diese Vorlage geöffnet, alle Werte eingetragen und auf den Drucker verwiesen. Das sieht so aus:
Dim wbprint As Workbook
Set wbprint = Workbooks.Open("U:\***\Vorlage_***DATA_SHEET_blanco.xls")
.
.
.
"Hier werden alles Werte von der UF in die jeweiligen Zellen der Vorlage geschrieben".
.
.
Application.Dialogs(xlDialogPrint).Show
Das funktioniert auch :)
Das Problem ist diese Tool soll auf verschiedenen Rechner funktionieren. Ich hatte vorgeschlagen, dass jeder Mitarbeiter sich auf sein U-Laufwerk den oben beschriebenen Dateipfad erstellt und dann klappt das alles.
Joa das ist aber keine Option scheinbar. D.h. ich bräuchte eine Suchfunktion oder ähnliches, die diese Vorlage findet und dann die Werte einträgt und dann druckt.
Oder kann man diese Pfad ändern, so dass das Laufwerk egal ist. Also man bräuchte dann nur den Ordner in dem die Vorlage ist, irgendwo auf dem Rechner zu haben?!
Vielleicht hat auch jemand von euch einen ganz anderen Ansatz. Ich bin für jeden Vorschlag dankbar. Wenn irgendwas unklar ist oder ich mich dumm ausgedrückt habe, dann sagt es bitte.
Lieben Gruß
Thomas