[Gelöst] Cursor Position in KomboBox verändern

[IanWhistler]

Hallo Zusammen,

In einer Calc Tabelle (JobListe) hab ich eine KomboBox (cbGroesse) eingefügt, die KomboBox ist verknüpft mit der Zelle B2 und bekommt ihre Werte aus einer anderen Tabelle im selben Dokument (Parameter.A2:A41). Wenn ich jetzt eine Größe manuell eingebe, möchte ich das bei der Eingabe vom "," (Komma auf dem Numblock) das Komma durch ein "x" ersetzt wird.

Soweit so gut. Das geht ja mit dem folgenden Befehl:

Code: Alles auswählen

 	oDoc = ThisComponent 
	oController = ThisComponent.getCurrentController()
 	oSheet = oDoc.Sheets.GetByName("JobListe") 
 	oForm = oSheet.DrawPage.Forms.GetByName("Formular")    
	
 	oComboBox = oform.getByName("cb_groesse")
 	x_einsetzen = oComboBox.text
	
        x_einsetzen = Replace(x_einsetzen, ",", "x")
        oComboBox.text = x_einsetzen
        

Nach dem Befehl wird der Cursor aber am Anfang in der KomboBox gesetzt und nicht nach dem "x".

Wie bekomm ich es hin das der Cursor am Ende steht?

Danke und Gruß,
Sebastian

[Mondblatt24]

Fragen zu Makros stelle bitte in der Kategorie LibreOffice Programmierung.

[mikele]

Hallo,
während du die Frage noch einmal stellst oder die nächste im richtigen Unterforum hier schon mal eine Antwort:
Du kannst folgendes Makro in der Combox an das Ereignis "Text modifiziert" binden:

Code: Alles auswählen

Sub combo (oevent)
	
	cbox=oevent.source
	oSel=cbox.Selection
	stmp=cbox.Text
	if oSel.Min>0 then
	if mid(stmp,oSel.Min,1)="," then
		stmp=left(stmp,oSel.Min-1) & "x" & right(stmp,len(stmp)-oSel.Min)
		cbox.Text=stmp
	end if
	end if
	cbox.setSelection(oSel)
End Sub

Sobald du nun den Text eingibst/änderst und ein "," eingibst wird an der Stelle ein "x" daraus und der Cursor bleibt an seiner Position.

[IanWhistler]

@MondBlatt24: Danke für den Hinweis, da es mir um eine spezielle Programmierung für Calc ging dachte ich das wäre das passende Unterforum.

@mikele: Perfekt genau das hab ich gesucht. Danke dir und eine schöne Woche.