Dialogfeld in Calc

[mike6]

Hallo,

ich möchte in Oo-Calc über ein Dialogfeld folgendes verwirklichen.


Im Dialogfeld befindet sich u.a. eine ComboBox mit verschiedenen
Namen zur Auswahl.

Müller
Maier
Schulz


Wenn ich nun den Namen Maier anklicke, soll dieser Name in der

Tabelle1 in die Zelle H25, in der Tabelle2 in die Zelle A2 , usw.
eingetragen werden.

Kann ich evtl. eine Beispieldatei im Netz runterladen?


mfg
mike6

[Stephan]

Was ein Dialogfeld sein soll weiß ich nicht so recht, aber ein passendes Beispiel zum Kombinationsfeld habe ich hier aufgeführt:
viewtopic.php?t=1553
der direkte Link ist:
http://prdownloads.sourceforge.net/oood ... c?download

dieses Beispiel kannst Du entsprechend abwandeln, weil ich wie gesagt nicht weiß ob es Dir um einen Basic-Dialog oder ein Formular oder Sonstiges geht.


Gruß
Stephan

[mike6]

Hallo,

vielen Dank für den Tipp.

Mir ging es um ein Basic-Dialogfeld.
Das Beispiel habe ich mir runtergeladen.
Gibt es auch ein Beispiel für ein
Basic-Dialogfeld.


mfg
mike6

[Stephan]

Mir ging es um ein Basic-Dialogfeld

bloß was soll das sein?
Es gibt Basic-Dialoge, allenfalls wären alle dort denkbaren Felder Basic-Dialogfelder.

Bloß wenn wir über eine ComboBox reden ist das eine ComboBox und ich verstehe nicht wozu die unterschieden sein soll.


Gruß
Stephan

[mike6]

Hallo Stephan,

hier nochmals zur Verdeutlichung.

Wenn ich eine Calc-Datei öffne, soll sich ein
Basic Dialogfeld öffnen.

In diesem Basic-Dialgfeld gibt es ein "Dropdownfeld"
oder auch ComboBox genannt.

In dieser ComboBox stehen die folgenden Namen zur Auswahl:

Müller
Maier
Schulz


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.

mfg
mike6

[andymo]

Hallo mike6,

ich glaube zur Lösung des Problems wäre es auch wichtig, den Kontext zu kennen, aus dem ein solches Dialogfeld aufgerufen werden soll.
Gruß
Andreas

[Stephan]

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

[mike6]

Hallo Stephan.

vielen Dank für deine Hilfe.

mfg
mike6

[TabOOn]

Hi,

kann man als Datenquelle für die ComboBox auch eine andere Tabelle im Dokument verwenden?

Mfg.
Christian