Office: VBA-Projekt (Rechnungsvorlage) lässt sich nicht bearbeiten

Hallo Zusammen,
habe vor kurzem Office 2016 64bit gekauft und nach der Installation, wenn ich die Datei Rechnungsvorlage öffne, den Button Neue Rechnung erstellen klicke und auf eine x-beliebige Adressenzeile klicke erscheint folgende Fehlermeldung. Fehler beim Kompilieren: Typen unverträglich
Wenn ich auf OK klicke ist die Zeile
Private Sub FindFiles(ByVal strFolderPath As String) gelb markiert und
lngSearch = FindFirstFile(strFolderPath & "*.*", WFD) ist FindFirstFile blau markiert.
Ich hoffe sehnlichst, dass ihr mir helfen könnt.

Vielen Dank im Voraus

Vasek

:)

 

Hi Vasek,

bin jetzt nicht alles durchgegangen, aber was mir sofort aufgefallen ist, ist dies:

1. Die Funktionsdeklaration in clsFileSearch ist fehlerhaft. Du schreibst:

Code:

entferne überall das PtrSafe

2. Gleich die 1. Funktionsdefinition läuft ins Leere. Die Funktion FindFirstFile gibt es nicht bei Dir.
Das erklärt die Fehlermeldung. Du müsstest mal schauen, wo Deine Funktion FindFirstFile abgeblieben ist...*Smilie

 

Hallo,

ich denke PtrSafe wird benötigt....

Gruß, Muller

 

Hallo!

PtrSafe muss bleiben, da der TO die 64-bit-Version von Office verwendet. Ich verwende die 32-bit-Version (unter einem 64-bit-Windows) und habe keine Probleme mit PtrSafe.

Gibt es sehr wohl. Im Klassenmodul gleich die erste Zeile "Private Declare PtrSafe Function FindFirstFile". Sonst würde es ja bei mir nicht funktionieren.

Wird sie auch. Allerdings muss bei Dir etwas mehr geändert werden als nur PtrSafe zu setzen. Aber deinstalliere die 64-bit-Version und installiere die 32-bit-Version. Oder hast Du Dateien größer 2GB?

Gruß, René

 

Hallo,
danke für die Hinweise. Leider verstehe ich von VBA nicht sehr viel und das Programm hat mir einer aus dem Forum vor einem guten Jahr erstellt.
Ich besitze leider nur die 64Bit Version von Office 2016. Darum wollte ich es so abändern, dass ich die Rechnungsvorlage mit dem jetzigen Office bearbeiten kann.

Gruß
Vasek