"Gelöst" Zelle per Makro selektieren und anschließend einen Wert per Tastatur eintragen.

[wasi]

Hallo zusammen, bin hier neu und brauche Hilfe, bei einem simplen Problem. Zelle per Makro selektieren und anschließend einen Wert per Tastatur eintragen. Geht nicht! Mein Makro, teilweise aus OpenOffice.info entnommen.
Das Makro wir per Schaltfläche "Maustaste gedrückt" gestartet, dann möchte ich in die selektierte Zelle per Tastatur eine Zahl eintragen.
Die Zahl kann ich eintragen aber "Enter" geht nicht, sondern die Schaltfläche reagiert auf "Enter".
Gruß an alle die mir helfen können.

Code: Alles auswählen

sub zell_select
Dim oDoc As Object
Dim oSheet As Object
'#############
oDoc = ThisComponent
oSheet = oDoc.Sheets.getbyname("Tabelle3")
'#############
myView = oDoc.CurrentController
mycell =  oSheet.getCellByPosition(0,0)
myView.Select(mycell)
end sub

[F3K Total]

Moin,
bearbeite die Eigenschaften der Schaltfläche, Reiter Allgemein, "Fokussieren bei Klick": Nein

Gruß R

[Karolus]

Hallo
Man könnte auch die Schaltfläche nebst Makro im Restmüll entsorgen, und stattdessen:

Code: Alles auswählen

=HYPERLINK("#Tabelle3.A1")

nehmen.

[wasi]

Moin,
bearbeite die Eigenschaften der Schaltfläche, Reiter Allgemein, "Fokussieren bei Klick": Nein

Gruß R

Hallo F3K Total
Ich hoffe ich trage die Antwort hier richtig ein?
Danke für den Hinweis. Wie ich schon vermutet habe eine simple Sache. Aber man muss es eben wissen. Hat sofort funktioniert.
Tipp von Karolus kann ich noch nicht nachvollziehen. Aber werde es testen.

Wo trage ich jetzt ein, dass der Beitrag erledigt ist?
Gruß wasi