title image


Smiley Kopieren aller Zeilen, die in einer bestimmten Spalte einen bestimmten Wert
...beinhalten



Hallo Oliver,



die Idee mit dem Autofilter ist genau richtig und auch die von mir bevorzugte, da schnellste Variante.

Hier ein Beispiel-Code : Es werden aus "Tabelle1" alle Zeilen (nur Spalten A:D) in "Tabelle2" kopiert, die in Spalte B ein "x" beinhalten :

Sub DatenMitXinSpalteBkopieren()

    'Kopiert aus Tabelle1 alle Zeilen (Spalte A:D) in denen in Spalte B ein "x" steht

    'in das Blatt "Tabelle2"

    Set Original = Sheets("Tabelle1") ' Name des Blattes mit ALLEN Daten

    Set Kopie = Sheets("Tabelle2") ' Name des Blattes auf das kopiert werden soll

    Original.[A1].AutoFilter 'Autofilter aktivieren

    Original.[A1].AutoFilter Field:=2, Criteria1:="=x" 'Field:=2 bedeutet : Spalte B

    Intersect([A:D],[A1].CurrentRegion.EntireRow).Copy Kopie.[A1]

    Original.[A1].AutoFilter 'Autofilter deaktivieren

    Set Original = Nothing

    Set Kopie = Nothing

End Sub

Code eingefügt mit Syntaxhighlighter 4.0



Auf Dein Beispiel übertragen müsste der Code folgendermassen angepasst werden :

Sub DatenMitJaInSpalteIkopieren()

    'Kopiert aus Tabelle1 alle Zeilen (Spalte A:IV) in denen in Spalte I "Ja" steht

    'in das Blatt "Tabelle2"

    Set Original = Sheets("Tabelle1") ' Name des Blattes mit ALLEN Daten

    Set Kopie = Sheets("Tabelle2") ' Name des Blattes auf das kopiert werden soll

    Original.[I1].AutoFilter 'Autofilter aktivieren

    'Field:=9 bedeutet : Spalte I, wenn Tabelle in Spalte A beginnt :

    Original.[I1].AutoFilter Field:=9, Criteria1:="=Ja"

    Intersect(Original.[A:IV], Original.[I1].CurrentRegion.EntireRow).Copy Kopie.[A1]

    Original.[I1].AutoFilter 'Autofilter deaktivieren

    Set Original = Nothing

    Set Kopie = Nothing

End Sub

Code eingefügt mit Syntaxhighlighter 4.0





Zu "Field:=xxx" : xxx ist abhängig von der Spalte, in der die Tabelle beginnt unfd von der zu filternden Spalte !

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: