Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Suchergebnisse in andere Datei kopieren

Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 09:27:45
Anita
Hallo zusammen,
folgendes Problem:
In Tabelle A sind Daten von Spalte A-Q hinterlegt. Suchkriterium steht in der letzten Spalte Q.
1. In Tabelle B (selbe Mappe) soll das Suchkriterium in Spalte P eingegeben werden und ALLE Ergebnisse aus Tabelle A in Tabelle B Spalte A-P kopiert werden, inklusive Formatierung.
2. In einer anderen Arbeitsmappe soll das Suchkriterium in Spalte Q eingebenen werden und auch hier ALLE Ergebnisse aus Tabelle A Spalte A-Q kopiert werden, ebenfalls inklusive Formatierung
In beiden Fällen dürfen evtl. nachfolgende Zeilen nicht überschrieben werden!
Vielen Dank für jeden Hinweis!!
Anita

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 09:36:01
AndreasS
Morgen,
hier mal ein Bsp. für 1.:

Sub Wenn_Fund_dann_Kopie()
Dim iRow%
Dim i
i = Range("Q2")
With Worksheets("Tabelle1").Range("A:Q") 'hier Bereich anpassen
Set c = .Find(i, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Set c = .FindNext(c)
c.EntireRow.Select
With Sheets("Tabelle2")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("Tabelle2").Rows(iRow)
End With
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub

Entspricht das dem was du suchst?
Gruß Andreas
Anzeige
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 10:30:04
Anita
Hi Andreas,
ich habe die Namen der Tabellen angepasst und den Code in Tabelle 2 gesetzt. Es tut sich aber gar nichts. Keine Fehlermeldung und kein Ergebnis??
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 10:33:20
AndreasS
Hi,
hast du den Code nicht in ein Modul kopiert?
Steht in Zelle Q2 dein Suchwert? Oder in welcher Zelle?
Nenn mir doch mal deine Tabellennamen, dann kann ich dir es anpassen...
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 11:00:30
Anita
Hi Andreas,
ich habe in Tabelle 2 den VBA-Editor geöffnet und den Code reinkopiert?! Tabelle1 heißt "Daten" und Tabelle2 "Kopien". Suchwort steht in Tabelle "Daten" in Q2 und folgenden Zeilen. War da was Falsch??
Grüsse
Anita
Anzeige
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 11:04:25
AndreasS
Hi Anita,
Alt+F11. VBA-Editor öffnet sich. Jetzt Einfügen -> Modul. Da den Code reinkopieren. Nicht auf das Tabellenblatt.
Dann einfach Tabelle1 durch "Daten" und Tabelle2 durch "Kopien" ersetzten.
Ist der Suchstring (Stichwort) immer der selbe?
Gruß Andreas
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 12:04:57
Anita
Hi Andreas,
hatte ich alles gemacht. Ich schick mal die Mappe mit. Irgendwo muss ja der Fehler sein.
https://www.herber.de/bbs/user/3905.xls
Danke Dir,
Anita
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 12:53:24
AndreasS
Hi,
du hattest kein Modul angelegt...
Habe ich jetzt gemacht. Was soll jetzt gesucht und kopiert werden?
Ein Suchstring oder was?
Anzeige
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 13:05:35
Anita
Hi Andreas,
gesucht werden soll nach den Einträgen in Tabelle Daten Spalte Q (im Beispiel 111, 222, 333). Tatsächlich kann es sich um Zahlen und Texteinträge handeln.
In die Tabelle Kopien sollen dann alle Zeilen von Spalte A-P aus Tabelle Daten kopiert werden, die in Spalte Q den Suchbegriff haben.
Viele Grüsse
Anita
AW: Mehrere Suchergebnisse in andere Datei kopieren
24.02.2004 15:08:27
Anita
Hi Andreas,
das ist es leider nicht. Im Prinzip sollte es so funktionieren wie beim SVerweis. Der Eintrag in Tabelle "Kopien" Spalte P wird verglichen mit Tabelle "Daten" Spalte Q und bei Übereinstimmungen sollen alle entsprechenden Zeilen aus Tabelle "Daten" Spalte A-P in Tabelle "Kopien" eingefügt werden.
Ich stelle die Frage morgen nochmal ins Forum, ich danke Dir auf jeden Fall für Deine Mühe!!!
Viele Grüsse
Anita
Anzeige
AW: Mehrere Suchergebnisse in andere Datei kopieren
25.02.2004 13:19:46
AndreasS
Hi,
bist du noch an der Lösung interessiert?
Gruß Andreas

309 Forumthreads zu ähnlichen Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
Hyperlink auf Sheet in anderer Datei
Christoph

Hallo zusammen, mal wieder ein kleines Problem:
Ich lese aus einer Zelle den Text Karteikartenneu\A.xls#'Nachname Vorname Ort'!A4 ein.
Ziel des unten stehenden Codes ist es, im Unterverzeichnis Karteikartenneu die Datei A.xls zu öffnen und das Sheet Nachname Vorname Ort im Vordergrund z...
21.10.2008 08:04:00
Thread-ID: 1017836
6 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Makro in eine/mehrere andere Dateien transportiere
Britta

Hallo zusammen,
ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
11.02.2009 16:52:00
Thread-ID: 1049686
9 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
5
2
1
4
3
6
8
1
1
13
7
1
6
5
10
2
2
1
7
8
4
5
5