GELÖST: Zelleninhalt in bestimmten Zeilen kürzen

[retuwe61]

Hallo miteinander.
Sobald in Spalte A der Begriff "Fall" gefunden wird, soll der in der Spalte B befindliche Zelleninhalt auf die vier letzten Ziffern gekürzt werden.
Leider erhalte ich nur die Meldung "Objektvariable nicht belegt".
Gruß
Uwe

Code: Alles auswählen

    Sub FA_Form

    osheet = thiscomponent.sheets.getbyname("FA")
    ocursor = osheet.createcursor
    ocursor.gotoendofusedarea(False)
    nrow = ocursor.rangeaddress.endrow

    for ze = nrow to 1 step -1
    oZelle = oSheet.getCellByPosition(0,ze)
 
        if oZelle.string = "Fall" then
       	mycell = oSheet.getCellByPosition(1,ze)
       	inhalt=mycell.getstring
       	atext=right(inhalt, 4)
       	
'	print atext      
       	oRange = osheet.getCellRangeByPosition(1,ze,1,ze)
	oRange.setDataArray(atext)

        end if
    next
    
End Sub

[Stephan]

die Meldung ist inhaltlich irreführend.

Der Fehler liegt darin das Du versuchst einen String zu übergeben wo ein Array übergeben werden muss (genauer gesagt Array in Array.

z.B. geht:

Code: Alles auswählen

Sub FA_Form

    osheet = thiscomponent.sheets.getbyname("FA")
    ocursor = osheet.createcursor
    ocursor.gotoendofusedarea(False)
    nrow = ocursor.rangeaddress.endrow

    for ze = nrow to 1 step -1
    oZelle = oSheet.getCellByPosition(0,ze)
 
        if oZelle.string = "Fall" then
          mycell = oSheet.getCellByPosition(1,ze)
          inhalt=mycell.getstring
          atext=right(inhalt, 4)
		Dim atext1(0)
          atext1(0) = Array(atext)
          
'   print atext      
          oRange = osheet.getCellRangeByPosition(1,ze,1,ze)
  oRange.setDataArray(atext1())

        end if
    next
    
End Sub

Gruß
Stephan

[retuwe61]

Hallo Stephan.
Herzlichen Dank.
Gruß
Uwe