Tabellen miteinander verbinden

Forumthread: Tabellen miteinander verbinden

21.06.2007 11:41:27

Töpfer

Hallo liebe Excelfreunde !
Ich möchte gerne eine Exceltabelle erstellen, die aus einer Quelldatei besteht und die nächsten Tabellen beziehen sich auf diese erste Quelldatei. Im Prinzip weiß ich eigentlich wie es geht, habe nur ein Problem:
wenn ich aus der Quelldatei eine Zeile rauslösche erscheint diese Zeile in den nächsten Tabellen noch mit der Meldung " #BEZUG! ". Wie bekomme ich es hin, dass in den nachfolgenden Tabellen diese Zeile, die ich in der Quelldatei rausgelöscht habe, dann auch ganz rausgelöscht ist?
Gruß
Gaby

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellen miteinander verbinden

21.06.2007 12:32:40

Oberschlumpf
schreibe nicht =Tabelle1!A1 sondern

21.06.2007 13:11:50

WF
AW: Tabellen miteinander verbinden

21.06.2007 13:15:00

Chaos
AW: Tabellen miteinander verbinden

21.06.2007 13:29:00

Tom
AW: Zusatz

21.06.2007 13:32:00

Tom

AW: Tabellen miteinander verbinden

21.06.2007 12:32:40

Oberschlumpf

Hi Gaby
Versuch es mal hiermit:
https://www.herber.de/bbs/user/43455.xls
Konnte ich helfen?
Ciao
Thorsten

schreibe nicht =Tabelle1!A1 sondern

21.06.2007 13:11:50

=INDIREKT("Tabelle1!A"&ZEILE(A1))
Salut WF

AW: Tabellen miteinander verbinden

21.06.2007 13:15:00

Chaos

servus gaby,
das Makro von Oberschlumpf ist gut, hat aber einen kleinen Schönheitsfehler:
und zwar, wenn der Bezug nicht in der selben Zeile steht erscheint natürlich trotzdem die Fehlermeldung.
das kann man evtl. so umgehen:
= WENN(ISTFFEHLER("Dein Bezug");"";("Dein Bezug")); "Dein Bezug = z.B. Tabelle1!A1.
Dann erscheint keine Fehlermeldung und die Zelle bleibt leer.
Gruß
Chaos

AW: Tabellen miteinander verbinden

21.06.2007 13:29:00

Tom

Hallo Gaby,
noch 'ne Möglichkeit:
In jede Zieltabelle das Folgende Makro:


Private Sub Worksheet_Calculate()
Dim z As Long
Dim s As Long
Dim Bereich As Range
z = ActiveSheet.UsedRange.Rows.Count
s = ActiveSheet.UsedRange.Columns.Count
For Each Bereich In Range(Cells(1, 1).Address & ":" & Cells(z, s).Address)
On Error Resume Next
If Bereich.Value = "#BEZUG!" Then
Bereich.EntireRow.Delete
Rows("7:7").Select Shift:=xlUp
End If
Next
End Sub

Gruß
Tom

AW: Zusatz

21.06.2007 13:32:00

Tom

Sorry, kleiner Flüchtigkeitsfehler.
Das ist die richtige Zeile im Makro:
If Bereich.Value = "#BEZUG!" Then
Bereich.EntireRow.Delete Shift:=xlUp
End If
Gruß
Tom

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabellen miteinander verbinden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread