|
Hallo zusammen
Ich habe zwei Codes die ich mit hilfe von Google gefunden habe, das problem ist aber ich müsste diese beiden kombinieren nur bringe ich das nicht hin.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngPrüfbereich As Range
Set rngPrüfbereich = Range("A1:A20")
If Not Intersect(Target, rngPrüfbereich) Is Nothing Then
Application.EnableEvents = False
Target.Value = Replace(Target, ".pdf", "")
ActiveSheet.Hyperlinks.Add Anchor:=Target, _
Address:="C:\Temp\" & Target & ".pdf"
Application.EnableEvents = True
End If
End Sub
Mit diesem Code kann ich verschiedene pdf`s öffnen mit einem click auf eine Zelle.
Sub OeffnePDF()
Dim Datei As String
Datei = "D:\Documents and Settings\nicole.wurkowski\Desktop\STX Auswertung\Kunde A.pdf"
ActiveWorkbook.FollowHyperlink Datei
'Zwischenablage:
SendKeys "^a", True
SendKeys "^c", True
'pdf Schließen:
SendKeys "%{F4}"
Application.wait(now+timevalue("00:00:02"))
'In Excel-Tabellenblatt einfügen
ActiveSheet.Paste
End Sub
Mit diesem Code kann mann den inhalt einer pdf Kopieren,
Ich habe diese Codes einzel Probiert da funktionieren diese einwandfrei. Ich hätte es jetzzt gerne so das ich mit einem Click auf die Zelle die pdf Datei öffnen kann und sie sich dann selber kopiert und einfügt was mit dem zweiten Code möglich ist.
Gruss psch
|