Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Kopieren mit Schleife

Forumthread: Suchen und Kopieren mit Schleife

Suchen und Kopieren mit Schleife
18.07.2008 20:51:00
Rosenwasser
Hallo, folgendes Problem:
Wie kann ich den wert in Zelle D3 von Tabelle "K1" suchen in spalte D von Tabelle "Basic data"
und danach die A und B Zelle kopieren nach spalte A von Tabelle "R1"
Siehe Beispiel:
https://www.herber.de/bbs/user/53958.xls
Vielen Dank

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Kopieren mit Schleife
18.07.2008 21:48:45
Uduuh
Hallo,
wieso Schleife?
Eine einfache Index/Vergleich-Formel reicht doch.
Gruß aus’m Pott
Udo

AW: Suchen und Kopieren mit Schleife
18.07.2008 21:58:00
Gerd
Hallo,
so?
R1

 A
1 
2 
3CWP Procces - Ingenieur
4 
5130

Formeln der Tabelle
ZelleFormel
A3=INDIREKT("'Basic Data'!A"&VERGLEICH('K1'!D3;'Basic Data'!D3:D14;0)+3)
A5=INDIREKT("'Basic Data'!B"&VERGLEICH('K1'!D3;'Basic Data'!D3:D14;0)+3)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Gerd

Anzeige
AW: Suchen und Kopieren mit Schleife
18.07.2008 23:43:00
Rosenwasser
Hallo,
Danke für dein Antwort, so wäre es natürlich machbar.
Aber die Zellen A3 und A5 werden ab und zu auch mit hand überschrieben wodurch die Formel dann weg sind.
Wäre es auch möglich über VBA?
Ich will es gerne über einen Makro laufen lassen.
Gruess,

AW: Suchen und Kopieren mit Schleife
19.07.2008 10:53:00
Gerd
Hallo Rosenwasser!
'Modul Tabellenblatt K1
Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Address "$D$3" Then Exit Sub With Worksheets("Basic Data") x = Application.Match(Target.Value, .Range(.Cells(3, 4), .Cells(3, 4).End(xlDown))) If IsNumeric(x) Then Worksheets("R1").Cells(3, 1).Value = .Cells(x + 2, 1).Value Worksheets("R1").Cells(5, 1).Value = .Cells(x + 2, 2).Value End If End With End Sub


Gruß Gerd

Anzeige
AW: Suchen und Kopieren mit Schleife
19.07.2008 11:48:09
Rosenwasser
Hi Gerd,
Danke !! Es funktioniert.
Noch eine letzte frage:
Wie seht den Code aus wenn ich den suchen/vergleichen und kopieren über einen Knopf laufen lassen will?
Knopf drucken, schauen was in Zelle D3 von 'K1' steht, vergleichen in spalte D von 'Basic Data' und die bestimmte Zellen kopieren nach Blatt 'R1'
Vielen Dank

Anzeige
AW: Suchen und Kopieren mit Schleife
19.07.2008 12:33:55
Gerd
Hi!
kannst Du bitte noch mitteilen, an welche Sorte "Knopf" Du denkst
(aus Formular, aus Steuerelemente-Toolbox) u. in welchem Sheet dieser platziert werden soll.
Gruß Gerd

AW: Suchen und Kopieren mit Schleife
19.07.2008 12:38:00
Rosenwasser
Oh, vergessen,
Diesen Knopf 'CommandButton1' steht in einen Formular mit den Name 'UserForm1'
Gruß , Benny

Anzeige
AW: Suchen und Kopieren mit Schleife
19.07.2008 13:03:00
Gerd
Hi Benny,
probier mal.
'Modul der UserForm1

Private Sub CommandButton1_Click()
Dim x
With ThisWorkbook.Worksheets("Basic Data")
x = Application.Match(ThisWorkbook.Worksheets("K1").Cells(3, 4).Value, .Range(.Cells(3, 4),  _
_
_
.Cells(3, 4).End(xlDown)))
If IsNumeric(x) Then
ThisWorkbook.Worksheets("R1").Cells(3, 1).Value = .Cells(x + 2, 1).Value
ThisWorkbook.Worksheets("R1").Cells(5, 1).Value = .Cells(x + 2, 2).Value
End If
End With
End Sub


Gruß Gerd

Anzeige
AW: Suchen und Kopieren mit Schleife
19.07.2008 14:10:33
Rosenwasser
Hi Gerd,
Es hat wunderbar geklappt mit deine Code !!!
Euh, vielleicht noch ein Kleinigkeit für dich...
...
In die beigefügte Datei seht man 4 Bereichen. (bereik1, bereik2, bereik3 und bereik4)
Wenn in Zeilen von 3 bis 20 in Spalte C nichts steht, soll diese Zeile komplett gelöscht werden.
Ich habe versucht mit unterstehende Code, nur ersten Bereich funktioniert es, die andere nicht...

Private Sub Loeschen()
Dim i As Long
With Range("bereik1")
For i = 20 To 2 Step -1
If Cells(i, 3) = 0 Then Rows(i).Delete
Next i
End With
With Range("bereik2")
For i = 20 To 2 Step -1
If Cells(i, 3) = 0 Then Rows(i).Delete
Next i
End With
With Range("bereik4")
For i = 20 To 2 Step -1
If Cells(i, 3) = 0 Then Rows(i).Delete
Next i
End With
With Range("bereik4")
For i = 20 To 2 Step -1
If Cells(i, 3) = 0 Then Rows(i).Delete
Next i
End With
End Sub


Beispiel: ... https://www.herber.de/bbs/user/53972.xls

Anzeige
;

Forumthreads zu verwandten 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
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
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
Doppelte Inhalte suchen und kopieren
Joachim

HI,
ich habe eine Tabelle mit verschiedenen Einträgen in Spalte B. Diese habe ich seither farblich markiert (Spalte B) :
Dim lngRow As Long
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
Dim I As Integer, xx As Integer
Dim szCompare As String
For I = 5 To lngRow
szCom...
08.02.2009 13:07:42
Thread-ID: 1048280
8 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
Anzeige
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
Bereich suchen und kopieren
Lars

Hallo Leute,
ich habe eine kleines Problem beim Kopieren von Zellbereichen und möchte dieses gerne via Makro lösen.
In meiner Datei (siehe Beispiel) stehen in den Zellen A bis E Daten welche ich gerne runterkopieren möchte. Allderdings sollte das Makro den nächsten Eintrag erkennen und...
23.06.2009 17:10:37
Thread-ID: 1083877
3 Beiträge
Anzeige
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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