Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und ergebnisse in tabelle2 kopieren

Suchen und ergebnisse in tabelle2 kopieren
05.03.2021 11:46:09
oraculix
wie kann ich in tabelle1 alle spalten durchsuchen und alle ergebnisse in tabelle 2 kopieren.
beispiel: suche film American Gangster
wenn ich nicht weis wie der gesamte film name ist und gangster eingebe findet er nichts.
hat jemand zufällig eine idee wie ich das lösen kann bin ein anfänger. auch groß und klein schreibung sollte bei der such eingabe egal sein.

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und ergebnisse in tabelle2 kopieren
05.03.2021 11:58:34
MRUTOR
Hallo,
zeig mal den code, den du bisher hast.
Gruss Tor

AW: Suchen und ergebnisse in tabelle2 kopieren
05.03.2021 12:18:35
oraculix
hallo danke erstmal hoffe du findest den fehler das auch alle treffer findet und kopiert. 
Sub FindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer
Dim sWord As String
sWord = InputBox( _
prompt:="Suchbegriff:", _
Default:="Filmname")
If sWord = "" Then Exit Sub
iRowS = 2
iRowT = 2
With Worksheets("Tabelle2")
Do Until IsEmpty(Cells(iRowS, 1))
If Cells(iRowS, 1) = sWord Then
Rows(iRowS).Copy .Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
.Columns.AutoFit
.Select
End With
End Sub


Anzeige
AW: Was soll der Code ohne die Tabelle?
05.03.2021 12:33:30
JoWE

AW: Was soll der Code ohne die Tabelle?
05.03.2021 12:35:30
oraculix
da ich anfänger bin habe ich den code in tabelle 1 im editor reinkopiert. wie das genau geht weis ich nicht

AW: Was soll der Code ohne die Tabelle?
05.03.2021 12:56:48
MRUTOR
Hallo nochmal,
ist glaub ich wirklich besser, du laedst die Datei mal hoch. Kannst sie ja abspecken mit ein paar Beispieldaten.
Gruss Tor

AW: Was soll der Code ohne die Tabelle?
05.03.2021 12:59:37
MRUTOR
Aber du kannst auch schon mal versuchen, diese Zeile zu aendern: 
If Cells(iRowS, 1) = sWord Then

zu 
If Cells(iRowS, 1) Like sWord Then


AW: Was soll der Code ohne die Tabelle?
05.03.2021 13:24:48
oraculix
also es funktioniert wie vorher wenn ich den gesamten namen des films eingebe kopiert er mir den treffer
in tabelle 2 .
beispiel: wenn ich American eingebe alles leer
wenn ich American Sniper eingebe kopiert er mir nur American Sniper in die 2 zeile.
was eigentlich ok ist. aber
es gibt noch mindestens 10 filme wo American vorkommt die sollte er auch in tabelle 2 ab der 2zeile
die restlichen American Pie und American Psycho usw.
kopieren.

Anzeige
AW: Was soll der Code ohne die Tabelle?
05.03.2021 13:33:29
MRUTOR
Sorry,
dann probiers nochmal so: 
If Cells(iRowS, 1) Like "*" & sWord & "*" Then


AW: Was soll der Code ohne die Tabelle?
05.03.2021 13:49:08
MRUTOR
achso Gross/Klein Schreibung vergessen: 
If UCase(Cells(iRowS, 1)) Like "*" & UCase(sWord) & "*" Then
Gruss Tor

AW: Was soll der Code ohne die Tabelle?
05.03.2021 14:11:23
oraculix
Fehler beim kompilieren sagt excel end if ohne block? nach dem ich den neuen code eingegeben habe. 
Sub FindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer
Dim sWord As String
sWord = InputBox( _
prompt:="Suchbegriff:", _
Default:="Filmname")
If Cells(iRowS, 1) Like sWord Then
If sWord = "" Then Exit Sub
iRowS = 2
iRowT = 2
If UCase(Cells(iRowS, 1)) Like "*" & UCase(sWord) & "*" Then
With Worksheets("Tabelle2")
Do Until IsEmpty(Cells(iRowS, 1))
Rows(iRowS).Copy .Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
.Columns.AutoFit
.Select
End With
End Sub
hier noch die mappe
https://www.herber.de/bbs/user/144469.xlsm

Anzeige
AW: Was soll der Code ohne die Tabelle?
05.03.2021 14:22:29
MRUTOR
Du hast die Zeile an die falsche Stelle gesetzt. Du solltest das alte if mit dem neuen ersetzen.
Hier der komplette Code: 

Sub FindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer
Dim sWord As String
sWord = InputBox( _
prompt:="Suchbegriff:", _
Default:="Filmname")
If sWord = "" Then Exit Sub
iRowS = 2
iRowT = 2
With Worksheets("Tabelle2")
Do Until IsEmpty(Cells(iRowS, 1))
If UCase(Cells(iRowS, 1)) Like "*" & UCase(sWord) & "*" Then
Rows(iRowS).Copy .Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
.Columns.AutoFit
.Select
End With
End Sub

Habe es probiert. Laeuft.
Gruss Tor

Anzeige
AW: Was soll der Code ohne die Tabelle?
05.03.2021 14:37:00
oraculix
super du bist ein echter profi vielen dank funtioniert jetz.
aber wenn ich ne neu abfrage mache sollte die tabelle 2 vorher noch gelöscht werden
muss ich da einen extra code aufzeichnen oder hast du auch was das ich gleich in deinen genialen code reinkopieren kann?
danke

AW: Was soll der Code ohne die Tabelle?
08.03.2021 05:52:53
MRUTOR
Hallo,
da du ja in Zeile 2 anfaengst, nehme ich an, dass du Ueberschriften hast, die natuerlich nicht geloescht werden sollen. Probiers mal so: 

Sub FindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer, iLastR As Integer, iLastC As Integer
Dim sWord As String
sWord = InputBox(prompt:="Suchbegriff:", Default:="Filmname")
If sWord = "" Then Exit Sub
iRowS = 2
iRowT = 2
With Worksheets("Tabelle2")
iLastR = .Cells(Rows.Count, 1).End(xlUp).Row                'feststellen der letzten  _
benutzten Zeile
iLastC = .Cells(2, Columns.Count).End(xlToLeft).Column      'feststellen der letzten  _
benutzten Spalte
.Range(.Cells(2, 1), .Cells(iLastR, iLastC)).ClearContents  'leeren der Zellen im  _
Bereich A2 bis letzte Zeile letzte Spalte
Do Until IsEmpty(Cells(iRowS, 1))
If UCase(Cells(iRowS, 1)) Like "*" & UCase(sWord) & "*" Then
Rows(iRowS).Copy .Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
.Columns.AutoFit
.Select
End With
End Sub

Gruss Tor
Anzeige

300 Forumthreads zu ähnlichen Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zahlenfolge suchen und in neue Tabelle kopieren
Günter

Hallo,
ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
04.12.2008 00:39:00
Thread-ID: 1030003
4 Beiträge
Datensätze suchen und löschen / Kopieren
Holger

Hi,
ich möchte gerne folgendes per Makro erledigen:
Ich habe eine Exceltabelle "IMPORT", in der gibt es ziemlich viele Datensätze (geht von A bis M und runter ab Zeile10 bis je nachdem bis 500 oder 1000)
In der Tabelle gibt es Datensätze, die würde ich gerne automatisch (oder bess...
31.01.2009 10:51:00
Thread-ID: 1045602
6 Beiträge
Anzeige
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Text durchsuchen und Teile herauskopieren
Andy

Schönen guten Abend!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere F...
17.03.2009 20:40:05
Thread-ID: 1061211
3 Beiträge
Text durchsuchen und Ergebnisse herauskopieren
Andy

Schönen guten Tag!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere Fel...
18.03.2009 11:09:52
Thread-ID: 1061327
2 Beiträge
Werte In Tab 2 suchen und nach Tab 1 kopieren
Peter_weber

Liebe Experten,
versuche gerade VBA zu erlernen, um bestimmte wiederkehrende Abfragen schneller durchzuführen.
Wie könnte ein VBA Makro für folgendes Problem aussehen. Als Anfänger bin hier hoffnungslos überfordert.
Also
- ich habe eine Abfragemaske im Worksheet "Werte-Eingeben...
15.04.2009 09:50:31
Thread-ID: 1068812
5 Beiträge
Formel für Zahlen suchen und kopieren
Song

Hallo zusammen,
wäre super wenn mir hier jemand helfen kann. Suche eine Formel, die alle 6stelligen Zahlen sucht und dann in ein neues Tabellenblatt kopiert.
Hoffe es kann mir jemand helfen. Ist nämlich recht wichtig für mich.
Danke!
15.05.2009 11:53:40
Thread-ID: 1075397
13 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
8
4
3
5
7
8
2
1
4
12
2
3
1
4
2
2
2
4
3
5
7
4
2
1
5