Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten Filtern und auf ein neues sheet

Daten Filtern und auf ein neues sheet
17.09.2003 08:37:40
Nena
Guten morgen,

Ich brauche bestimmte Daten aus einer Spalte B (Filter). Diese Daten sollen dann auf ein 2tes Tabellenblatt kopiert werden. zu diesen Werten aus der Spalte B gehören noch Werte aus der Spalte A und Y. Diese Werte sollen dann mitkopiert werden.

Als Anhang hab ich mal die Exceltabelle eingefügt.
(Gefiltert soll erstmal die Gruppe "Ford" aus der Spalte B werden)

https://www.herber.de/bbs/user/1046.xls

thx schonmal

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

Betreff
Datum
Anwender
Anzeige
AW: Daten Filtern und auf ein neues sheet
17.09.2003 10:56:29
Karl-Otto Reimann
Hallo Nena
Wie wär’s mit einer Combobox?
Beim Rechtsklick auf die Box trägst Du unter „Eigenschaften/ListFillRange“
den Bereich ein, nach dessen Werten Du suchst (z.B. „Selection!AA1:AA30“).
In AA1:AA30 trägst Du die Automarken ein.Das Blatt mußt Du natürlich noch
anlegen.


Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheets("Selection").Rows("1:10000").ClearContents
With Sheets("Quotations").Range("A5:Y200")
.AutoFilter Field:=3, Criteria1:=ComboBox1.Value
Sheets("Quotations").Range("a5").CurrentRegion.Copy
Sheets("Selection").Range("A1").PasteSpecial Paste:=xlValues
Range("A1").Select
End With
Application.CutCopyMode = False
End Sub


Du solltest übrigens die 5. Zeile löschen oder füllen.
Die nicht gefüllten Spalten unter Selection blendest Du aus oder löscht diese.
In diesem Sinne
Glück Auf!
Anzeige
AW: Daten Filtern und auf ein neues sheet
17.09.2003 12:08:11
Nena
ok habe jetzt die Zeile 5 gelöscht.
Sry ich kenne mich in VBA kaum aus... was ist die Combo-Box und was soll ich wo einfügen ?

Danke schonmal für die Geduld

Nena
AW: Daten Filtern und auf ein neues sheet
17.09.2003 13:01:06
Karl-Otto Reimann
Auf deinem Blatt Quotations rufst Du die Steuerelement-Menüleiste auf,
(nicht die Formular-Menüleiste). Wenn Du mit dem Cursor die Steuerelemente
berührst, erscheint ein Kontext, in diesem Falle "Kombinationsfeld". Das brauchst
Du. Klick drauf und zieh es an beliebiger Stelle auf. Wenn Du das Objekt doppelt
anklickst, öffnet sich ein Modul, in welches Du obigen Code einfügst. Beim
Rechtsklick öffnet sich das Eigenschafts-Fenster. Das Ganze funktioniert im
sogenannten Entwurfs-Modus (das ist der Button mit dem Dreieck und dem Bleistift).
Beim Anklicken schließt sich der Modus und Deine ComboBox ist benutzbar.

Alles klar?
Glüvk Auf K.O.
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige