Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tebellen verbinden

Forumthread: Tebellen verbinden

Tebellen verbinden
18.02.2003 15:28:34
Gerhard
Hallo,

ich habe in Tabelle1 in Spalte A Werte stehen. Es werden immer wieder neue Zeilen dort eingefügt. Das selbe ist in Tabelle2.
Nun möchte ich in Tabelle 3 (Spalte A)alle Werte aus Spalte A (Tabelle1) und Spalte B (Tabelle2) untereinander haben, ohne dass hier dazwischen leere Zeilen entstehen.
Wenn nun in Tabelle 1 eine neue Zeile mit Inhalt in Spalte A eingefügt wird, so soll sich die Tabelle 3 entsprechend verändern.

Welche Formel muss ich in die Tabelle 3 einfügen?


Danke für Eure Mithilfe

Gerhard

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tebellen verbinden
18.02.2003 17:14:08
Nepumuk

Hallo Gerhard,
das wird mit einer Formel nicht funktionieren, aber ich kann dir eine Lösung mit VBA anbieten. Jetzt ist nur die Frage, änderst du auch Einträge oder werden sie nur ergänzt?
Gruß
Nepumuk

Re: Tebellen verbinden
19.02.2003 07:31:08
Gerhard

Hallo,

die Einträge werden nur ergänzt, nicht abgeändert.


Gerhard

Anzeige
Re: Tebellen verbinden
19.02.2003 14:38:03
Nepumuk

Hallo Gerhard,
in das Klassenmodul von Tabelle1 folgenden Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Sheets("Tabelle3").Range("A65536").End(xlUp).Offset(1, 0) = Target
End Sub

in das Klassenmodul von Tabelle2 folgenden Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Sheets("Tabelle3").Range("A65536").End(xlUp).Offset(1, 0) = Target
End Sub

Diese reagieren aber nur auf Neueingaben. Das was jetzt schon in den Tabellen steht. Kannst du mit folgenden Code in einem normalen modul übertragen:

Gruß
Nepumuk

Anzeige
Danke Nepumuk
19.02.2003 14:54:05
gerhard

Danke, hat mir sehr weitergeholfen

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige