Office: Upload CommandButton

Bin noch VBA Anfänger und brauche eure Hilfe.

Folgendes, ich habe auf Tabellenblatt "A" drei CommandButtons.
Der erste soll mich zu einem anderen Dokument verlinken.
Der zweite soll ein Upload Button sein, wenn ich draufklicke soll sich ein Fenster öffnen womit ich ein externes Dokument hochladen kann auf den ersten Button.
Nun soll der erste Button das externe Dokument öffnen können.
Der dritte Button soll die Verlinkung von CommandButton1 entfernen und ihn wieder funktionslos machen.
Immer wenn CommandButton1 eine Verlinkung hat soll die Hintergrundfarbe des Buttons grün sein.

Für mich als Anfänger viel zu kompliziert, aber ich hoffe mir kann da jemand weiterhelfen, ist für eine Firmenprojekt.

:)

 

Moin JanPoldi,

du müsstest da konkreter werden.
Was ist eine Verlinkung für dich?
Was verstehst du unter einem Upload? Betreibst du einen eigenen Server? Wie sind die FTP-Zugangsdaten?
Warum erledigst du das nicht einfach mit der Hyperlink()-Formel?
Welche Vorarbeiten hast du schon erledigt (bis auf drei Funktionslose Commandbuttons)?
Und handelt es sich um ActiveX-Controls, oder Formularsteuerelemente?

Das ist natürlich nicht schlimm, alle haben schließlich mal als Anfänger angefangen, aber denk daran, dass du genügend Eigeninitiative mitbringst (rechne in Monaten, nicht in Wochen, bis du die Grundlagen von VBA draufhast). Je nachdem, welchen Umfang dein betriebliches Problem annimmt, ist eine bezahlte Fremdvergabe vielleicht sinnvoller, als kostenlose Hilfe zur Selbsthilfe.

Viele Grüße erstmal!d
derHöpp

 

Bis auf die drei Funktionslosen Buttons habe ich noch nichts gemacht, ich weiss nicht wie ich anfangen soll.
Das sind Formularsteuerelemente.
Eine Verlinkung bedeutet für mich, ich klick auf den Button und das Dokument oder auch die Datei (PDF, Word, Excel) öffnet sich.
Unter einem Upload verstehe ich oder eher gesagt meine ich, dass sich bei CommandButton2 ein Fenster öffnet indem ich die Datei aus dem richtigen Verzeichnis/Ordner aussuchen kann für den CommandButton1, der die Datei dann öffnen soll.

 

Hallo Jan,

Der Anfang scheint gemacht ?

Aber es gibt trotzdem noch Fragen:

Woher kennt man Pfad und Namen der Datei ?

Ist das eine weitere Datei, die Du aussuchen und dann öffnen willst ?

Gruß
Aloys

 

Den Pfad kennt man noch nicht, man soll sich die Datei aussuchen können. Das ganze soll da sein um Dokumente zu hinterlegen. Die Datei wird immer wieder verwendet und es werden immer wieder andere Dokumente hinterlegt werden müssen.

 

Hallo Jan,

Du willst eine Datei aussuchen: anhand eines bestimmten Namens oder von Namensbestandteilen ?
Aus einem Ordner, den Du noch nicht kennst. Irgendwo im System oder näher eingrenzbar ?

Gruß
Aloys

 

Hallo,

du willst den Windows-Explorer nachprogrammieren ? Wieso das denn ?
Die Shell ist doch viel flexibler ... da kannst du sogar mit Drag&Drop arbeiten und der Explorer öffnet auf Klick jedes benötigte Programm ...

Wo liegt denn dein Problem ? *eek.gif*

 

Was ist die Shell? Sorry kenne mich da noch nicht so aus *redface.gif*

Nein, ich möchte auch nicht den Windows Explorer nachprogrammieren.
Es soll mit CommandButton2 nur das Fenster aufgehen, das ich auch kriege wenn ich folgendes mache... Einfügen -> Objekt -> Aus Datei erstellen -> Durchsuchen.
Ich möchte irgendeine Benutzerfreundliche Möglichkeit haben, den CommandButton1 mit einer Datei hinterlegen zu können, entweder als Objekt in einem neuen Tabellenblatt oder als Datei die sich öffnet wenn ich CommandButton1 klicke.

Die Excel Datei ist nachher für viele Leute vorgesehen und soll einiges an Arbeitszeit sparen, da vieles dort drine automatisiert ist und als eine Art Vorlage dient, aber wenn jetzt jeder so einem Button manuell eine Datei zuweisen muss, dann ist es A nicht mehr Benutzerfreundlich und B die haben alle leider keine ahnung von EDV, denen muss man es so einfach wie möglich machen, ist leider so *biggrin.gif*

 

Hallo noch einmal,

ich muss zugeben, ich habe Schwierigkeiten, deine Beschreibung vollständig nachzuvollziehen. Vielleicht stellst du mal dar, was deine Datei später machen soll, was nicht schon der Windows-Explorer kann. Was sind das denn für ominöse Dokumente, die sich dann jemand später ansehen kann? Und warum soll nur eines im "Schnellzugriff" sein? Haben alle User Zugriff auf das gleiche Dateisystem? Hast du einfach mal die Tastenkombination Strg+K ausprobiert?
Und eine Frage von mir war noch offen: Warum nutzt du nicht eine Hyperlink()-Formel?

 

Die Tastenkombination Strg+K könnte mir schonmal enorm weiterhelfen, denn genau dieses Fenster soll sich öffnen bei einem der CommandButtons.
Wenn ich dann eine PDF Datei vom Server wähle in diesem Fenster, soll sich diese PDF Datei mit dem anderen CommandButton verbinden.

Wir haben alle Zugriff auf denselben Server/Netzwerk.

Es ist mir eigtl. auch egal wie man es nun macht, ob es CommandButtons sind oder keine. Ich möchte quasi per Knopfdruck in diesem Strg+K Fenster eine PDF Datei auswählen können, diese soll dann entweder abspielbar sein über einen Button oder auf einem Tabellenblatt landen als Objekt, WebBrowser oder was auch immer.

Ich weiss nicht wie ich das mit einer Hyperlink Formel lösen soll, ich muss dann doch ein genaues Dateiverzeichnis eingeben, aber das Dateiverzeichnis soll immer frei wählbar sein.

Ich hoffe jemand versteht mein Problem und kann mir da weiterhelfen, es tut mir leid wenn ich das alles bisschen unverständlich erkläre, aber ich weiss nicht wie ich es verständlicher erklären kann als wie ich es schon getan hab :-/

 

Ich versuche es gerade zu lösen und bin eigentlich schon fast am Ziel, nur das ich noch einige Probleme habe.

Problem 1:
Ich habe einen CommandButton erstellt mit folgendem Code:

und einen WebBrowser Steuerelement eingefügt.

Das Problem ist, ich kann mit dem Button eine PDF Datei auswählen, diese zeigt auch der WebBrowser in einem Tabellenblatt an, aber wenn ich kurz zu einem anderen Tabellenblatt gehe und wieder zurück, dann zeigt er die Datei nicht mehr an im WebBrowser, der WebBrowser ist dann wieder leer, ich möchte aber dass er sich diese Datei merkt und ich ggf. mit dem CommandButton wieder eine neue Datei dort hinterlegen kann.

Problem 2:

Der CommandButton soll grün sein, wenn eine Datei hinterlegt ist im WebBrowser, sonst soll er grau sein

 

UPDATE:

Bin noch etwas weiter gekommen, ich hoffe diesmal kann ich es letztendlich verständlich erklären mit Bildern.

1. Hier sieht ihr mein Deckblatt, dort gibt es die Spalte Hinterlegte Dokumente, man soll dort also irgendwie Dokumente hinterlegen können unter dem rot markierten Button. Der Button führt zu einer UserForm, wie ihr im folgenden Bild sieht.







2. Hier sieht man die Userform, der rot markierte Button von Bild 1 führt uns hierhin. der blau markierte Button in diesem Bild hat eine Funktion wie in Bild 3 zu erkennen ist, die anderen Buttons noch nicht. Der Upload Button öffnet ein Auswahlfenster, ähnlich wie mit Strg+K und lässt mich eine Datei z.B. PDF auswählen, diese zeigt er dann auch an.







3. CommandButton1 (Upload) erfüllt seine Funktion. Jetzt soll der CommandButton3 die Datei direkt öffnen, die ich mit CommandButton1 (Upload) ausgewählt hatte. CommandButton2 (Dokument löschen) soll das Dokument wieder entfernen, so dass der WebBrowser leer ist.







Wenn die Buttons ihre Funktion erfüllen, hab ich noch das Problem dass die Userform sich nicht speichert, sondern ich das Dokument immer wieder neu hochladen muss, also brauche ich dorthin gehend auch noch hilfe

 

Hallo noch einmal,

wie ich nun konkret helfen kann, weiß ich aus deinen Bildern (!) immernoch nicht. Ich würde einfach den Quatsch mit der UserForm und eigenen Buttons sein lassen und ganzganz einfach den User bitten, in den Zellen ab Zeile 6, Strg+K zu drücken, eine Datei auszuwählen und mit OK zu übernehmen. Ein Klick auf den dann eingefügten Link öffnet die Datei, mit Entf wird der Link wieder entfernt. Das ist tausendfach erprobtes Excel-Standardverhalten. Warum um Himmelswillen willst du dir selbst etwas darumherumfrickeln, was eine Standardfunktion so mittelgut ersetzt? Der einzige Sinn den ich in einer solchen Übung sehe ist es, VBA lernen zu wollen.
Zudem: Bilder sind in einem Excel-Forum zur Hilfe nur selten hilfreich. Einen Screenshot vom Codefenster habe ich selten gesehen. Dafür gibt's die Code-Tags.

Viele Grüße
derHöpp

 

Ist mir schon klar das Strg+K am einfachsten wäre, aber ich möchte zusätzlich auch VBA besser können und was dazu lernen.
Gibt es denn generell keine andere Altrernative?

Also besser kann ich es echt nicht erklären. Über den Bildern ist doch alles beschrieben. Hauptsächlich brauche ich jetzt nur noch einen Code womit ich die Userform speichern kann, die resetet sich nämlich jedesmal wenn ich sie schließe.