Messagebox-HIlfe!!
03.03.2003 09:28:43
kosikar
Also ich hab folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
Target = ""
Application.EnableEvents = True
End If
If Range(E6) = 1 Then
Call MsgBox("leer")
End If
End Sub
Mein Problem liegt darin das ich folgende Fehlermeldung bekomme:
Laufzeitfehler '1004':
Die Methode 'Range' für das Objekt'_Worksheet' ist fehlgeschlagen
Danke im Vorraus.