Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelleneinträge kopieren

Forumthread: Tabelleneinträge kopieren

Tabelleneinträge kopieren
10.02.2004 10:58:35
Achim
Hallo Excel-Gemeinde,
Ich habe eine Tabelle mit ca. 30000 einträgen.
K1 ,abc ,g 728 ,p 500 ,asd ,9o8 ,usw
P2 ,def ,d 449 ,u 400 ,etg ,234 ,usw
L3 ,asd ,o 900 ,g 728 ,yxc ,456 ,usw
....
....
usw.
Nun möchte ich, dass die Spalten C und D nach einem bestimmten Suchbegriff (hier g 728)durchsucht werden und die
gefundenen Zeilen in ein neues Tabellenblatt untereinander eingefügt werden.
Wer kann mir weiterhelfen
Im voraus besten Dank
Achim
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelleneinträge kopieren
10.02.2004 11:07:54
Karl-Otto Reimann
Hallo Achim

Sub FilternUndKopieren()
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
With Range("A1")
.AutoFilter Field:=3, Criteria1:="g 728"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Range("A1")
.AutoFilter Field:=4, Criteria1:="g 728"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Range("A1")
End With
End Sub

Gruß
Karl-Otto
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige