Excel Ad-In /Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi, danke für das Video!
Leider ist das nicht meine gesuchte Funktionsweise. Vll. mache ich am besten es nochmal konkreter:
Ich habe zahlreiche Mappen mit Daten. Zur Vereinfachung haben diese z.B. folgende Struktur:
Dateiname z.B. "AA"
.............2012....2013
Umsatz...100....120
Gewinn....10......20
(Weiß gerade nicht wie ich das besser hier darstellen kann? Also Umsatz steht hier in "A2" und die 20 in "C3")
Alle haben einen eindeutigen Namen. (Eine evtl. Datenbank (s. vorherige Nachricht) hätte dann natürlich eine ähnliche Struktur)
So jetzt will ich in einer übergreifenden Mappe z.B. in Zelle A1 "AA" eintragen und mein Sheet soll sich automatisch mit den Daten von "AA" laden. Also z.B. so:
AA............2013
Gewinn...=MeineFormel(A1;A3;B1)
Die Formel würde jetzt "20" als Wert liefern. Bedeutet wenn ich jetzt den Dateinamen in Zelle "A1" einfach auf BB ändere, soll automatisch der Gewinn von BB erscheinen. Oder wenn ich in "B1" statt 2013, 2012 schreibe sollt der Wert für 2012 kommen.
So jetzt könnte ich das ganze über eine "=Indirekt" Funktion machen. Dafür müsste ich jedoch immer die Quelldatei öffnen. Das bleibt also als Notlösung verbunden mit einem Makro was immer die Quell-Mappe zum aktualisieren öffnet. Dann kann man natürlich auch noch direkt verlinken. Aber das ist sehr unflexibel. So und jetzt kenne ich eben noch diese Add-Ins/Functions von der Arbeit, bei denen das mit einer solchen Formel wie oben funktioniert, natürlich mit noch viel mehr Funktionen. Aber ich will wirklich nur die eigentlich simple Funktion, das in überschaubarer Zeit sämtliche in der Übersichtsmappe definierten Daten aus den einzelnen Daten-Mappen geladen werden. All das halt ohne ein Makro starten zu müssen, was die Daten quasi aus der Quelldatei an dem richtigen Ort einfügt, sondern mit einer Funktion die das flott im Hintergrund erledigt sobald ich z.B. die Jahreszahl ändere.
Vll. gibt es hierzu auch keine gute Lösung auf Excel Ebene. Vll. ist eine Anbindung von Excel an eine Datenbank, in der die Daten liegen schneller und sinnvoller? Lieber wäre mir natürlich alles in Excel zu lösen, weil ich mich hier wohl fühle :)
Ich hoffe ich konnte mich verständlich ausdrücken. :)
Vielen vielen Dank für eure Mithilfe!
Gruß Sebastian

Danke für die schnellen Rückmeldungen!
Ich habe folgenden Code (Nur deine Funktion ergänzt um die Variablen-Definitionen und dem entfernen des "Private" vor Function) von dir als Excel-Add-Inn gespeichert um es als einfache Funktion in Excel nutzen zu können. Was wohl nicht so einfach geht^^.:
Original von Klaus:

Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1)  Application.PathSeparator Then path = path & Application.PathSeparator
If Dir(path & file) = "" Then
GetValue = "File nicht gefunden"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Meine Anpassung für Add-In:

Function GetValue(path As String, file As String, sheet As String, ref As String) As String
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1)  Application.PathSeparator Then path = path & Application.PathSeparator
If Dir(path & file) = "" Then
GetValue = "File nicht gefunden"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Klaus TestGetValue() Sub:

Sub TestGetValue()
Dim p As String, f As String, s As String, a As String
p = ThisWorkbook.path
If p = "" Then
MsgBox "Die Datei mu§ zuerst gespeichert werden"
Exit Sub
End If
If Right(p, 1)  Application.PathSeparator Then p = p & Application.PathSeparator
f = "Vokabeltrainer.xls"
s = "Vokabeln"
a = "A4"
MsgBox GetValue(p, f, s, a)
End Sub

Die TestGetValue() Prozedur greift ja wenn ich das richtig sehe auch nur auf diese Funktion zu und füllt in diesem Fall p mit dem aktiven Pfad. Aber da ich ja nur die Funktion gespeichert habe und ausführen will und nicht deine gesamte Prozedur, dürfte dass das Problem doch eigentlich nicht sein oder?
Hier die Frage (auch an Luc):
Bei dem Code von Klaus wird doch die Quelldatei gar nicht geöffnet, weder in der Function noch in der Prozedur darunter oder? Funktioniert es trotzdem systematisch nicht diese Funktion als allgemeine Funktion auszuführen und ich muss deinen Weg über die "physisch entkoppelte" Subroutine nehmen, die mir die Quelldatei öffnet? Wenn ja wäre ich natürlich über jeden Code, der mich zu meinem Ziel bringt, solang es zeitlich möglich ist, sehr dankbar.
P.S.: Jetzt habe ich die oben gennante Funktion von Klaus nochmal so wie erklärt getestet, aber die Quelldatei geöffnet. Auch so funktioniert es nicht. Ich scheine etwas grundsätzliches bei diesen Funktionen noch nicht verstanden zu haben :(
Danke für eure (Nach-)Hilfe!!
Gruß Sebastian

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Ad-In /Funktion

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread