Excel Umstellung von 32-bit auf 64-bit | Probleme mit VBA

[McArthur1]

Hallo,

ich habe mit einigen Codes ein Problem was die Programmierung angeht. 
Und zwar wird mir zum Beispiel bei folgendem Code...:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Veranstaltungskalender()
  With ActiveSheet
    .Shapes(Application.Caller).Line.ForeColor.RGB = RGB(146, 208, 80)
    Application.ScreenUpdating = True
    Sleep 333  'Pause in Millisekunden
    .Range("H29").MergeArea.Cells(1).Value = .Range("H29").MergeArea.Cells(1).Value + 1
    .Shapes(Application.Caller).Line.ForeColor.RGB = RGB(0, 0, 0)
  End With
End Sub

... folgende Fehlermeldung angezeigt:

"Fehler beim kompilieren:
Der Code in diesem Projekt muss für die Verwendung auf 64-Bit-Systemen aktualisiert werden. Überarbeiten und aktualisieren Sie Declare-Anweisungen, und markieren Sie sie mit dem PtrSafe-Attribut".

Da ich noch nicht sehr viel Erfahrung mit VBA habe, würde ich mich über eine Antwort sehr freuen.

Viele Grüße

Tobias

[Case]

Hallo, :19:

mit ein wenig Suche über eine Suchmaschine Deiner Wahl hättest Du die Antwort finden können.

Code:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Schau dazu auch mal hier:

Declaring API Functions In 64 Bit Office

Compatibility Between the 32-bit and 64-bit Versions of Office 2010

[McArthur1]

hallo Case,

vielen Dank für deine Antwort!

Das hat mir sehr weitergeholfen :)

Viele Grüße

Tobias