Einstellungen aus UserForm in AddIn speichern
19.02.2009 18:13:00
NoNet
Hallo Werner,
noch ein Tipp von mir : Ich speichere in manchen AddIns sogar lokale Einstellungen, wie z.B. in Userforms eingegebene Werte oder Stati von Checkboxen :
With ThisWorkbook
With .Sheets("Einstellungen")
.[B10].Value = txtEingabe1.Value
.[B12].Value = txtEingabe2.Value
.[B14].Value = txtEingabe3.Value
.[B16].Value = chkOption1.Value
.[B18].Value = chkOption2.Value
End With
.Save 'Hier wird das AddIn physikalisch gespeichert
End With
Und beim Öffnen des UserForms (per per Button im UserForm) lese ich die Werte aus dem AdIn-Sheet wieder ein :
With ThisWorkbook
With .Sheets("Settings")
txtEingabe1.Value = .[B10].Value
txtEingabe2.Value = .[B12].Value
txtEingabe3.Value = .[B14].Value
chkOption1.Value = .[B16].Value
chkOption2.Value = .[B18].Value
End With
End With
Für beide Vorgänge muss die AddIn-Eigenschaft IsAddIn nicht auf TRUE gesetzt werden !
Der Vorteil gegenüber der üblichen Methode, Einstellungen in die lokale Registry zu speichern (GetSetting / SaveSetting) oder in eine lokale Text-/INI-Datei ist der, dass man nur das AddIn (also die XLA-Datei) kopieren muss, und die gespeicherten Einstellungen gleich mit kopiert werden. Die Einstellungen sind somit sehr einfach auf andere PCs übertragbar !
Gruß, NoNet