Probleme mit Makro in MS 2007
Claudia
bieher hat mein nachstehendes Makro (habe ich hier aus dem Forum) unter Excel 2003 funktioniert. Jetzt stellen wir gerade auf Excel 2007 um und das Makro funzt nicht. Ich erhalte immer die Fehlermeldung:
"Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (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
Public hWnd As Long
Public Const SW_HIDE = 0 ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3 ' Maximiert öffnen
Public Const SW_MINIMIZE = 6 ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4
Public Function DateiÖffnen(Aktion As String, Pfad As String, _
Ansicht As String) As Boolean
Call ShellExecute(hWnd, Aktion, Pfad, "", "", Ansicht)
End Function
Private Sub termine()
'Eine beliebige Datei öffnen...
Dim Pfad As String
'Einfach den Pfad ändern und das war's....
Pfad = ActiveWorkbook.Path & "\Termine.pdf"
DateiÖffnen "open", Pfad, SW_MAXIMIZE
End Sub
Wer kann mir bitte helfen.
Danke und Gruß
Claudia