Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten von mehreren Tabellen in ein einfügen.

Daten von mehreren Tabellen in ein einfügen.
02.01.2008 13:45:55
mehreren
Hallo Zusammen,
Ich habe 5 Tabellen von denen bestimmte Daten in ein andere Tabelle eingetragen werden müssen.
Die Projekt Nummer ist der Schlüssel. Wenn ich die einzelnen Formeln in den einzelnen Feldern für eine Tabelle anlege klappt es auch aber wie kann ich in der Formel auf die anderen Tabellen verwiesen?
Die Projektnummer wird in B eingetragen.
An bei Formel für eine Tabelle die geht:
=WENN(ISTFEHLER(SVERWEIS($B13;'K:\Statistik\Krauß\Roche\[Krauß2008.xls]2094208'!$1:$65536;2;FALSCH)); "";(SVERWEIS($B13;'K:\Statistik\Krauß\Roche\[Krauß2008.xls]2094208'!$1:$65536;2;FALSCH)))
eine weitere Tabelle heißt z.B. Schaufler08
Danke für eure Hilfe!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von mehreren Tabellen in ein einfügen.
02.01.2008 15:52:00
mehreren
Hallo Bernd,
sollche dynamischen Verweise auf andere Tabellen/Zellenbereiche kann man mit der Funktion INDIREKT realiiseren. Diese Funktion liefert aber nur Ergebnisse bei geöffneten Arbeitsmappen/Dateien bzw. wenn INDIREKT auf andere Tabellen innerhalb der Datei verweist.
Formel kann dann z.B. so aussehen:

=WENN(ISTFEHLER(SVERWEIS(B13;INDIREKT("'[Test1.xls]" & F3 &
"'!$1:$65536");2;FALSCH));"NV";SVERWEIS(B13;
INDIREKT("'[Test1.xls]" & F3 & "'!$1:$65536");2;FALSCH))


Der Tabellenname steht in diesem Beispiel in F3.
Da in deiner Anwendung die Datei aus der SVERWEIS die Daten holen soll geschlossen ist, funktioniert dies leider nicht.
In deinem Fall müßte man ggf. die Formeln in den betroffenen Zellen per Makro anpassen, wenn der Tabellenname in den Zellen angepast wird. Ein solches Makro muss jedoch genau auf die Datenstruktur in deiner Tabelle zugeschnitten werden. Nachfolgend ein Beispiel; dabei wird der Tabellenname in eine Zelle im Bereich D13:D1000 eingegeben und die Formel in der gleichen Zeile in Spalte C (3) angepasst.
Gruß
Franz


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Not Intersect(Target, Me.Range("D13:D1000")) Is Nothing And Target.Cells.Count = 1 Then
'Formel in Spalte C anpassen an Tabelle in Spalte D
Set Zelle = Cells(Target.Row, 3)
Zelle.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(R[0]C2,'K:\Statistik\Krauß\Roche\[Krauß2008.xls]" _
& Target.Text & "'!R1:R65536,2,FALSE)), """",(VLOOKUP(R[0]C2," _
& "'K:\Statistik\Krauß\Roche\[Krauß2008.xls]" _
& Target.Text & "'!R1:R65536,2,FALSE)))"
End If
End Sub


Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige