Hallo Thomas,
schon mal Danke für die Hinweise.
Toxitom hat geschrieben:Sonst reicht meist das Speichern in einer globalen Variablen.
Das funktioniert auch schon wunderbar und die Variable ist auch nach erneutem öffnen des Dialogs noch vorhanden.
Da hatte ich überhaupt nicht dran gedacht. Aber gut das wir darüber gesprochen haben.
Ich habe das als Beispiel jetzt mal folgendermaßen gemacht:
Code: Alles auswählen
Global My_Selection
Sub Change_Text as integer
dim ibereich1 as Variant
ibereich1()= array( "Hund", "Katze","Maus")
inhalt = Dialog1.GetControl("ListBox1")
Text_LB = inhalt.selecteditempos
Dialog1.getControl("Label1").Text = ibereich1(Text_LB)
End Sub
Sub Read_Selection
inhalt = Dialog1.GetControl("ListBox1")
My_Selection = inhalt.getSelectedItemPos ()'SelectedItemPos
End Sub
Sub Last_Selektion
position = Dialog1.GetControl("ListBox1")
position.SelectItemPos(My_Selection, True)
End Sub
Jetzt hatte ich mir überlegt ein neues Modul mittels Makro zu erzeugen und dort die Variablen abzuspeichern.
Wenn das Makro innerhalb eines Dokumentes gespeichert ist habe ich das auch hinbekommen.
Das Makro ist aber nicht im Dokument gespeichert sondern liegt unter Meine Makros & Dialoge.
Da ist es mir aber leider nicht gelungen die entsprechende Library anzusprechen und das Modul zu erzeugen.
Hier erst mal der Code um Das Modul zu erzeugen:
Code: Alles auswählen
Dim ContainerLocationName as String
Sub Create_Modul()
Dim oLib
Dim oLibs
Dim s$
Dim sL_Name$
Dim sM_Name$
sL_Name = "Library1"
sM_Name = "Save_Variable"
oLibs = BasicLibraries
oLibs.loadLibrary(sL_Name)
oDoc = ThisComponent
oLibs = oDoc.BasicLibraries
oLib = oLibs.Getbyname(sL_Name)
s = "Option Explicit" & CHR$(10) & _
"Sub My_Variables()" & CHR$(10) & _
"MsgBox """&"Meine Variable 1"&"""" & CHR$(10) & _
"End Sub"
oLib.insertByName(sM_Name,s)
End Sub
Die Library1 ist natürlich unter Meine Makros und Dialoge vorhanden kann aber nicht "beschrieben" werden.
Wenn man
durch
ersetzt wird das neue Modul direkt in die Standardbibliothek des zu dem Zeitpunk geöffneten Dokumentes gespeichert. Das ist aber ja nicht der Sinn der Sache.
Wie bekomme ich den Zugriff auf "Meine Makros und Dialoge" und die Library1 um dort das Modul zu erzeugen?
Bringt mich das hier weiter:
???
Toxitom hat geschrieben:Ohne weitere Kenntnisse deines Codes und der Anwendung kann ich dir aber wenig weiterhelfen
Welche weiteren Informationen brauchst Du?
Nochmals Danke für die Hilfe.
Jakob
