Meine Excel Tabelle

[00202]

Moin Günter,

hier ist alles erklärt (mit Beispieldatei):

UNIZEICHEN...

Du kannst es aber auch über Word machen:

• Öffne Word mit einer leeren, neuen Seite
  
• Gib 1F915 ein (Liste der UNICODE-Zeichen gibt's im Netz)
  
• Drücke dann direkt im Anschluss ALT+C
  
• Symbol nach Excel kopieren
  

[WillWissen]

Vielen Dank, Ralf.

[Sonic76]

Vielen Dank!! Leider öffnet sich der Kalender nicht, bekomme diese Fehlermeldung
Smileys sind super!

[schauan]

Hallöchen,

die Meldung könntest Du beseitigen mit

Declare PtrSafe Function ReleaseCapture Lib "user32.dll" () As Long

Sollte die Zeile dann immer noch rot markiert sein,

dann

Declare PtrSafe Function ReleaseCapture Lib "user32.dll" () As LongPtr

[00202]

Hallo,

schreibe die Zeile so:

Code:

Private Declare PtrSafe Function ReleaseCapture Lib "user32.dll" () As Long

Nicht LongPtr hinten da nur Funktionsparameter oder Rückgabewerte die einen Zeiger auf einen Speicherplatz oder ein Handle (z. B. Window Handle (HWND) oder Picture Handle) darstellen, als LongPtr deklariert werden sollten.

Die API-Funktion ReleaseCapture hebt lediglich die SetCapture-Funktion wieder auf.

Habe den Kalender mal von XLPH aus dem Netz gefischt und die API-Deklarationen nicht kontrolliert.

[Sonic76]

Halte mich nicht für gaga aber ich komm einfach nicht auf die Seite um dies zu bearbeiten :( Könntest du es ändern und mir hier erneut integrieren? Auch die Smileys, Vielen Dank im Voraus!

[00202]

Hallo,

siehe Anhang - habe hier allerdings kein 64Bit zum testen.
[attachment=38047]

[schauan]

Hallöchen,

mal allgemein, für die 64er Variante müssen ggf. auch die Variablendeklarationen angepasst werden.

Folgendes müsste geändert werden, damit der Kalender läuft

*************************************
- im 64er Zweig
Private Declare PtrSafe Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As LongPtr, _
ByVal nIndex As Long, _
ByVal dwNewLong As LongPtr) As LongPtr

*************************************
bei Variablendeklarationen weitere Fallunterscheidung nötig
- 32
Private hWndForm As Long
-64
Private hWndForm As LongPtr

*************************************
im Userform_Activate

weitere Fallunterscheidung nötig
- 32
Dim lngHwnd As Long
-64
Dim lngHwnd As LongPtr

[Sonic76]

Nun ja, wie vorhergesehen geht er nicht ;) Für mich ist dies alles chinesisch, könntest du mir den Code implementieren? Vielen Dank im Voraus!

[00202]

Hallo,

könnte etwas schwierig werden mit 64 Bit. Kanns hier nicht testen. Eventuell kann André das testen.

Da du ja nur ein Datum auswählen möchtest, können wir das API-Gedöns auch weglassen. Ein Kalender der auch bei dir laufen sollte:
[attachment=38074]