Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
220to224
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige