Hallo AL,

hab dein Code mal eingebaut, leider geht wie zuvor nur die Y Position, aber
die X Position nicht.

Was mach ich Falsch?

Code:
Declare Sub Ukommando(byval Wert As Byte)
Declare Sub Udata(byval Wert As Byte)
Declare Sub Position(byval X_wert As Byte , Byval Y_wert As Byte)
Declare Sub Initialisierung
Declare Sub Lcdloeschen
Declare Sub Keypressed
Declare Sub Menueuhr
Declare Sub Menuetrip1
Declare Sub Menuetrip2
Declare Sub Menuekm

Initialisierung
Lcdloeschen

Menue = Menuetrip1

Do
  Debounce Pind.0 , 0 , Keypressed , Sub
Loop


Sub Keypressed

 Select Case Menue
        Case Menueuhr : Menuetrip1
        Case Menuetrip1 : Menuetrip2
        Case Menuetrip2 : Menuekm
        Case Else : Menueuhr
 End Select

End Sub

' ----------------Initialisierung----------------------------------------------
Sub Initialisierung
   Ukommando &H21                                           'Erweiterter Kommando-Mode
   Ukommando &H13                                           'Bias (Kontrast) Einstellung Original Nokia = &H13
   Ukommando &HA8                                           'Kontrasteinstellung Original Nokia = &HC8
   Ukommando &H06


   Ukommando &H0C
   Ukommando &H20                                           'Wieder in den normalen Kommando-Mode

End Sub

' ----------------Display Löschen----------------------------------------------
Sub Lcdloeschen
  Local I As Word
   Ukommando &H20                                           'Normaler Kommando-Mode
   Ukommando &H0C                                           'Normaler Bildschirm
   Ukommando &H80                                           'Setze RAM-Adresse auf 0
   Dc = 1                                                   'Sicherstellen, dass man im Daten-Mode ist
   For I = 0 To 503
      Udata &H00
   Next
End Sub

' ----------------Uhr des Menüs----------------------------------------------
Sub Menueuhr

Lcdloeschen
Position &B10001100 , &B01000101
Udata &H3F
Udata &H40
Udata &H40
Udata &H40
Udata &H3F

Udata &H00
Udata &H7F
Udata &H08
Udata &H08
Udata &H08
Udata &H7F

Udata &H00
Udata &H7F
Udata &H09
Udata &H19
Udata &H29
Udata &H46

Menue = Menueuhr

End Sub

' ----------------Trip1 des Menüs----------------------------------------------
Sub Menuetrip1

Lcdloeschen
Position &B10111100 , &B01000011
Udata &H01
Udata &H01
Udata &H7F
Udata &H01
Udata &H01

Udata &H00
Udata &H7F
Udata &H09
Udata &H19
Udata &H29
Udata &H46

Udata &H00
Udata &H00
Udata &H41
Udata &H7F
Udata &H41
Udata &H00

Udata &H00
Udata &H7F
Udata &H09
Udata &H09
Udata &H09
Udata &H06

Udata &H00
Udata &H00
Udata &H42
Udata &H7F
Udata &H40
Udata &H00

Menue = Menuetrip1

End Sub

'------------Position x & y---------------------------------------------------
Sub Position(byval X_wert As Byte , Byval Y_wert As Byte)
   Dc = 0                                                   'in den Kommando-Mode
   X_wert = X_wert Xor &H80                                 'X_Wert = Spalte 0-83
   Spiout X_wert , 1
   Y_wert = Y_wert Xor &H40                                 'Y_Wert = Zeile 0-5
   Spiout Y_wert , 1
   Dc = 1                                                   'zurück in den Daten-Mode
End Sub

'------------Kommando Senden---------------------------------------------------

Sub Ukommando(byval Wert As Byte)
   Dc = 0                                                   'in den Kommando-Mode
   Spiout Wert , 1
   Dc = 1                                                   'zurück in den Daten-Mode
End Sub

'------------Daten Senden------------------------------------------------------
Sub Udata(byval Wert As Byte)
   Dc = 1                                                   'um sicher zu gehen, dass man auch wirklich im Datenmode ist
   Ce = 0
   Spiout Wert , 1
   Ce = 1
End Sub