Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen suchen und in anderes workbook kopieren

Zellen suchen und in anderes workbook kopieren
19.12.2003 12:45:32
Tine
Hallo liebe Forum-Mitglieder!
Ich habe folgendes Problem und weiß nicht mehr weiter:

Ich möchte 3 verschiedene Workbooks nach Zellinhalten durchsuchen und von jedem gefundenen Suchbegriff die gesamte Reihe in ein anderes workbook (Suchergebnis)kopieren.
Suche schon seit einiger Zeit, habe aber nirgens was passendes gefunden.
Hat vielleicht jemand eine Lösung für mich parat?
Wäre sehr dankbar.

Liebe Grüße Tine

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen suchen und in anderes workbook kopieren
20.12.2003 02:12:17
Christoph Dümmen
Hallo Tine,

hoffe, das dies hilft


Sub Zusammenstellen()
Dim wDest As Workbook
Dim shDest As Worksheet
Dim wSource As Workbook
Dim shSource As Worksheet
Dim rSource As Range
Dim vSource As Variant
Dim vCriteria As Variant
Dim i%, j%, k%
k = 1
Set wDest = Workbooks.Add
Set shDest = wDest.Worksheets(1)
vSource = Array("Datei1.xls", "Datei2.xls", "Datei3.xls")
vCriteria = Array("Suche", "dies", "und", "das")
For i = 0 To UBound(vSource)
Set wSource = Workbooks(vSource(i))
For Each shSource In wSource.Worksheets
For Each rSource In shSource.UsedRange.Cells
For j = 0 To UBound(vCriteria)
If rSource = vCriteria(j) Then
rSource.EntireRow.Copy
shDest.Cells(k, 1).EntireRow.PasteSpecial
k = k + 1
End If
Next
Next
Next
Next
End Sub

Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige