Danke für eure Hilfe,
ich habe versucht möglichst alles richtig umzusetzten und hoffe ich habe es richtig gemacht/bzw. alles verstanden

wert <> wert then 'heißt doch wenn sich wert verändert, dann: oder?

leider klappt es immer noch nicht richtig... es ist sogar etwas schlechter geworden, aber vom Prinzip her funktioniert das Programm denk ich

Code:
                                         'Encoder test
'--------------------------------------------------------------
$regfile = "attiny2313.dat"                                 'ATTINY 2313
$crystal = 8000000                                          'TACKT 8Mhz


'******** Deklarationen ********


 Dim Zaehlwert As Word

'******** Initialisierung ********                                                 '

 Ddrd = &B11100000
Portd = &B00000000

Zaehlwert = 1

'******** Hauptprogramm ********

Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.2       'LCD configurieren (datenleitung)

Config Int0 = Falling                                       'INT0 = wenn taster gedrückt wurde
Enable Int0                                                 ' erlaube INT0
Enable Interrupts                                           ' erlaube Interrupts
On Int0 Unterprogramm                                       ' gehe zu Unterprogramm

Dim A As Byte
Config Lcd = 16 * 2                                         ' 16*2 Zeilen

Cls                                                         'display löschen
Main:                                                       'hauptprogramm

  Do


    If Zaehlwert <> Zaehlwert Then                          'wenn sich zählwert ändert
    Locate 1 , 1                                            'cursor in Zeile 1, Reihe 1
    Lcd Zaehlwert                                           'schreibe "Zählwert"
    Cursor Off                                              'cursor off

    End If                                                  'end if


  Loop




 '---------------------------------------------------------------------------------





 Unterprogramm:                                             'Unterprogramm

  Do
    Zaehlwert = Zaehlwert + 1                               'addiere 1 zu Zähltwert

  Return                                                    'zurück zu Main


  Loop