Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Add-In Änderungen speichern

Betrifft: Add-In Änderungen speichern von: Markus
Geschrieben am: 15.11.2014 12:07:51

Guten Morgen zusammen,

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
Für einen Tipp, wo ich einen Fehler mache wäre ich dankbar.

Danke

Gruß Markus

  

Betrifft: AW: Add-In Änderungen speichern von: Markus
Geschrieben am: 15.11.2014 12:10:04

Hier die Datei: https://www.herber.de/bbs/user/93790.xlsm

Danke

Gruß Markus


  

Betrifft: AW: Add-In Änderungen speichern von: Tino
Geschrieben am: 15.11.2014 12:17:54

Hallo,
mit ThisWorkbook.Saved = True wird nicht gespeichert,
sondern ändert nur den Status das die angegebene Arbeitsmappe
seit dem letzten Speichern nicht geändert wurde.

Evtl. geht es mit, nicht getestet!

If Not ThisWorkbook.ReadOnly Then
     ThisWorkbook.Save
End If
Gruß Tino


  

Betrifft: AW: Add-In Änderungen speichern von: Markus
Geschrieben am: 15.11.2014 12:30:01

Guten Morgen Tino,

das war der entscheidene Tipp. Manchmal sieht man sowas nicht mehr ;).

Vielen Dank.

Schönes Wochenende

Gruß Markus


 

Beiträge aus den Excel-Beispielen zum Thema "Add-In Änderungen speichern"