Add-In Änderungen speichern
15.11.2014 12:07:51
Markus
ich bin gerade dabei mein zweites Add-In zu schreiben und alles klappt soweit ganz gut.
Mein zweites Add-In soll allerdings die Funktion erhalten, dass Änderungen in der Userform des Add-In´s (Daten aus der Userform werden in eine Tabelle des Add-in`s übergeben, und sollen beim nächsten Add-In start zur verfügung stehen) nicht gespeichert werden. In der reinen xlsm Datei klappt dieses, als xla allerdings nicht, da erhalte ich for dem Schließen eine Fehlermeldung, dass dies nicht möglich sei.
Anbei die xlsm Datei. Das Speichern des Add-In´s soll nach der Auswahl des Commandbutton1 am Ende des Codes erfolgen, in der Userform "Issue-List" zu finden oder bevor man das Add-in schließt.
Ich habe hier "ThisWorkbook.IsAddin = False" auf false gestellt, damit man die Änderung in der Datei sieht, speichern tut er sie allerdings nicht.
Private Sub CommandButton1_Click() 'Sharepoint Pfad ändern
ThisWorkbook.IsAddin = False
Dim Importdaten
Importdaten = Application.GetOpenFilename
If Importdaten = False Then
TextBox1.Text = ThisWorkbook.Worksheets("Datenbank").Range("B1").Value
Else
TextBox1.Text = Importdaten 'den ganzen Pfad an das Textfeld "Pfad" schicken
ThisWorkbook.Worksheets("Datenbank").Range("B1").Value = Importdaten
si = TextBox1.Text
ThisWorkbook.Worksheets("Datenbank").Range("B5").Value = Right(si, InStr(1, _
StrReverse(si), "\") - 1)
ComboBox4.Enabled = True 'Auswahl Einfügen - Start Spalte aktiviert
'ThisWorkbook.IsAddin = False
ThisWorkbook.Saved = True
End If
End Sub
Danke
Gruß Markus
Anzeige