Wenn ein Blatt nicht vorhanden ist, abbrechen.
18.02.2004 17:42:19
Alexej
Ich habe hier ein Stueckchen Code, dass bestimmte Blaetter ausliest und diese anderswo verwendet. Falls ein Arbeitsblatt nicht vorhanden ist, spuckt er mir ein Fenster aus, wo er vorschlaegt einen neuen Hyperlink zu erstellen zu einem Blatt und falls ich auf abbrechen klicke, so endet das ganze mit einem Runtime error.
Problem:
Wie kann ich es unterbinden, dass er das Fenster mit Hyperlinkerstellung oeffnet und den runtime error durch eine Benutzerdefinierte Meldung ersetzen kann?
ThisWorkbook.Worksheets("LMOut").Range("$F$176").Value = 0
lSumL = 0
ThisWorkbook.Sheets("LMOut").Range("$F$177").Formula = _
"='" + cFpath + "[" + cFname + "]Ver. " + CStr(i) + " Blatt 1"
nContracts = ThisWorkbook.Sheets("LMOut").Range("$F$177").Value
For i = 1 To nContracts
ThisWorkbook.Sheets("LMOut").Range("$F$177").Formula = _
"='" + cFpath + "[" + cFname + "]Ver. " + CStr(i) + " Blatt 1"
lSumL = lSumL + ThisWorkbook.Sheets("LMOut").Range("$F$177").Value
Next
Viele Gruesse,
Alexej