Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei (PDF) aus Excel heraus öffnen

Datei (PDF) aus Excel heraus öffnen
THSEFA
Hallo Allerseits,
ich habe hier ein Problem, welches ich gerne mit eurer Hilfe lösen möchte.
https://www.herber.de/bbs/user/64465.xls
Meine Teile sind als Artikelnummern-PDF auf einem Server (P:\Einkauf\Sonstiges\PDF-Zeichnungen mit Artikelnummer) gespeichert. Wenn ich eine Zelle in der Spalte "Art.Nr" markiert habe, soll mittels Shortcut (z.B. Strg + q) ein Makro loslaufen, welches mir die PDF-Datei mit dem Namen aus der markierten Zelle öffnet.
Meine bescheidenen Kenntnisse übersteigt dieses Vorhaben bei weitem. Stellt sich folgende Frage: Geht das überhaupt? Wenn ja, würde mir jemand den Weg zeigen?
Vielen Dank schon mal im Vorraus fürs Anschauen!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei (PDF) aus Excel heraus öffnen
16.09.2009 15:29:12
JogyB
Hi.
Sorry, ich kann leider keine Dateien hier runterladen, deswegen ist vermutlich die von mir gewählte Spalte falsch. Die mußt Du noch korrigieren. Ich bin auch davon ausgegangen, das nur die Artikelnummer in der Spalte steht und für den Dateinamen einfach noch ein .pdf dahinter muss.
Der Code hier kommt in ein Modul in der Arbeitsmappe:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As  _
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As _
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub PDFoeffnen()
Const artNrSpalte = 3 ' Wäre C, mußt Du anpassen
Const pdfPath = "P:\Einkauf\Sonstiges\PDF-Zeichnungen mit Artikelnummer\"
' Muss eine Range sein und eine einzelne Zelle
' Nicht leer und in der richtigen Spalte
' und nicht in der ersten Zeile
If TypeName(Selection)  "Range" Then
Exit Sub
ElseIf Selection.Cells.Count  1 Then
Exit Sub
ElseIf Selection.Column  3 Or Selection.Row = 1 Then
Exit Sub
ElseIf Selection.Value = "" Then
Exit Sub
' Datei muss es natürlich geben
ElseIf Dir(pdfPath & Selection.Value & ".pdf") = "" Then
Call MsgBox("PDF-Datei nicht gefunden!", vbExclamation, "Fehler")
End If
' Öffnen
ShellExecute 0, "Open", pdfPath & Selection.Value & ".pdf", "", "", 1
End Sub
Wie Du unter Excel 2007 den Shortcut zuweist kann ich Dir leider nicht sagen. In Excel 2003 war es unter
Extras - Makro - Makros, dort das Makro auswählen und dann "Optionen"
Gruss, Jogy
Anzeige
AW: Datei (PDF) aus Excel heraus öffnen
16.09.2009 16:02:28
THSEFA
Hallo Jogy,
ganz großes Kino!!! Spalten angepasst, und schon läufts...
Vielen, vielen herzlichen Dank! Endlich brauche ich mich nicht mehr durch den PDF Haufen zu wühlen!:-)
Einen schönen Feierabend wünscht dir
THSEFA
AW: Datei (PDF) aus Excel heraus öffnen
16.09.2009 16:28:37
JogyB
Hi.
Gerade noch ein Fehlerchen aufgefallen, dass Du aber wohl schon selbst korrigiert hast (sonst würde es nicht laufen).
Eigentlich sollte das
ElseIf Selection.Column 3 ...
so lauten:
ElseIf Selection.Column artNrSpalte
Dann brauchst Du die Spalte nur oben bei dem
Const artNrSpalte = ...
anzupassen.
Wenn Du es beim ElseIf angepaßt hast, dann ist das Const artNrSpalte... unnötig, da es nirgends verwendet wird.
Gruss, Jogy
Anzeige
AW: Datei (PDF) aus Excel heraus öffnen
16.09.2009 17:39:28
THSEFA
Hi,
ja irgendwas muss ich ja als "KaumExcel/VBA-Kenntnisse" schon vorweisen können! Für Code schreiben reichts nicht hinten und nicht vorn, aber im Anpassen bin ich dafür etwas besser! :-)
Habe deinen Code jetzt schon soweit rumgefummelt, dass ich aus der Tabelle die Zeichnungen, Teile und Baugruppen starten lassen kann.
Ganz ehrlich, dieses Forum ist eine wahre Goldgrube! Was man hier lernen kann, gibts nirgendwo sonst in so geballter Form. Macht bitte weiter so!!!!
Beste Grüße, THSEFA

299 Forumthreads zu ähnlichen Themen

aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Anzeige
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Aus diversen Exceldateien einen Wert kopieren
Fabio

Hallo zusammen,
kann mir jemand helfen (vielleicht mit der Lösung) - oder zumindest einen Tipp nach was ich suchen könnte.
Problem:
in einem Verzeichnis liegen knapp 50 Excel-Dateien
ich will in einer neuen Datei (gesamt.xls)
in der Spalte "C" alle Werte aus jeder einzelnen...
13.02.2009 10:26:00
Thread-ID: 1050383
2 Beiträge
Tabellenblätter aus ext. Datei kopieren
Mandy

Hi,
such dringend Hilfe. Ich suche ein Makro, mit dem ich aus Excel heraus den ÖFFNEN-Dialog starten kann, eine externe Excel Tabelle auswählen kann und dann alle darin befindlichen Tabellenblätter in mein Sheet laden kann.
Muss dazu sagen, meine Tabelleblätter, die ich kopieren will, e...
20.03.2009 09:18:22
Thread-ID: 1062047
5 Beiträge
Sheet kopieren, einfügen und umbenennen
Mandy

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
26.03.2009 22:31:22
Thread-ID: 1064423
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
1
1
2
2
4
3
1
4
4
7
2
2
2
3
7
3
7
5
1
3
8
1
2
2