BASIC Wie beschreibe ich eine Zelle ....
Verfasst: Do, 15.07.2004 10:36
Hi,
Mein Problem:
FUNCTION schicht_type(pointer AS INTEGER, enable AS INTEGER) AS DOUBLE
Dim sheet AS OBJECT
IF pointer = 0 THEN
schicht_type = 0
EXIT FUNCTION
END IF
IF enable = 0 THEN
schicht_type = 0
EXIT FUNCTION
END IF
MyDoc = ThisComponent
sheet = MyDoc.getSheets().getByIndex(0)
sheet.getCellByPosition(0,40).setValue(23.0)
Tabelle3 = MyDoc.getSheets().getByIndex(2)
schicht_type = Tabelle3.getCellByPosition(9,pointer).Value
END FUNCTION
Diese Funktion wird von einer Zelle auf Tabelle1 (Sheet 0 ) aufgerufen:
=SCHICHT_TYPE(F64;F51)
alles funktioniert bis auf die Zeilen:
sheet = MyDoc.getSheets().getByIndex(0)
sheet.getCellByPosition(0,40).setValue(23.0)
ändere ich nun diese Zeilen in:
sheet = MyDoc.getSheets().getByIndex(1)
sheet.getCellByPosition(0,40).setValue(23.0)
funktioniert der Code, aber leider kann ich mit der 23 auf Sheet 1 nix anfangen
nur zur Klarstellung die 23.0 wird später durch eine Variable ersetzt und die Zellposition auch. Es wird aber weiterhin auf Sheet 0 geschrieben.
Dies ist nur ein Test-Code.
Gruß
Dirk-Uwe
Mein Problem:
FUNCTION schicht_type(pointer AS INTEGER, enable AS INTEGER) AS DOUBLE
Dim sheet AS OBJECT
IF pointer = 0 THEN
schicht_type = 0
EXIT FUNCTION
END IF
IF enable = 0 THEN
schicht_type = 0
EXIT FUNCTION
END IF
MyDoc = ThisComponent
sheet = MyDoc.getSheets().getByIndex(0)
sheet.getCellByPosition(0,40).setValue(23.0)
Tabelle3 = MyDoc.getSheets().getByIndex(2)
schicht_type = Tabelle3.getCellByPosition(9,pointer).Value
END FUNCTION
Diese Funktion wird von einer Zelle auf Tabelle1 (Sheet 0 ) aufgerufen:
=SCHICHT_TYPE(F64;F51)
alles funktioniert bis auf die Zeilen:
sheet = MyDoc.getSheets().getByIndex(0)
sheet.getCellByPosition(0,40).setValue(23.0)
ändere ich nun diese Zeilen in:
sheet = MyDoc.getSheets().getByIndex(1)
sheet.getCellByPosition(0,40).setValue(23.0)
funktioniert der Code, aber leider kann ich mit der 23 auf Sheet 1 nix anfangen

nur zur Klarstellung die 23.0 wird später durch eine Variable ersetzt und die Zellposition auch. Es wird aber weiterhin auf Sheet 0 geschrieben.
Dies ist nur ein Test-Code.
Gruß
Dirk-Uwe