Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle durchsuchen und Werte kopieren

Tabelle durchsuchen und Werte kopieren
08.03.2007 09:31:31
UweL.
Hallo,
habe mal wieder ein Problem welches ich lösen möchte...
Ich habe eine Tabel mit mehreren Spalten und Zeilen.
Ich möchte jetzt den Bereich von A1 bis G500 durchsuchen.
Wenn ich jetzt den gesuchten Wert finde. Dann soll der Wert rchts davon in eine zweite Tabelle kopiert werden. Der nächste Gesuchte Wert wird dann in der zweiten Tabelle in der Spalte daneben eingefügt usw.
Ich hoffe es ist Verständlich. Ich würde das Makro dann um die Gesuchten Begriffe jeweils erweitern.
Sagen wir einfach für den anfang ich suche Metall und Kupfer und möchte die Werte rechts davon in die nächste Tabelle kopieren.
Viele Dank für alle Hilfen im vorraus...
Gruß
Uwe L.

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle durchsuchen und Werte kopieren
09.03.2007 05:42:57
fcs
Hallo Uwe,
hier zwei Varianten.
In der 1. Variante kannst du die Suchbegriffe in einer Schleife nacheinander in eine Textbox eingeben.
In der 2. Variante sind die Suchbegriffe fest vorgegeben. Weitere Suchbegriffe kannst du in der Zeile
Suchen = Array("Metall", "Kupfer")
ergänzen
Gruss
Franz 
Sub SuchenVar1()
Dim wks1 As Worksheet, wks2 As Worksheet, Zelle As Range, Suchen
Dim Zeile As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Zeile = 2 'Einfügezeile in Tabelle 2
wks2.Rows(Zeile).ClearContents 'alte Inhalte in Einfügezeile löschen
Do
Suchen = InputBox("Suchbegriff?", "Suche was in Tabelle 1")
If Suchen = "" Then GoTo naechste
Set Zelle = wks1.Range("A1:G500").Find(What:=Suchen, LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox ("Suchbegriff '" & Suchen & "' nicht gefunden")
Else
With wks2
If IsEmpty(.Cells(Zeile, 1)) Then
.Cells(Zeile, 1) = Zelle.Offset(0, 1).Value
Else
.Cells(Zeile, .Columns.Count).End(xlToLeft).Offset(0, 1) = Zelle.Offset(0, 1).Value
End If
End With
End If
naechste:
Loop Until MsgBox("Weiter suchen ?", vbYesNo + vbQuestion, "Suche was in Tabelle 1") = vbNo
End Sub
Sub SuchenVar2()
Dim wks1 As Worksheet, wks2 As Worksheet, Zelle As Range, Suchen, i As Integer
Dim Zeile As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Suchen = Array("Metall", "Kupfer")
Zeile = 2 'Einfügezeile in Tabelle 2
wks2.Rows(Zeile).ClearContents 'alte Inhalte in Einfügezeile löschen
For i = LBound(Suchen) To UBound(Suchen)
Set Zelle = wks1.Range("A1:G500").Find(What:=Suchen(i), LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox ("Suchbegriff '" & Suchen(i) & "' nicht gefunden")
Else
With wks2
If IsEmpty(.Cells(Zeile, 1)) Then
.Cells(Zeile, 1) = Zelle.Offset(0, 1).Value
Else
.Cells(Zeile, .Columns.Count).End(xlToLeft).Offset(0, 1) = Zelle.Offset(0, 1).Value
End If
End With
End If
Next
End Sub

Anzeige
AW: Tabelle durchsuchen und Werte kopieren
09.03.2007 06:47:06
Uwe
Hallo Franz,
vielen Dank für deine beiden Varianten.
Habe beide ausprobiert und beides Funktioniert so wie ich es gerne hätte.
Im Moment favoritisiere ich die zweite Variante. Aber ich habe auch eine Anwendung in
der ich die erste Form gut einsetzen kann.
Also nochmals vielen Dank für deine Hilfe...
Gruß
Uwe

303 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

TextBox 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