Thema Datum  Von Nutzer Rating
Antwort
20.03.2019 17:32:13 Sven
NotSolved
20.03.2019 20:02:01 Ulrich
NotSolved
20.03.2019 20:20:23 Gast12217
NotSolved
Blau PDF in Excel hinzufügen und ansehen
21.03.2019 00:59:00 Ulrich
NotSolved
21.03.2019 17:25:25 Sven
NotSolved
23.03.2019 09:26:24 Ulrich
NotSolved
23.03.2019 10:38:18 Flotter Feger
NotSolved
23.03.2019 12:34:57 Ulrich
NotSolved
25.03.2019 21:38:11 Sven
NotSolved

Ansicht des Beitrags:
Von:
Ulrich
Datum:
21.03.2019 00:59:00
Views:
503
Rating: Antwort:
  Ja
Thema:
PDF in Excel hinzufügen und ansehen

Hallo,

ich hatte dich so verstanden, dass du noch gar keine Datenbank hast. Und dachte, du möchtest Excel als Datenbank benutzen. Dann habe ich mir das so vorgestellt, dass die Pfade und Dateinamen der Pdf-Dateien irgendwie zeilenweise in ein Exceltabellenblatt geschrieben werden (zum Beispiel in Spalte B).

Um eine Pdf-Datei zu dieser Liste ("Datenbank") hinzuzufügen, klickt man auf einen Button  und es öffnet sich ein Fenster (wie wenn man eine Datei öffnen möchte). Man kann in diesem Fenster die Pdf-Datei auswählen und es wird der Dateipfad und Dateiname in eine leere Zeile in Spalte B eingetragen.

Dazu habe ich mir einen weiteren Button vorgestellt, der eine der Dateien öffnet (welche das nun sein soll, weiß ich nicht, da ich ja nicht weiß, was du so vorhast).

Und dann noch einen dritten Button. Klickt man auf den, kann man auswählen, welche Datei aus der Liste gelöscht werden soll.

Die beiden letzten Buttons halte ich für nicht sinnvoll, da würde ich mit einem Hyperlink arbeiten und zum Löschen einfach die Zeile löschen.

Soweit zur Erklärung meines letzten Posts.

 

 

Jetzt habe ich verstanden, dass du bereits eine Datenbank hast, die die Dateinamen und Dateipfade beinhaltet.

Dann sehe ich da vor meinem geistigen Auge drei Makros, die in etwa so aussehen:

sub HolePfadAusDatenbank()
    dim sPfad as string
    
    'Pfad aus Datenbank holen (keine Ahnung, wie du deine Datenbank ansprichst)
    sPfad = ....

    'Pfad in Zelle ablegen
    thisworkbook.worksheets("Tabelle1").Range("A1").value = sPfad
end sub

 

sub OeffnePdfDatei()
    dim sPfad as string
    
    'Pfad aus Zelle lesen und in einer Variablen ablegen
     sPfad = thisworkbook.worksheets("Tabelle1").Range("A1").value

    'Die Pdf-Datei öffnen (den Code hast du ja schon):
    '...
end sub

 

sub PfadAusZelleEntfernen()
    thisworkbook.worksheets("Tabelle1").Range("A1").clearcontents
end sub

 

Grüße, Ulrich


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.03.2019 17:32:13 Sven
NotSolved
20.03.2019 20:02:01 Ulrich
NotSolved
20.03.2019 20:20:23 Gast12217
NotSolved
Blau PDF in Excel hinzufügen und ansehen
21.03.2019 00:59:00 Ulrich
NotSolved
21.03.2019 17:25:25 Sven
NotSolved
23.03.2019 09:26:24 Ulrich
NotSolved
23.03.2019 10:38:18 Flotter Feger
NotSolved
23.03.2019 12:34:57 Ulrich
NotSolved
25.03.2019 21:38:11 Sven
NotSolved