OpenOffice.info

Danke, klappt!

Gruss

Thomas

Hallo Thomas,

du musst einfach bei den Eigenschaften (rechte Maustaste Kontrollfeld) des Buttons - Reiter Allgemein - die Eigenschaft
"Fokussieren bei Klick" auf NEIN setzen. :)

Gruß

Hawk

Sub sel
    Dim osheet, oZelle
      oSheet = ThisComponent.CurrentController.ActiveSheet    
      oZelle = oSheet.getCellRangeByName("A1")
      ThisComponent.CurrentController.Select(oZelle)          
      MsgBox "Meldung"
End Sub

Hallo hawk,

habe gerade deine Antwort gelesen.
Grundsätzlich klappt das auch bei mir.
Ich habe aber folgendes Problem:
Neben der Selektion der Zelle muss noch eine Meldung angezeigt werden:

[code]Sub sel
Dim osheet, oZelle
oSheet = ThisComponent.CurrentController.ActiveSheet
oZelle = oSheet.getCellRangeByName("A1")
ThisComponent.CurrentController.Select(oZelle)
MsgBox "Meldung"
End Sub[/code]

Wenn ich diesen Code per Button ausführe (Button liegt z.B. in Zeile 100), springt die Anzeige nach Schließen der msgBox wieder in die Zeile 100, wo der Button liegt.
Ich möchte aber die Sicht auf Zeile 1 behalten.

Weiß jemand Rat?

Gruß

Thomas

Ich denke, dass dir dieser Linke auf die Seite der StarBasic-Faq von Dannehöfer helfen müsste 8)

[url]http://www.dannenhoefer.de/faqstarbasic/WiekannmandenaktuellenCursoraufeineZelle.html[/url]

Sollte genau das machen was du willst.

Gruß hawk

ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row

Hallo zusammen,

in meinem Sheet befindet sich in Zeile 300 ein Button, der eine Plausiprüfung macht.
Wenn z.B. in Zelle A1 ein falscher Wert eingetragen wurde gibts eine Meldung. Ich möchte nun, dass die Zelle selektiert wird und die entsprechende Zelle für den Anwender sichtbar wird (scrollen in Zeile 1).
In VBA geht das mit:
[code]ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row[/code]
Wie bekomme ich das mit Starbasic hin?

Gruss

Thomas