Es läuft nocht nicht mit deinem Code.
Wenn ich es so anklemme wie es im original angegeben ist funktioniert es mit Bascom :

Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 64
$crystal = 16000000
$baud = 19200

$lib "Lcd_i2c.lib"

Config I2cdelay = 1
Config Sda = Portc.1
Config Scl = Portc.0

Const Pcf8574_lcd = 114

Dim _lcd_e As Byte

Enable Interrupts

_lcd_e = 128

Dim A As Byte

Cls
Lcd "hallo...i2c"

Wait 1

Locate 2 , 1
Lcd "shiften."

Wait 1

For A = 1 To 10
   Shiftlcd Right                                           '
   Waitms 250
Next

For A = 1 To 10
   Shiftlcd Left
   Waitms 250
Next

End