Frage zu Open Office Calc

Sub gpx_Zeit_aendern
'---------------------------------------------------------------------------------------------  
' Variablen deklarieren  

dim oCalcDokument	As Object, oDispatcher	As	Object

dim	oDoc			As Object, oTabBlatt	As Object, oRange	As Object, oZelle 	As Object
dim	oCellCursor	As Object, oView		As Object, oSheets	As	Object
dim oZielInput	As	Object
'---------------------------------------------------------------------------------------------  
' Bearbeitungs- Variable  
'---------------------------------------------------------------------------------------------  
dim nZei	As	Integer							'Beginn der zu bearbeitenden Zeilen  
dim nLetzteZ	As	Long, nTo	As	Long
							'letze zu bearbeitende Zeile  
dim sAbfrage	As	String	'wichig für die letzte Zeile  
'----------------------------------------------------------------------------------------------  
dim c	As	Long, i As	Long					'Zähler  
dim x	As	Integer, y	As	Integer				
'-----------------------------------------------------------------------------------------------  
dim nSek	As	Integer, nMinu	As	Integer, nStun	As	Integer
dim nSekDif	As	Integer
dim nZwSek	As	Integer,nZwMinu	As	Integer, nZwStun 	As	Integer
dim nBildNull As	Variant				          'Als Startzeit kleinstmögliche Zeit --> 00:00:01  
dim nBildTime As	Variant						  'Eingabe der Bildaufnahme-Zeit in Zeile Pild-Position  
'-----------------------------------------------------------------------------------------------  


oDispatcher = createUnoService( "com.sun.star.frame.DispatchHelper" )  


i = 0


oCalcDokument   = ThisComponent.CurrentController.Frame
oTabBlatt 		= oCalcDokument.Sheets().getByindex(i)
oView = oCalcDokument.getCurrentController()