In [diesem Basic-Dialgfeld ...]
?
In dieser ComboBox stehen die folgenden Namen zur Auswahl:
Müller
Maier
Schulz
In der Beispieldatei stehen die Werte in den Zellen B14 bis B20, diese müßtest Du löschen und Deine Werte eintragen und den Code so ändern:
Code: Alles auswählen
Sub Load_Values_List()
'...
Set oCellRangeSource = oSheet.getCellRangeByName("B14:B16")
'...
End Sub
Wenn Deine Werte in B14 bis B16 stehen.
Auch kannst Du bei den Eigenschaften der Combobox die Werte manuell eintragen (unter "Listeneinträge") und Dir dann das Makro sparen.
Wenn ich nun den Namen Maier anklicke, soll dieser Name im
Tabelleenblatt1 in die Zelle H25,
im Tabellenblatt2 in die Zelle A2
und im Tabellenblatt3 in die Zelle H 56
eingetragen werden.
Dann mußt Du das zweite Makro ebenfalls anpassen:
Code: Alles auswählen
Sub Write_To_Destination_Cell()
Dim oDoc As Object
Dim oSheet As Object
Dim oForm As Object
Dim oComboBox As Object
Dim oCellRangeDestination As Object
Set oDoc = ThisComponent
Set oSheet = oDoc.Sheets.GetByName("Demo_En")
Set oForm = oSheet.DrawPage.Forms.GetByName("Standard")
Set oComboBox = oform.getByName("ComboBox1")
For i = 0 to 2
Select Case i
Case 0
x = "H25"
Case 1
x = "A2"
Case 2
x = "H56"
End Select
Set oCellRangeDestination = oDoc.Sheets(i).getCellRangeByName(x)
oCellRangeDestination.FormulaLocal = oComboBox.text
Next i
End Sub
Gruß
Stephan