Clever-Excel-Forum

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

Hallo, :19:

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

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

hallo Case,

vielen Dank für deine Antwort!

Das hat mir sehr weitergeholfen :)

Viele Grüße

Tobias

McArthur1

Case

McArthur1