leider funktioniert es so bei mir nicht
30.09.2019 12:00:12
Sabine
Hab jetzt es jetzt hin und her versucht. Aber leider ist die Deklaration nicht erfolgreich weil sie sich auch jedesmal rot färbt sobald ich diese einfüge. So ist der aktuelle Code:
Private Declare
Function ShellExecuteA Lib "shell32.dll" ( _
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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Datei As String, NeuDatei As String, Pfad As String, NeuPfad As String
Dim strOff As String, Ext As String
If Target.Column = 4 Then
If Target "" Then
Ext = ".pdf"
strOff = "\123\456 789\"
Pfad = ThisWorkbook.Path
Datei = Target
NeuPfad = Left(Pfad, InStrRev(Pfad, "\") - 1) & strOff
If Dir(NeuPfad, vbDirectory) "" Then
NeuDatei = NeuPfad & Datei & Ext
If Dir(NeuDatei) "" Then
Call ShellExecute(0, "print", NeuPfad & Datei & Ext, "", "", nShowCmd)
Else
MsgBox NeuDatei & " NICHT gefunden", vbCritical
End If
Else
MsgBox "Pfad nicht gefunden", vbCritical
End If
End If
End If
End If