Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Statt Filtern und kopieren, filtern und umbewegen

Statt Filtern und kopieren, filtern und umbewegen
18.03.2016 06:40:31
Helena
Hallo
Dieses Macro funktioniert einwandfrei, möchte aber Konzept etwas anpassen.
https://www.herber.de/bbs/user/104370.xlsm
Statt die Zeilen zu kopieren, denke ich es ist besser die Zeilen nach Ziel umzubewegen dann kann man checken welche Zeilen nach Filtererung am Bezugsort liegen geblieben sind d.h. nicht bewegt wurden.
Habe ca. 400 Zeilen nach umbewegen würde ich sehen welche Zeilen nicht zugeteilt werden konnten zB, durch Schreibfehler.
DANKE
Helena
Gruss aus CH

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Statt Filtern und kopieren, filtern und umbewegen
18.03.2016 10:15:19
ChrisL
Hi Helena
Sub Copy_x()
Dim i As Long, suchCol As Long
Const SearchChar As String = "SIC 4835"
Dim srcWks As Worksheet, tarWks As Worksheet
'Tabellennamen anpassen
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("export")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Tabelle1")
'8 = Spalte H
suchCol = 2
'strSearch = was gesucht werden soll
'strSearch = "SIC 4835"
With srcWks
For i = 1 To .Cells(Rows.Count, suchCol).End(xlUp).Row
If .Cells(i, suchCol).Text Like "*" & SearchChar & "*" Then
.Rows(i).Copy Destination:=tarWks.Cells(i, 1)
.Rows(i).ClearContents 'optional
End If
Next i
End With
End Sub

cu
Chris

Anzeige
AW: Statt Filtern und kopieren, filtern und umbewegen
18.03.2016 12:22:49
Helena
VIELEN DANK ist wunderbar
Helena
Gruss aus CH

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige