Das Archiv des Excel-Forums

Suchen und Kopieren mit Schleife

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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

Bild

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


Bild

Betrifft: AW: Suchen und Kopieren mit Schleife
von: Gerd L

Geschrieben am: 18.07.2008 21:58:18
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

Bild

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,


Bild

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

Bild

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

Bild

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

Bild

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

Bild

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

Bild

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

 Bild

Excel-Beispiele zum Thema "Suchen und Kopieren mit Schleife"

Zellinhalt suchen und Zelle auswählen download Suchbegriff über mehrere Tabellenblätter suchen. download
Suchen und weitersuchen download Zahl +/- 1 suchen download
Ein Zeichen in einer Formel suchen download Datum suchen und Wert eintragen download
Wert in Tabelle suchen und in UserForm ausgeben download Letzte Zelle mit Inhalt suchen download
Textdatei nach Begriff durchsuchen und Fundzeile importieren download Wert in Array suchen, ohne jedes Datenfeld abzufragen download
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download Suchen von Nachnamen in Zeichenfolgen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download Datum suchen und Adresse der Fundzelle ausgeben download
Begriffe in zweiter Tabelle suchen und Werte anfügen download Text aus UserForm-TextBox in Tabelle suchen download
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download Suchbegriff in vorhergehenden Tabellen suchen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Neueste Textdatei eines Verzeichnisses suchen und umbenennen download
Artikelnummern suchen und jeweils letzte Fundstelle listen download Wörter eines Satzes in Indizliste suchen download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Zellwert nach Doppelklick in Tabelle suchen download
Suchen in 2. Tabelle und Ersetzen der Quelldaten download Wert in Tabelle 2 suchen und Fundstellen übertragen download
Suchbegriff in Tabelle suchen und Fundzeilen auswählen download Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Artikelnummer über InputBox suchen und eintragen download
Anwendung auf Fesplatte suchen download Tabelle nach ComboBox-Auswahl durchsuchen download
Werte suchen, eintragen und löschen download Zeile 1 nach Wert der aktiven Zelle durchsuchen download
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download Wert in zweiter Tabelle suchen und als Kommentar ausgeben download
Wert in externer Mappe suchen und mit Format übernehmen. download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Grafikdateien suchen download
Suchen der Nachbarzelle der Zelle mit dem Maximalwert download Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Zahl suchen und an den Fundstellen Zeile einfügen download
Name und Vorname suchen, Werte und Fundstellen importieren download Begriff in der ersten Spalte einer ListBox suchen download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Bild in zweites Blatt an gleiche Position kopieren download
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download
Bildergruppe in anderes Blatt kopieren download Bei Eingabe Formel in der Nebenspalte nach unten kopieren download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download
In einer Schleife auf Elemente einer UserForm zugreifen download CheckBoxes in UserForms in eine Schleife einbinden download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download UserForm-Optionsfelder über eine Schleife zurücksetzen download