fehler von 32 auf 64 Bit
04.01.2018 18:01:53
32
habe ein Makro dies ist mit 32 Bit geschrieben habe ich selbst habe jedoch 64 Bit
Das Makro
Private Sub cmdPDF_Click()
'Link in PDF-Spalte öffnen
Dim Zeile As Long
Dim Zelle As Range
Dim pdfFile As String
With Me.ListBox1
If .ListIndex -1 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Set Zelle = wksData.Cells(Zeile, 8) 'Zelle mit PDF-Hyperlink
pdfFile = Zelle.Hyperlinks(1).Address
ShellExecute 0, "open", pdfFile, "", "", 0 '0 = Parameter zur Anzeige
End If
End With
End Sub
habe im extra Modul folgendes hinterlegt
Private Declare PtrSafe Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
aber er bringt mir den Fehler "Sub oder Funktion nicht gefunden"
markiert wird ShellExecute0
könnte mich jemand unterstützen wäre sehr nett
Danke
Anzeige