Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten suchen / Zeile kopieren

Daten suchen / Zeile kopieren
29.07.2003 07:32:06
Erich M.
Hallo zusammen,
ich bin seit einiger Zeit auf der Suche nach einem Code, bei dem es darum geht bestimmte Werte zu finden und dann die komplette Zeile der gefundenen Werte zu kopieren.
Mittlerweile habe ich einige Codes aus dem Forum o.ä. kopiert und versucht anzupassen - alles ohne den gewünschten Erfolg. Grundsätzlich könnte das Problem auch mit SVERWEIS o.ä. gelöst werden - aber aufgrund der Datenmenge (u.U. 2 - 3.000 Zeilen) kaum praktikabel.
Ich versuche mit drei Tabellen mein Problem zu schildern:
Tabelle Bestand: hier sind alle Kundendaten enthalten (Spalten A-Z, angezeigt bis C)
Tabelle Auswahl: hier sind ausgewählte Kunden-Nr. enthalten für die zugehörige Daten aus dem Bestand gesucht werden (Spalten A - Z)
Tabelle Ergebnis: hier sollen die Kunden mit den Daten der Spalten A - Z eingetragen werden:

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten suchen / Zeile kopieren
29.07.2003 08:41:44
guenter
Hallo
von Hans seiner cd

Sub SuchenFinden()
Dim wksCriteria As Worksheet, WksData As Worksheet
Dim wksTrue As Worksheet, wksFalse As Worksheet
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
Set wksCriteria = Worksheets("Kriterien")
Set WksData = Worksheets("Daten")
Set wksTrue = Worksheets("Gefunden")
Set wksFalse = Worksheets("NichtGefunden")
iRow = 2
Do Until IsEmpty(wksCriteria.Cells(iRow, 1))
var = Application.Match( _
wksCriteria.Cells(iRow, 1), WksData.Columns(1), 0)
If IsError(var) Then
iRowL = wksFalse.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksFalse.Rows(iRowL).Value = wksCriteria.Rows(iRow).Value
Else
iRowL = wksTrue.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTrue.Rows(iRowL).Value = WksData.Rows(iRow).Value
End If
iRow = iRow + 1
Loop
End Sub

mfg
http://www.guenters-portal.de

Anzeige
AW: Daten suchen / Zeile kopieren
29.07.2003 11:52:03
Erich M.
Hallo Guenter,
die Lösung ist ja genial.
Da ich die CD von Hans ebenfalls habe würde mich interessieren unter welcher Nr. ich die Lösung finde.
Auf alle Fälle allerbesten Dank - spart mir eine menge Arbeit!!!
mfg
Erich

AW: Daten suchen / Zeile kopieren
29.07.2003 12:21:14
guenter
Hallo
161301
mfg

DANKE !! o.T. AW: Daten suchen / Zeile kopieren
29.07.2003 17:19:12
Erich M.
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige