Error-Routine
20.01.2004 12:41:16
Sylvia
wahrscheinlich nerve ich schon langsam, aber ich komme einfach nicht weiter.
ich habe folgenden quelltext programmiert. läuft alles prima, nur die fehlerroutine nicht.
die msgbox wird zwar angezeigt, aber das programm wird nicht geändert. die letzte for-next schleife wird noch durchgeführt.
was mache ich falsch ?
DANKE sylvia
If sparen = Null Then
GoTo MELD
Exit Sub
End If
For a = 1 To sparen
ActiveSheet.Shapes.AddLine(10 + 28 * a, 288#, 10 + 28 * a, 285 + 10 * (j + 1)).Select
Selection.ShapeRange.Line.Weight = 1.5
Selection.Name = a
Next
For k = 1 To sparen - 1
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=12 + 28 * k, Top:=275, Width:=23, Height _
:=18).Select
Next
For z = 1 To y
ActiveSheet.Shapes.AddLine(32#, 285 + 10 * z, 10 + 28 * (i + 0.5), 285 + 10 * z).Select
Selection.ShapeRange.Line.Weight = 1.5
Next
MELD:
MsgBox ("Keine Sparen eingegeben")