Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
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
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren/filtern von x-Spalten in x-Blättern

kopieren/filtern von x-Spalten in x-Blättern
22.11.2008 16:34:00
x-Spalten
So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmappe (Tabelle13!B:B) alle Einträge der anderen Arbeitsmappen in den Zeilen C122-C218 untereinander auflistet, dabei aber darauf achtet Zellen ohne Wert bzw. leere Zellen nicht zu kopieren.
Die Formel sollte interaktiv sein, sprich: einige Arbeitsblätter werden erst im Laufe der Zeit gefüllt. Wenn dies der Fall ist sollen die neuen Einträge von selbst an die Auflistung angestellt werden.
Jemand eine Idee / Lösung?
LG
Heiko

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 12:02:57
x-Spalten
Hallo Heiko,
Private Sub Worksheet_Activate()
    'Zielblatt muss immer die höchste Nr. haben!
    Dim i As Long
    Dim j As Long
    On Error GoTo Fehler
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Columns("B").ClearContents
    For i = 1 To ActiveWorkbook.Sheets.Count - 1 Step 1
        Sheets(i).Range("C122:C218").Copy
        Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Next i
    j = Cells(Rows.Count, "B").End(xlUp).Row 'Zeilenzahl ermitteln
    Range("B1:B" & j).SpecialCells(xlCellTypeBlanks).Delete 'Leerzellen aufrücken
    Fehler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Range("A1").Select
    ActiveSheet.UsedRange
End Sub
Füge das Makro in Codefenster der Tabelle13!
Immer wenn diese Tabelle aktiviert wird, wird dort die Spalte B gelöscht und der Bereich C122:C218 aus allen anderen Blättern dort in Spalte B kopiert untereinander. Dann werden in Tabelle13! die Leerzellen gelöscht, so dass Spalte B dort lückenlos ist.
Wichtig ist, dass Tabelle13! die höchste Tabellenzahl bleibt, ansonsten setze die Blattzahl dieses Blattes hoch. Weil alle Zellbereiche der Blätter 1 bis zum letzten Blatt -1 kopiert werden.
Beispieldatei: https://www.herber.de/bbs/user/57055.xls
Gruß,
Beate
Anzeige
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 12:32:00
x-Spalten
Ich werde es gleich mal probieren
Danke schon mal für die Lösung :)
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 12:55:00
x-Spalten
Hallo Beate,
vielen Dank für den Code, der funktioniert wirklich Prima.
Aber ein Problem habe ich noch:
Er kopiert jetzt auch Zeilen ohne Wert in die Auflistung.
Es wäre schön, wenn er nur Zeilen mit Wert untereinander auflistet und er Zeilen die in C122-C218 keinen Wert haben ignoriert.
Gibt es dafür auch eine Lösung bzw. eine Erweiterung des Codes?
Danke und LG
Heiko
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 13:16:00
x-Spalten
Hallo Heiko.
probier mal, nun werden auch Textzellen und Nuller-Zellen gelöscht. Es ist schon schneller, die erstmal alle ins Zielblatt zu kopieren und dort auf einen Rutsch zu behandeln:
Private Sub Worksheet_Activate()
    'Zielblatt muss immer die höchste Nr. haben!
    Dim i As Long
    Dim j As Long
    On Error GoTo Fehler
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Columns("B").ClearContents
    For i = 1 To ActiveWorkbook.Sheets.Count - 1 Step 1
        Sheets(i).Range("C122:C218").Copy
        Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Next i
    'Nuller Zellen werden in Leerzellen gewandelt und im nächsten Gang gelöscht:
    Columns("B:B").Replace 0, "", xlWhole
    'Text wird in Leerzellen gewandelt und im nächsten Gang gelöscht:
    Columns("B:B").SpecialCells(xlCellTypeConstants, 2).ClearContents
    j = Cells(Rows.Count, "B").End(xlUp).Row 'Zeilenzahl ermitteln
    Range("B1:B" & j).SpecialCells(xlCellTypeBlanks).Delete 'Leerzellen aufrücken
    Fehler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Range("A1").Select
    ActiveSheet.UsedRange
End Sub
Gruß,
Beate
Anzeige
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 13:28:00
x-Spalten
Jetzt zeigt er mir gar nichts mehr an.
Ich habe den alten Code durch den neuen Ersetzt.
Aber auch wenn ich Ihn an den alten code ranhänge tut er nichts :(
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 18:49:00
x-Spalten
Hallo Heiko,
das verstehe ich nicht. Bei mir läuft es, Werte bleiben erhalten, Leerzellen, Nullzellen und Textzellen werden gelöscht.
Welcher Art ist denn tatsächlich der Inhalt in den kopierten Zellen bei dir?
Gruß,
Beate
@ Rocky
23.11.2008 19:48:00
Beate
Hallo Rocky,
Das:
On Error GoTo Fehler
solltest du aber nicht auskommentieren, da die Ereignisse deaktiviert werden mit:
Application.EnableEvents = False
Im Fehlerfall würde das Makro nur abbrechen, dass System aber nicht wieder auf scharf gesetzt.
Guckst Du: Fehlerbehandlung (1) -On Error Goto und Err
Da mein Code bei mir läuft, warte ich mal Heikos Reaktion ab.
Deine rote Unterschrift erscheint sehr rieseig und ungünstig bei mir und ich kann noch nicht mal mehr unter deiner Antwort antworten. Es fehlen die Buttons, die sonst doch immer da sind.
Gruß,
Beate
Anzeige
AW: @ Beate
23.11.2008 20:07:00
Rocky
Hallo Beate,
vielen lieben Dank für deinen Hinweis. Ich arbeite mit OPERA da war meine Unterschrift in Größe 10 zu sehen. Bin deinem Hinweis gefolgt und hab mienen Beitrag im IE angeschaut. Man ist ja riesig. Habs gleich auf 10pt korrigiert.
Mit on error hast du recht. Sorry. Hatte es ausgeblendet um auf Spurensuche zu gehen. Die Zeile hat bei mir alles gelöscht wat nach einer Zahl aussieht. Daswegen hab ich es rausgenommen. Sonst echt ne Spitzen Lösung. 

Columns("B:B").SpecialCells(xlCellTypeConstants,2).ClearContents




Gruß Rocky




Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!


Anzeige
AW: @ Rocky
23.11.2008 21:20:12
Uwe
Hi Rocky,
mit der Größe Deiner Unterschrift hatte ich nie Probleme, ich nutze auch Opera, aber jedesmal wenn ich einen Beitrag von Dir lese grübele ich über den SINN Deines Spruchs. Irgendwie komme ich nicht dahinter wieso hier die Herrn der Ringe zu finden sind!!!? Irgendwie will bei mir der Groschen nicht fallen.
Gibst Du mir 'nen Tip.
Gruß
Uwe
(:o)
AW: @ Rocky
23.11.2008 21:30:00
Rocky
Wenn du die Filme kennst, dann weist du auch wie sie begonnen haben.
"Ein Ring aus den Feuern des Schicksalsberges geschmiedet um alle anderen zu knechten." (also auch die Könige) Also die Poster sind quasie die zweiäugigen. Die Könige der Könige. Ist den bissel Poetisch.

Gruß Rocky




Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!


Anzeige
AW: @ Rocky
23.11.2008 22:45:11
Uwe
Hi Rocky,
DANKE! Jetzt ist der Groschen (ist ein 10 Cent Stück eigentlich auch ein Groschen, oder nur ein 10 Pfennig Stück? (;-)) gefallen und ich kann ruhiger schlafen.
Gruß
Uwe
(:o)
AW: @ Rocky
24.11.2008 12:09:00
Rocky
Naja eigentlich war der Groschen ja 10 Pfennig (Ost). Aber denke schon das man das beibehalten kann. Es gibt ja auch nach wie vor den Pfennigabsatz. ;-)


Gruß Rocky





Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!


Anzeige
AW: @ Rocky
24.11.2008 23:55:00
Uwe
Stimmt. Centabsatz wäre komisch.
Übrigens ist jetzt Dein "Gruß Rocky" bei mir im Opera-Browser auf ca. Größe 20. Ist das Absicht oder liegt es an Deiner Anpassung für den IE?
Gruß
Uwe
(:o)
AW: @ Rocky
25.11.2008 09:58:00
Rocky
Hallo Uwe,
Nee war absicht. Aber danke für den Hinweis. Dir noch nen schönen Tag.
Gruß Rocky (Jetzt mal ohne alles, da ich uff de Arbeit bin)
AW: kopieren/filtern von x-Spalten in x-Blättern
23.11.2008 19:14:24
x-Spalten
Hallo Beate,
bie mir war auch alles leer. Hab in deinem Code mal nur zwei sachen ausgeblendet. so ging es dann.

 _
Option Explicit
Private Sub  _
Worksheet_Activate()
'Zielblatt muss immer die höchste Nr. haben!
Dim i As Long
Dim j As Long
'On Error GoTo Fehler
Application.EnableEvents = False
Application.ScreenUpdating = False
Columns("B").ClearContents
For i = 1 To  _
ActiveWorkbook.Sheets.Count - 1 Step 1
Sheets(i).Range("C122:C218" _
).Copy
Cells(Rows.Count, "B").End( _
xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Next i
'Nuller Zellen werden in Leerzellen gewandelt und im nä _
chsten Gang gelöscht:
Columns("B:B").Replace 0, " _
34;, xlWhole
'Text wird in Leerzellen gewandelt und im nächsten Gang  _
gelöscht:
'Columns("B:B").SpecialCells( _
xlCellTypeConstants,2).ClearContents
j = Cells(Rows.Count, "B").End( _
xlUp).Row 'Zeilenzahl ermitteln
Range("B1:B" & j).SpecialCells& _
#40;xlCellTypeBlanks).Delete 'Leerzellen aufrücken
Fehler:
Application.EnableEvents = True
Application.ScreenUpdating = True
Range("A1").Select
ActiveSheet.UsedRange
End Sub





Gruß Rocky




Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!


Anzeige

318 Forumthreads zu ähnlichen Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Mehrere Filter gleichzeitig auf "Alle"
Alex

Hallo zusammen,
ich habe in meiner Datei 10 Autofilter.
Benötige eure Hilfe; wie kann ich schreiben, dass Filter 1-7 gleichzeitig aufgehoben, d.h. deaktiviert werden?
Sub FilterAlleAnzeigenÜ() ActiveSheet.Unprotect "passw" Selection.AutoFilter Field:=1 'hier Field 1-7 ? ActiveShee...
23.01.2009 10:34:13
Thread-ID: 1042839
4 Beiträge
Anzeige
Scrollarea auf mehrere Spalten definieren
Janni

Hallo zusammen,
ich habe folgendes Problem, ich will in meinem Tabellenblatt nur die Spalten A, C und E editierbar machen, d.h. man soll auf die Spalten B und D nicht klicken dürfen bzw. den Zelleninhalt nicht ändern können. Ich habe probiert es über die ScrollArea festzulegen. Ich kann in...
27.03.2009 11:07:02
Thread-ID: 1064529
6 Beiträge
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
3 Beiträge
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Autofilter für Spalten?
Timo

Hallo,
ich würde gern über ein Makro gewisse Spalten ausblenden.
In der Beispieldatei über den u.s. Link sollen alle Spalten ausgeblendet (also versteckt) werden, die eine "0" in Zeile 1 aufweisen. Überall, wo eine "1" steht, sollen die Spalten weiterhin lesbar sein.
https://www.h...
12.07.2009 18:07:56
Thread-ID: 1087997
9 Beiträge
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 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
6
2
2
3
5
5
2
4
8
18
1
8
4
1
2
2
2
5
3
3
5
2
5
4
3