Home  >  Praxis & Hilfe  >  Kummerkasten  >  Office  > Artikel 36170

spacer

Gefilterte Excel-Daten kopieren III

Problem: Die Anforderung im Artikel 36021 liesse sich doch auch mit einem Spezialfilter lösen. Bei Bedarf kann man dies sogar in ein Makro packen und dann das ganze auf Knopfdruck in einer anderen Arbeitsmappe aktualisieren.

blue_quad von Monica Hubacher (01.05.2007)

Lösung: Das ist eine tolle Idee. Angenommen, ihre Quelltabelle sieht folgendermassen aus und heisst auch quelltabelle.xls. Die ganze Tabelle ist bis Zeile 51 ausgefüllt

Öffnen Sie nun eine leere Datei die als Zieltabelle fungiert und speichern Sie diese unter dem gewünschten Namen ab. In dieser Tabelle erstellen sie im VBA-Editor ein neues Modul und fügen das nachfolgend aufgeführte Makro ein.

vergrößen

Natürlich müssen Sie die entsprechenden Bereiche an Ihre eigene Tabelle anpassen. Dies betrifft den die Quelltabelle, das Arbeitsblatt und den Tabellen- und den Kriterienbereich, sowie den Ausgabebereich in der Zieltabelle (im Beispiel A1)

Wenn Sie nun aus der Zieltabelle heraus dieses Makro ausführen, wird die neue gefilterte Tabelle am Ausgabebereich erstellt, ohne die Quelltabelle zu verändern

Sie können für jede benötigte Tabelle ein Makro erstellen. Passen Sie einfach den entsprechenden Filter an und das Ausgabeblatt.

-----------------------------------------------
MAKRO ZUM KOPIEREN:
-----------------------------------------------

Sub SpezFilter01()
[A1].CurrentRegion.Select
Selection.ClearContents
Workbooks("quelltabelle.xls").Sheets("Tabelle1"). _
Range("A4:D51").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Workbooks("quelltabelle.xls"). _
Sheets("Tabelle1").Range("C1:D2"), CopyToRange:=Range( _
"A1"), Unique:=False
End Sub

-----------------------------------------------



  
Drucken Drucken
spacer
WeiterempfehlenWeiterempfehlen
spacer
Kommmentar Kommentieren       
spacer


Anzeige
Social Bookmarks
Favoriten Twitter Facebook WordPress Blogger
PCtipp als APP
PCtipp App

Laden Sie die PCtipp-App kostenlos auf Ihr Smartphone und bleiben Sie auf dem Laufenden.

 

iOS-Version
Android-Version
zum Artikel
Wählen Sie:

spacer

Windows 7 Windows 7
Windows 2000 Windows 2000
Windows XP Windows XP
Windows Vista Windows Vista
Linux Linux
Mac Mac
Sicherheit Sicherheit
Internet Internet
Office Office
Multimedia Multimedia
Spiele Spiele
Hardware Hardware
Windows9x/NT Windows9x/NT
Mobile Mobile
Sonstiges Sonstiges

spacer

Ähnliche Themen
Word ohne «Dokument 1» starten

Wie kann ich Microsoft Word starten, ohne dass eine leere Datei «Dokument1» angezeigt wird? Word ohne «Dokument 1» starten

Excel 2007: Wann und vom wem zuletzt gespeichert?

Problem: An einer Excel-Datei arbeiten verschiedene Mitarbeiter. Nun möchte ich, dass beim Schliessen der Datei in bestimmten Zellen automatisch bestimmte... Excel 2007: Wann und vom wem zuletzt gespeichert?

LibreOffice Calc: Zellen per Formel einfärben

Problem: In der «Tabelle3» habe ich folgende Formel: =WENN(Tabelle2.A1>=100;"grün";"rot"). Nun möchte ich, dass anstelle der Wörter «grün» oder «rot»... LibreOffice Calc: Zellen per Formel einfärben

Excel: Zellbezeichnung zusammensetzen

Problem: Ich möchte eine Zelle anhand der Inhalte zweier anderer Zellen adressieren. Zum Beispiel steht in A1 der Wert «C», in B1 steht «1» und in C1... Excel: Zellbezeichnung zusammensetzen

Excel: Hyperlink per Formel

Problem: Ich führe eine Tabelle mit drei Spalten. In der Spalte A sind Stichwörter, in Spalte B ein Hyperlink zum Anklicken. Ich möchte in der Spalte... Excel: Hyperlink per Formel

Mehr Praxis & Hilfe
Fachchinesisch

Mühe mit Computerbegriffen?

Im Fachchinesen finden Sie 743 Erklärungen.

AKTUELLE KUMMERKASTEN
hiberfil.sys und pagefile.sys

Auf meiner Festplatte sind zwei versteckte Dateien, c:\hiberfil.sys und c:\pagefile.sys, die zusammen ca. 2.5GB an Platz brauchen. Brauche ich diese Dateien,... hiberfil.sys und pagefile.sys

Windows 7/Vista: Ruhezustand nicht möglich

Problem: Wenn ich meinen Computer in den Ruhezustand versetzen will, geht es nicht richtig. Es wird nur für etwa zwei Sekunden der Bildschirm schwarz,... Windows 7/Vista: Ruhezustand nicht möglich

Mehr Artikel
Leser empfehlen
Dropdown-Liste in Excel erstellen

Problem: Ich möchte in den einzelnen Feldern der Tabelle eine Dropdown-Liste zur Auswahl der Kriterien einfügen. Wie geht das? Dropdown-Liste in Excel erstellen

ASCII-Tabelle für Sonderzeichen

Ich arbeite häufig mit der Sonderzeichentabelle in Word. Mir ist es aber zu umständlich, ständig die Tabelle zu öffnen, um das Zeichen in den Text einzufügen.... ASCII-Tabelle für Sonderzeichen

Frustfreier Download bei www.pctipp.ch

Problem: Wenn ich aus den PCtipp-Downloads ein File herunterladen will, erscheint die Aufforderung, ein PCtipp-Abo zu lösen. Ich kaufe den PCtipp aber... Frustfreier Download bei www.pctipp.ch

Firefox: Neuer Tab mit Startseite?

Problem: Wenn ich im Firefox via Ctrl+T oder «Datei/Neuer Tab» einen neuen Tab öffne, wird in diesem immer eine leere Seite (about:blank) angezeigt. Ich... Firefox: Neuer Tab mit Startseite?

Windows XP im abgesicherten Modus starten

Kann ich Windows XP auch im abgesicherten Modus starten? Windows XP im abgesicherten Modus starten

Mehr Tipps & Tricks
ANZEIGE
PROMOTION
PCTIPP ABONNIEREN
Holen Sie sich monatlich die besten Tipps und Tricks für den PC-Alltag nach Hause.
1-Jahres-Abo 54.-
2-Jahres-Abo 95.-
Geschenkabo
NEWSLETTER
Wir halten Sie auf dem Laufenden: Der Newsletter liefert Ihnen jeden Werktag das Aktuellste aus der Welt von Computer und Internet.

Anmelden
RSS-FEEDS
Die PCtipp-Website bietet RSS-Feeds an. Holen Sie sich die Schlagzeilen von PCtipp.ch schnell und bequem auf den Desktop oder bauen Sie diese in Ihre eigene Webseite ein.
zu den Feeds
Anzeige