"Ungültiger Dateiname"
"Kein Upload möglich"
Obwohl eine xlsm Datei ist.
Antonio
Sub Haupt()
Dim PDF As String
Dim datei As String
Dim lngSeite As Long
Dim pfad As String
Dim pfadDatei As String
Dim strSeite As String
Const titel As String = "PDF-Datei öffnen"
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
in Modul "Haupt" mit diesem Satz ändern.Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A6:A600")) Is Nothing Then Exit Sub
Range("B4").Value = Target.Offset(0, 2).Value
Call Haupt
End Sub
Range("A6:A600")