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

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: "Gelöst" Zelle per Makro selektieren und anschließend einen Wert per Tastatur eintragen.

Re: Zelle per Makro selektieren und anschließend einen Wert per Tastatur eintragen.

von wasi » Fr, 28.04.2023 10:47

F3K Total hat geschrieben: Do, 27.04.2023 17:37 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

Re: Zelle per Makro selektieren und anschließend einen Wert per Tastatur eintragen.

von Karolus » Do, 27.04.2023 19:48

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

Code: Alles auswählen

=HYPERLINK("#Tabelle3.A1")
nehmen.

Re: Zelle per Makro selektieren und anschließend einen Wert per Tastatur eintragen.

von F3K Total » Do, 27.04.2023 17:37

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

Gruß R

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

von wasi » Do, 27.04.2023 16:23

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

Nach oben