Error
11.09.2005 21:09:36
Tatiana
koennten Sie mi8r erklaeren, wie man die Funktion "error" benutz?
In meinem Fall es geht um:
Private Sub BedingungenB()
If Cells(15, 3) < 1650 Then
MsgBox "Forget it! TS has to be at least 1650"
Cells(15, 3).ClearContents
Cells(15, 4).Value = "min=1650mm!"
Cells(15, 4).Font.ColorIndex = 3
Cells(15, 4).Font.Bold = True
With Worksheets("B2").ChargeEx
.ListFillRange = "Tables!F15"
.ListIndex = 0
'Exit Sub
End With
Else
Cells(15, 4).ClearContents
End if
Bei drucken von Knopf "Calculate"
Private Sub Calcul_Click()
BedingungenB
Worksheets("B2-3").Activate
End Sub
es funktioniert auch: Kommentar wird links geschrieben, die Zelle geleert.
Aber er springt aber auf die naechste Seite... Ich haette aber gerne gehabt, dass es so lange auf Seite B2 bleibt bis BedingungB erfuellte wird.
Ich werde super dankbar, wenn jemand mich aufklaert!
Tatiana