scrollRow

[toni]

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: Alles auswählen

ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row

Wie bekomme ich das mit Starbasic hin?

Gruss

Thomas

[hawkhunter2002]

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

http://www.dannenhoefer.de/faqstarbasic ... Zelle.html

Sollte genau das machen was du willst.

Gruß hawk

[toni]

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: Alles auswählen

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

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

[hawkhunter2002]

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

[toni]

Danke, klappt!

Gruss

Thomas