Ich habe folgende Formel im Tabellenblatt „Rental“:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Const Pfad As String = „D:\Documents and Settings\dejhbf05\Desktop\Seriennummer PDF’s“ ’ anpassen an den Pfad zum Ordner
If Target.Column 1 Then Exit Sub ’ raus wenn Spalte „A“
If Target.Value = „“ Then Exit Sub ’ raus wenn Zelle leer
Call PDFAuflisten(Pfad & Target.Value & IIf(Right(Target.Value, 1) „“, „“, „“))
Cancel = True
End Sub
Sie bezieht sich auf diese Formel im Modul 1:
Sub PDFAuflisten(ByVal Ordner As String)
Dim fso, f, Datei, PDF
Dim Abzählen As Byte
Const Acro As String = „C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe“ ’ ggfs. anpassen
Abzählen = 1
Set fso = CreateObject(„Scripting.FileSystemObject“)
If fso.folderexists(Ordner) Then
Set f = fso.getfolder(Ordner)
If f.subfolders.Count * 1 + f.Files.Count * 1 = 0 Then
MsgBox („Ordner ist leer“)
End If
For Each Datei In f.Files
If Not Datei.Name Like „*.pdf“ Then
If Abzählen = 1 Then MsgBox („Dateien ohne PDF Format vorhanden“)
Abzählen = 0
End If
Next
For Each Datei In f.Files
If Datei.Name Like „*.pdf“ Then
PDF = Shell(Acro & " " & Ordner & Datei.Name, vbMaximizedFocus)
End If
Next
Else: MsgBox („Ordner existiert nicht“)
End If
End Sub
Jetzt kommt seid neuestem, vorher funktionierte alles einwandfrei, immer wenn ich nen Rechtsklick mache immer die Fehlermeldung: „Fehler beim Kompilieren: Konstanter Ausdruck erforderlich“ und zwar bei der Formel im Tabellenblatt „Rental“ bei: Call PDFAuflisten(Pfad & Target.Value & IIf(Right(Target.Value, 1) „“, „“, „“))
wär gut wenn mir jemand sagen könnte was da auf einmal los ist, stehe momentan ziemlich aufm Schlauch
MFG
Ben
