Ribbon editBox Text aus Zelle übernehmen
28.10.2021 16:31:12
Stefan
ich habe in mein Ribbon eine editBox eingebaut.
"editBox id="txtPos" ... onChange="txtPos_onChange" getText="onGetText" "
und eine Schaltfläche
"button id="btn20" label="Übernehmen" onAction="btn20_Uebernehmen_Position" "
Jetzt lade ich aus einer Datenbank eine Tabelle in das Excelblatt und möchte gerne
eine Zelle in der Tabelle markieren und den Wert über die Schaltfläche in die Editbox
übernehmen.
Ich habe den Text aus der Zelle schon einer globalen Variablen zugewiesen, weiß aber
nicht, wie ich den Text in die editBox bekomme.
Mein Ansatz:
Sub GetTextEditBox(control As IRibbonControl, ByRef text)
'Editbox mit Wert füllen
Select Case control.ID
Case "txtPos"
strText = strPosition
Case Else
strText = "N.N"
End Select
objRibbon.Invalidate
End Sub
Sub button" mitgeben?
strPosition = Range("A" & ActiveCell.Row).Value
If strPosition "" Then
Call GetTextEditBox("txtPos", strPosition)