| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.24 AllSheetsA1
sub AllSheetsA1 (myDoc as Object, row as integer,col as integer) Diese Routine setzt den aktuellen Cursor von allen Sheets auf eine bestimmte Zelle. sub AllSheetsA1 (myDoc as Object, row as integer,col as integer) 'Anzahl der Sheets auslesen Anzahl=myDoc.Sheets.count mySheet = myDoc.Sheets(0) 'Sichtbaren Cursor holen myView = myDoc.CurrentController 'schleife über die Sheets for i=0 to anzahl-1 mySheet = myDoc.Sheets(i) mycell = mysheet.getCellByPosition(row,col) myView.setActiveSheet(mysheet) mydoc.CurrentController.Select(mycell) next i 'erstes Sheet aktiveren mySheet = myDoc.Sheets(0) myView.setActiveSheet(mysheet) end sub |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009