AddIn öffnen / schließen

Guten Morgen,
ich versuche mich gerade an AddIn's
Hintergrund ist, dass ich Daten halbwegs "unsichtbar" lassen möchte.
Zu Testzwecken habe ich 'mal folgendes mit einer als AddIn gespeicherten Mappe probiert...
Workbooks.Open Filename:="D:\Uebergabe\IuK\PVorlage.xla"
MsgBox Workbooks("PVorlage.xla").Sheets("Grunddaten").Range("A1")
Workbooks("PVorlage.xla").Close
..Und das funktioniert sogar ;-)
Bevor ich mich jedoch in eine falsche Richtung verbeisse wollte ich Nachfragen,
ob eine Tabelle als AddIn tatsächlich so angesprochen wird oder wie ggf.
die "richtige" Syntax für das obige Beispiel wäre.
Ich möchte nur meine eigene Unsicherheit ausgeräumt haben, denn ein Versuch und schon klappt das, dass kann gar nicht richtig sein ;-)
Danke und Gruß
Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ingo,
doch, das ist richtig, das funktioniert!
Es geht sogar noch mehr: Man kann (per VBA) Tabellenwerte des AddIns ändern und das AddIn speichern. Darin bin ich jetzt etwas unsicher (deshalb lasse ich diesen Thread offen), denn:
In "Excel-VBA programmieren" (für Excel 2000 bis 2003) schreibt Michael Kofler auf S. 710:
"Obwohl Sie während des Ablaufs des Add-Ins die (unsichtbaren) Tabellen des Add-Ins verändern können, ist es nicht möglich, diese Änderungen zu speichern."
Aber der folgende Code funzt:


Sub AddIn_Test()
Dim wbXyz As Workbook, xx As Long
Const strWbName = "D:\Uebergabe\IuK\PVorlage.xla"
Const strShName = "Grunddaten"
Set wbXyz = Workbooks.Open(Filename:=strWbName)
xx = wbXyz.Sheets(strShName).Range("A1")
MsgBox "vor Änderung " & xx
wbXyz.Close
Set wbXyz = Workbooks.Open(Filename:=strWbName)
xx = wbXyz.Sheets(strShName).Range("A1")
wbXyz.Sheets(strShName).Range("A1") = xx + 1
wbXyz.Close SaveChanges:=True       ' Änderungen sichern
Set wbXyz = Workbooks.Open(Filename:=strWbName)
xx = wbXyz.Sheets(strShName).Range("A1")
MsgBox "nach Änderung " & xx
MsgBox ActiveWorkbook.Name          ' AddIn ist NICHT ActiveWorkbook
wbXyz.Close
Set wbXyz = Nothing
End Sub

Noch ein Tipp:
Du kannst die Tabellenblätter eines AddIns wieder sichtbar machen, indem du im VBA-Editor die Eigenschaft "IsAddin" auf False stellst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

AddIn öffnen / schließen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread