Wo liegt da der Fehler ?
#################
Option Explicit
###########################################################
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("Quellblatt").Select
Range("L2").Select
Do While ActiveCell.Value > "1"
If Len(ActiveCell.Value) > 1 Then Call Infomakro
ActiveCell.Offset(1, 0).Select
Loop
End Sub
########################
Sub Infomakro()
MsgBox "Zahl ist grösser als 1 !", vbCritical
End Sub
#############################
Gruß Ingo