Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für benutzerdefiniertes filtern

Forumthread: Makro für benutzerdefiniertes filtern

Makro für benutzerdefiniertes filtern
30.08.2008 23:34:47
Pet

Einen schönen guten Abend an alle.
Habe mal wieder ein Problem.
Ich möchte gerne ein Makro, welches aus Tabelle 1 die Spalte B benutzerdefiniert filtert, danach die Spalte A kopiert und in Tabelle 2 in Spalte A die Werte einfügt.
https://www.herber.de/bbs/user/55053.xls
Leider zeichnet der Makrorecorder das Filtern, sowie kopieren und einfügen nicht auf.
Kann mir jemand helfen?
Vielen Dank
Pet
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro für benutzerdefiniertes filtern
31.08.2008 08:39:00
Pet
Guten Morgen Tino,
auch unter Office 2000 hat das Makro geklappt!!
Hab tausend Dank !!!
Wünsche dir einen schönen Sonntag
Gruß
Pet
Anzeige
Makro anpassen !!!
31.08.2008 09:58:00
Pet
Hallo Tino,
ich habe versucht das Makro an meine Tabelle anzupassen. Leider bekomme ich Fehlermeldungen.
In meiner Tabelle liegen die Spalten die gefiltert werden sollen, nicht direkt nebeneinander.
In Tab3 soll in Spalte C die gefilterten Daten eingefügt werden.
Aus Tab1 Spalte B5:b500 sollen die Daten kopiert werden, die aus Spalte AC 5:ac500 gefiltert wurden.
Spezialfilter steht in Tab1 AC3
Kannst du mir bitte wieder helfen?
Gruß
Pet
Option Explicit

Sub SEK_aufgehoben()
With Tabelle1
Tabelle3.Columns(3).ClearContents
Tabelle3.Range("ac3") = .Range("ac3")
.Range("b5:b500);(ac5:ac500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
.Range("ac3"), CopyToRange:=Tabelle3.Range("ac3"), Unique:=False
End With
End Sub


Anzeige
AW: Makro anpassen !!!
31.08.2008 10:17:00
Tino
Hallo,
bitte lade eine Datei hoch die Deinem original entspricht.
Gruß Tino
AW: Makro anpassen !!!
31.08.2008 13:27:00
Tino
Hallo,
habe hier mal ein Beispiel aufgebaut, vielleicht wird die Verwendung des Spezialfilters dadurch verständlicher.
Modul Modul1 
Option Explicit 
 
Sub Spezialfilter() 
Dim Tab1 As Worksheet, Tab2 As Worksheet 
 
Set Tab1 = Tabelle1 'Quelltabelle 
Set Tab2 = Tabelle3 'Ziehltabelle 
 
With Tab1 
    'Filterkriterium festlegen************************ 
    .Range("H1") = .Range("B5") 'muss Überschrift sein 
    .Range("H2") = "'>0" 'Filterkriterium 
     
    Tab2.Columns("AC").ClearContents 'Bereich leeren 
    Tab2.Range("AC3") = .Range("B5") 'Überschrift setzen 
     
    'Spezialfilter anwenden*************************** 
    .Range("A5:AC10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    .Range("H1:H2"), CopyToRange:=Tab2.Range("AC3"), Unique:=False 
     
    'Filterkriterium wieder löschen******************* 
    .Range("H1:H2").ClearContents 
 
End With 
Tab2.Select 
 
Set Tab1 = Nothing 
Set Tab2 = Nothing 
End Sub


Frage lass ich offen, da ich deine Beispielmappe benötige um es besser zu verstehen was du meinst.
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Makro anpassen !!!
31.08.2008 15:10:00
Pet
Hallo Tino,
hier die Beispielmappe.
Habe zwischenzeitlich dein neues Makro ausprobiert, es geht leider nicht.
Auch habe ich das Makro anpassen wollen, die nicht benötigten Punkte habe ich als Text markiert.
https://www.herber.de/bbs/user/55061.xls
Ich hoffe du kannst nachvollziehen, was ich eigentlich will.
Vielen Dank für deine Geduld!
Gruß
Pet
Anzeige
AW: Makro anpassen !!!
31.08.2008 15:43:57
Tino
Hallo,
habe den Filter für Deine Spalte C angepasst.
https://www.herber.de/bbs/user/55063.xls
Für mehrere Filterkriterien, würde ich eine Gültigkeitsliste einbauen und nach dieser die Filterkriterien bestimmen.
Mit dem verlinken verstehe ich leider nicht so richtig was Du vor hast.
Zur Info, möchtest du mehrere Spalten mit rüber ziehen, müssen die Überschriften übereinstimmen.
Gruß Tino
Anzeige
AW: Makro anpassen !!!
31.08.2008 17:11:00
Tino
Hallo,
so du schreibst schon mal die Überschriften müssen bleiben, daraus folgt Spezialfilter geht nicht mehr.
Alternative wäre, eine Art Temp Tabelle anlegen in der diese zwischenkopiert werden.
Dazu müsstest Du mir eine Tabelle anlegen mit den Überschriften von dessen Spalten in Tabelle1 du die Daten brauchst, diese sollten so angeordnet sein, dass man die Daten direkt in Tabelle3 Kopieren kann, leider Fehlt mir der Zusammenhang welche spalte aus Tab1 in Tab3 gebraucht wird.
z. Bsp.
in Tabelle3 - Kosten Storno – wo finde ich diese in Tabelle1?
Gruß Tino
Anzeige
AW: Makro anpassen !!!
31.08.2008 17:30:32
Pet
Hallo Tino,
die Überschriften in Tabelle 3 müssen bleiben.
Aus Tabelle 1 ist die Überschrift aus Spalte AA, AC und AD übernommen worden.
Die anderen Überschriften sind erstellt nach den Filterkriterien aus Tabelle 1 Spalte AB. Dort findet man z.B. storniert, QI, aufgehoben, Abgelehnt durch Lieferant, offen. Daraus wird in Tabelle 3 die Überschrift Kosten Storno, Aufgehoben durch QM usw.
Habe mir das wohl zu einfach vorgestellt. Dachte ich könnte ein Makro aufzeichnen damit ich nicht alles von Hand filtern, kopieren und dann einfügen muss. Die Liste erweitert sich ja Tag für Tag.
Gruß
Pet
Anzeige
sorry, komme mit Deinem Bsp. nicht zurecht!
31.08.2008 17:47:00
Tino
Hallo,
ich verstehe deine Beispieltabelle einfach nicht, ist wohl zu hoch für mich.
Warum sind jetzt in Tabelle3- Gesamtkosten offen (EUR), die Daten aus Tabelle1 - QB Nr., dass passt doch alles nicht zusammen!
Also baue bitte ein sauberes Beispiel auf mit dem man arbeiten kann und in dem auch der Zusammenhang genau zu erkennen ist, sonst kann ich beim besten willen nichts für dich tun.
Ich lass die Frage mal offen, vielleicht liegt es auch an mir!
Gruß Tino
Anzeige
AW: sorry, komme mit Deinem Bsp. nicht zurecht!
31.08.2008 19:19:00
Pet
Oh jee.....,
das es sooo kompliziert ist hatte ich mir nicht vorgestellt.
https://www.herber.de/bbs/user/55071.xls
Habe jetzt die Datei angeglichen, bzw. versucht dir verständlich zu machen was, wie, warum ich dies so haben möchte. Sollte jetzt immer noch kein Durchblick gelingen, so muss ich passen, denn es fällt mir keine Erklärung/Erläuterung/Worte mehr ein, wie ich es anstellen soll.
Ich schreibe trotzdem ein ganz dickes Dankeschön, dass du dich bemüht hast mir zu helfen.
Gruß
Pet
Anzeige
VIELEN DANK TINO !!!!
01.09.2008 16:13:00
Pet
Es hat alles genauso funktioniert wie ich es mir vorstellte !!!
Mit den Links brauchst du dich nicht zu befassen, dies schaffe ich so per Handbetrieb ;-)
Allerdings. eine Frage hätte ich da noch. Kann man in einer Zelle auf, z.B. verschiedene Worte, Hyperlinks setzten oder geht nur 1 Hyperlink auf jede Zelle?
Nochmals tausend Dank für deine Geduld und deine großartige Hilfe !!!
Glücklicher Gruß
Pet
Anzeige
AW: VIELEN DANK TINO !!!!
01.09.2008 17:12:37
Tino
Hallo,
soweit ich weis kann in Excel nur ein Hyperlink in einer Zelle existieren.
Gruß Tino
;

Forumthreads zu verwandten Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
die bedingte Formatierung be
Lemmi

Hallo zusammen,
wie kann ich die Bedingte Formatierung ersetzen durch eine "normale " Formatierung
Ich habe in einem Bereich A1:B100 einige bedingte Formatierungen, diese sollten eben durch die selbe Formatierung ersetzt werden!
Kann man das umsetzen?
Gruß
Lemmi
08.08.2008 08:45:25
Thread-ID: 1000161
5 Beiträge
if mit or Verknüpfung?
Tom

Hi,
ich versuch gerade ein If mit Or Verknüpfung hinzubekommen.
Hier mal der Code:
If Datei1Name = "" Or Datei2Name = "" Or TextD1v = "" Or TextD2v = "" Or TextD1A = "" Or _ TextD1E Or TextD2An Then Error = MsgBox("Es müssen alle Felder gefüllt sein", 48, "Eingabe Fehler") Else <...
08.08.2008 11:29:57
Thread-ID: 1000222
9 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Daten zählen mit AutoFilter
TomTom

Hi,
hier ist ein Code, der nach bestimmten Kriterien schaut und diese zählt und das Ergebnis in Tebelle2 einträgt:
Dim TB1, TB2
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
TB2.Range("M8") = WorksheetFunction.CountIf(TB1.Range("D:D"), "Green")
TB2.Range("M10...
08.08.2008 23:34:00
Thread-ID: 1000446
10 Beiträge
AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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