Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gesamtliste aus zwei Teillisten

Gesamtliste aus zwei Teillisten
19.09.2006 08:58:15
Enjoy82
Hallo!
Habe folgendes Problem.
Ich möchte die Daten aus der Tabelle "Aktion1" und "Aktion2" gesamtheitlich in der Tabelle "AktionGes" abgebildet haben. Die Tabelle "AktionGes" soll aber dynamisch sein, d.h wenn in der Tabelle "Aktion1" oder "Aktion2" was dazukommt, soll es in der Tabelle "AktionGes" ebenfalls angefügt werden.
Komm in diesem Fall mit der normalen Verknüpfungsmöglichkeit nicht weiter
https://www.herber.de/bbs/user/36783.xls

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesamtliste aus zwei Teillisten
19.09.2006 10:29:53
UweD
Hallo
- Rechtsclick auf das Excelsymbol in der Symbolleiste (links neben Datei)
- Code anzeigen
- im neuen Fenster rechts den Code reinkopieren.
Änderungen auf den beiden Blättern werden überwacht.
Ist bereits ein Eintrag (aus der ersten Spalte) auf dem letzten Blatt enthalten, wird ein Update vorgenommen. Anderenfalls wird der Datensatz unten angehangen
OK?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Aktion1" And Sh.Name <> "Aktion2" Then Exit Sub
'nur wenn Änderungen auf diesen beiden Blättern erfolgen
If Not Intersect(Target, Sh.Range("A:B")) Is Nothing Then
Dim TB, SP%, LR&
Set TB = Sheets("AktionGes")
SP = 1 'SpalteA
LR = TB.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
With TB.Range("A:A")
Set c = .Find(Cells(Target.Row, 1), LookIn:=xlValues)
If Not c Is Nothing Then
'Aktion schon da
Sh.Rows(Target.Row).Copy Destination:=TB.Rows(c.Row)
Else
'Aktion noch nicht da
Sh.Rows(Target.Row).Copy Destination:=TB.Rows(LR + 1)
End If
End With
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Gesamtliste aus zwei Teillisten
19.09.2006 12:03:39
Enjoy82
Hallo Uwe,
bekomme noch die Fehlermeldung, dass die Variable c nicht definert ist.
Reicht es sie mit Dim zu definieren? Komm da nicht weiter
mfG Enjoy82
AW: Gesamtliste aus zwei Teillisten
19.09.2006 15:35:00
UweD
Hallo nochmal
ja hab ich vergessen..
Du hast sicherlich oben "Option Explicit" stehen. Dann MUSS jede Variable deklariert sein
so...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Aktion1" And Sh.Name <> "Aktion2" Then Exit Sub
'nur wenn Änderungen auf diesen beiden Blättern erfolgen
If Not Intersect(Target, Sh.Range("A:B")) Is Nothing Then
Dim TB, SP%, LR&, c
Set TB = Sheets("AktionGes")
SP = 1 'SpalteA
LR = TB.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
With TB.Range("A:A")
Set c = .Find(Cells(Target.Row, 1), LookIn:=xlValues)
If Not c Is Nothing Then
'Aktion schon da
Sh.Rows(Target.Row).Copy Destination:=TB.Rows(c.Row)
Else
'Aktion noch nicht da
Sh.Rows(Target.Row).Copy Destination:=TB.Rows(LR + 1)
End If
End With
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige

257 Forumthreads zu ähnlichen Themen

Liste aus Liste erstellen
Ernst

Hallo Vba Profis !
Ich habe folgende Problemstellung und zwar meine Exelliste die ich Auslaufmanagement benannt habe und unter folgendem Link abrufbar ist: https://www.herber.de/bbs/user/54880.zip
besteht aus drei Tabellenblättern (im Tabellenblatt Auslaufmanagement wird eine Nummer ei...
25.08.2008 14:02:00
Thread-ID: 1004448
21 Beiträge
Anzeige
Summewenn mit 3 Kriterien
Tobias

Guten Tag,
ich finde die summewenn-funktion sehr gut, stoße jetzt leider an die Grenzen.
Ich habe folgendes Problem:
Das Datentabellenblatt sieht wie folgt aus:
Spalte 1 Spalte 2 Spalte 3 Spalte 4
* AAA 111...
15.10.2008 17:42:51
Thread-ID: 1016633
2 Beiträge
Dropdownliste aus Matrix erstellen
asdf

Hi ich habe folgendes Problem,
ich hab eine Matrix und möchte die Zeile und Spalte per Dropdownliste auswählen
(wie ich die Dropdownliste selbst erstelle weiss ich ) und will nach auswahl von Zeile und Spalte nun das Ergebnis aus der Matrix haben, also den inhalt der in Spalte x und Ze...
31.10.2008 11:26:37
Thread-ID: 1020823
2 Beiträge
Anzeige
Summe mit 3 Suchkriterien
Joachim

Hallo,
ich hab ne Tabelle, in der zeilenweise Teilrechnungsbeträge stehen. Die Kunden-, Vertrags- und Objekt-Nummer sind in den Spalten C-E, die Kosten ab Spalte S. Die Teilrechnungen bestehen manchmal aus 2 oder 3 Zeilen, manchmal gibt es aber nur eine (sie stehen untereinander).
Ich...
17.12.2008 12:11:00
Thread-ID: 1033570
3 Beiträge
SUMMEWENN mit 3 Kriterien
Tobiax

Hallo!
Ich habe eine Liste KOSTEN mit Datum, Kosten, Abteilung (mech. oder elektr.), Art (Fremd, Material).
Ich möchte in der Übersicht TABELLE3 diese 4 Dinge jeden Monat ausweisen.
Wie kann ich also SUMMEWENN eingrenzen mit z.B.: mech., fremd und nur im Februar ? Oder gibt es eine...
13.01.2009 13:57:44
Thread-ID: 1039231
4 Beiträge
Suchen mit 3 Kriterien
Schmidt

Hallo zusammen
Ich habe eine Tabelle , in der ich mit 3 Suchkriterien einen Wert errechnen möchte.
Mit Sverweis und der WENN-Funktion konnte ich das Problem nicht lösen. Könnte mir bitte jemand hilfreich zur Seite stehen.
https://www.herber.de/bbs/user/58658.xls
21.01.2009 14:41:00
Thread-ID: 1042200
7 Beiträge
Auswahlliste erstellen
Manuel

Hallo!
Ich möchte gerne eine Auswahlliste mit EXCEL (verstehe nix von VBA...) erstellen, wo man meinetwegen verschiedene Ausstattungen von Kfz anklicken kann, die dann später ausgedruckt werden, ohne dass die nichtangeklickten mit ausgedruckt werden... Geht sowas?
Irgendwie alle Punkte...
17.02.2009 13:30:00
Thread-ID: 1051459
2 Beiträge
spezieller sverweis mit 3 Suchkriterien.
Andi

Hallo zusammen
ich suche eine speziellen Sverweis mit 3 Suchkriterien. Er soll zwei Spalten nach den exakten werten durchsuchen. und die 3te nach dem exakten, falls vorhanden, falls nicht vorhanden, dann nach dem nächst kleineren.
Genaueres habe ich hier beschrieben: https://www.herber....
11.05.2009 09:50:39
Thread-ID: 1074268
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
6
1
1
1
2
3
6
1
6
5
3
3
6
3
2
1
4
6
10
7
2
2
1
6