Verknüpfungen verschiedener Mappen

Guten Morgen liebe Experten
ich habe mal so eine Frage die mir übers Wochenende gekommen ist;
Zuerst muss ich aber die Voraussetzungen erklären die meiner Idee zugrunde liegen:
1. Auf dem Server (vom Client aus aufm Laufwerk "G") liegen Excel-Mappen gespeichert die per VBA automatisch den Namen des Auftrages bekommen (sprich Auftrags-Nummern / "032433" zum Beispiel)
2. Diese Auftrags-Mappen beinhalten unter anderem zwei Kalkulationsblätter in denen verschiedene Werte intresant für andere Excel-Mappen sind.
NUN meine Idee:
Ich würde in einer Excel-Mappe ein Worksheet erstellen und dort in Spalte A die Auftrags-Nummer eingeben sodass zum Beispiel in Spalte B dann die Info aus der jeweiligen Arbeitsmappe automatisch "gesogen" und eingefügt wird.
Genauer gesagt: In der Mappe "Übersicht" geb ich in A1 zum Beispiel die Auftrags-Nummer "032433" ein. Nun sollte in B1 der Wert der Zelle G14 aus der Mappe "032433" die aufm Server gespeichert ist (in dieser Mappe hat es etwa 10 Arbeitsblätter... die gewünschte Info stammt aus dem Blatt "Kalkulation")
Wenn ich alles aus einer Mappe entnehmen würde, könnte ich das ja theoretisch mit dem SVERWEIS machen... wie mach ich das aber, wenn die Quelldatei ständig ne andere ist?
Bin für jeden hilfreichen Tip dankbar...
Gruss Rico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim strSource As String If Target.Column <> 1 Then Exit Sub Range("B" & Target.Row).ClearContents If Target.Cells.Count <> 1 Then Exit Sub If Target.Value = "" Then Exit Sub strSource = "'G:\TEMP\TRALALA\[" & Target.Text & ".xls]Kalkulation'!R14C7" Range("B" & Target.Row).Value = xl4Value(strSource) End Sub

Hallo nochmals ;-)
habs jetzt reinkopiert und den Code folgendermassen angepasst:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim strSource As String
If Target.Column <> 1 Then Exit Sub
Range("B" & Target.Row).ClearContents
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
strSource = "'G:\Spezial\Auftrags-Dossiers\Aufträge\[" & Target.Text & ".xls]Kalkulation'!R5C2"
Range("B" & Target.Row).Value = xl4Value(strSource)
End Sub

den Pfad hab ich aus der Eigenschaft der Datei kopiert und die Zelle ist B2 (die Zelle is verbunden mit C2.. ob das evt. zu Koruptionen führt? >> Fehlermeldung gibts keine).
Die Funktion hab ich in ein Modul beim Blatt wo ich die Eingabe mache reinkopiert und den Code bei beiden Blättern in ein normales Modul... aber es tut sich nix.. gibt aber auch keinen Fehler.
Ich kenn mich da ja nicht aus und weiss auch nicht ob Du die Idee verstanden hast die ich verfolge; die Angaben sind als Beispiel zu verstehen.. ich will diese Funktion in ein Gesamt-Projekt einarbeiten damit ich Excel-Blätter hab die als "Datenbank" dienen und andere die andere Funktionen haben und mit Infos aus den "Datenbanken" gespeist werden sollten mittels "Aufruf mit Auftrags-Nummer"... in der Art eines SVERWEISes...
tut mir leid, wenn ich mich nicht "fach-chinesisch" richtig ausdrücke.. ist halt schwierig als Laie die richtigen Beschreibungen zu finden.
Merci falls noch was kommen sollte an Tips...
Gruss Rico

Beliebteste Forumthreads (12 Monate)

Verknüpfungen verschiedener Mappen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread