Das Archiv des Excel-Forums
Suchen und Kopieren mit Schleife
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Suchen und Kopieren mit Schleife
von: Rosenwasser
Geschrieben am: 18.07.2008 20:51:39
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
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Uduuh
Geschrieben am: 18.07.2008 21:48:45
Hallo,
wieso Schleife?
Eine einfache Index/Vergleich-Formel reicht doch.
Gruß aus’m Pott
Udo
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Gerd L
Geschrieben am: 18.07.2008 21:58:18
Hallo,
so?
R1 | A |
1 | |
2 | |
3 | CWP Procces - Ingenieur |
4 | |
5 | 130 |
Formeln der Tabelle |
Zelle | Formel | 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
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Rosenwasser
Geschrieben am: 18.07.2008 23:43:09
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,
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Gerd L
Geschrieben am: 19.07.2008 10:53:53
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
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Rosenwasser
Geschrieben am: 19.07.2008 11:48:09
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
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Gerd L
Geschrieben am: 19.07.2008 12:33:55
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
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Rosenwasser
Geschrieben am: 19.07.2008 12:38:14
Oh, vergessen,
Diesen Knopf 'CommandButton1' steht in einen Formular mit den Name 'UserForm1'
Gruß , Benny
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Gerd L
Geschrieben am: 19.07.2008 13:03:57
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
Betrifft: AW: Suchen und Kopieren mit Schleife
von: Rosenwasser
Geschrieben am: 19.07.2008 14:10:33
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
Excel-Beispiele zum Thema "Suchen und Kopieren mit Schleife"
Zellinhalt suchen und Zelle auswählen |
 |
Suchbegriff über mehrere Tabellenblätter suchen. |
 |
Suchen und weitersuchen |
 |
Zahl +/- 1 suchen |
 |
Ein Zeichen in einer Formel suchen |
 |
Datum suchen und Wert eintragen |
 |
Wert in Tabelle suchen und in UserForm ausgeben |
 |
Letzte Zelle mit Inhalt suchen |
 |
Textdatei nach Begriff durchsuchen und Fundzeile importieren |
 |
Wert in Array suchen, ohne jedes Datenfeld abzufragen |
 |
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle |
 |
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren |
 |
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen |
 |
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden |
 |
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen |
 |
Suchen von Nachnamen in Zeichenfolgen |
 |
Dateien in einem Verzeichnis und Unterverzeichnissen suchen |
 |
Datum suchen und Adresse der Fundzelle ausgeben |
 |
Begriffe in zweiter Tabelle suchen und Werte anfügen |
 |
Text aus UserForm-TextBox in Tabelle suchen |
 |
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen |
 |
Suchbegriff in vorhergehenden Tabellen suchen |
 |
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren |
 |
Neueste Textdatei eines Verzeichnisses suchen und umbenennen |
 |
Artikelnummern suchen und jeweils letzte Fundstelle listen |
 |
Wörter eines Satzes in Indizliste suchen |
 |
Wert aus UserForm-TextBox suchen und Fundstelle kopieren |
 |
Zellwert nach Doppelklick in Tabelle suchen |
 |
Suchen in 2. Tabelle und Ersetzen der Quelldaten |
 |
Wert in Tabelle 2 suchen und Fundstellen übertragen |
 |
Suchbegriff in Tabelle suchen und Fundzeilen auswählen |
 |
Suchbegriffe aus Tabelle im Excel-WebArchiv suchen |
 |
Wert aus ComboBox in TextBox, dann in Tabelle suchen |
 |
Artikelnummer über InputBox suchen und eintragen |
 |
Anwendung auf Fesplatte suchen |
 |
Tabelle nach ComboBox-Auswahl durchsuchen |
 |
Werte suchen, eintragen und löschen |
 |
Zeile 1 nach Wert der aktiven Zelle durchsuchen |
 |
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben |
 |
Wert in zweiter Tabelle suchen und als Kommentar ausgeben |
 |
Wert in externer Mappe suchen und mit Format übernehmen. |
 |
Artikelnummern nach Kriterien suchen und Datensätze kopieren |
 |
Wert in ComboBox einlesen, suchen, editieren, ausgeben |
 |
Grafikdateien suchen |
 |
Suchen der Nachbarzelle der Zelle mit dem Maximalwert |
 |
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben |
 |
Begriff suchen und Fundzeilen in anderes Blatt kopieren |
 |
Zahl suchen und an den Fundstellen Zeile einfügen |
 |
Name und Vorname suchen, Werte und Fundstellen importieren |
 |
Begriff in der ersten Spalte einer ListBox suchen |
 |
Blätter in andere Arbeitsmappen kopieren |
 |
Module von Mappe zu Mappe kopieren |
 |
Arbeitsblatt 40 mal kopieren |
 |
Schriftgröße beim Kopieren verdoppeln |
 |
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen |
 |
Tabellencode nach Kopieren des Blattes löschen |
 |
Arbeitsmappe blitzschnell kopieren |
 |
VBE-Namen der Blattmodule beim Kopieren festlegen |
 |
Blattinhalt von einer zur anderen Arbeitsmappe kopieren |
 |
Formel bis zur letzten Zeile der Nebenspalte kopieren |
 |
Datei kopieren, wenn noch nicht vorhanden |
 |
Zeilenweise von Blatt zu Blatt kopieren |
 |
Erste Druckseite in eine neue Arbeitsmappe kopieren |
 |
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren |
 |
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren |
 |
Bei Eintrag in Spalte A aktuelle Zeile kopieren |
 |
Filtern und Kopieren |
 |
Zeile mit aktiver Zelle in anderes Blatt kopieren |
 |
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren |
 |
Einen von einer Schlüsselziffer abhängigen Bereich kopieren |
 |
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren |
 |
Über InputBox festzulegenden Bereich kopieren |
 |
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen |
 |
Tabellenblatt kopieren und dreistellig fortlaufend numerieren |
 |
Jede zweite Zelle kopieren |
 |
Gruppe von Optionsfeldern kopieren und Makro zuweisen |
 |
Nicht zusammenhängenden Bereich in nächste Zeile kopieren |
 |
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren |
 |
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren |
 |
Werte prüfen und kopieren |
 |
Bei Eintrag von X Zeile in andere Tabelle kopieren |
 |
Daten kopieren wenn kein Datum oder Datum > Heute |
 |
Blattinhalte dreier Blätter in neues Blatt kopieren |
 |
Kopieren und Umbenennen eines Blattes |
 |
Nur Zeilen mit bestimmtem Inhalt kopieren |
 |
Bild in zweites Blatt an gleiche Position kopieren |
 |
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren |
 |
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren |
 |
Bildergruppe in anderes Blatt kopieren |
 |
Bei Eingabe Formel in der Nebenspalte nach unten kopieren |
 |
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen |
 |
Aktive Zeile kopieren und löschen |
 |
Datensätze, die öfter als 3 mal vorkommen, kopieren |
 |
Den jeweils darüberliegenden Wert in Leerzellen kopieren |
 |
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren |
 |
Dateien listen und Blätter in neue Arbeitsmappe kopieren |
 |
In einer Schleife auf Elemente einer UserForm zugreifen |
 |
CheckBoxes in UserForms in eine Schleife einbinden |
 |
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen |
 |
UserForm-Optionsfelder über eine Schleife zurücksetzen |
 |