Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche nach Daten in Spalten

Suche nach Daten in Spalten
Tille
Hallo zusammen,
ich möchte gerne eine Verknüpfung von einer Tabelle auf eine andere Tabelle schreiben, die bestimmte Werte aus einer Spalte vergleicht und wenn diese Werte übereinstimmen, einen Wert aus Tabelle 2 in Tabelle 1 einfügt.
Problem ist für mich hierbei die Bedingung zu schaffen, daß der Wert in einem Bereich (Spalte) gesucht wird.
Wer kann mir hier helfen?
Beispieldatei mit der Problemstellung:
https://www.herber.de/bbs/user/5945.xls
Für Hilfe vielen Dank
Marco

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suche nach Daten in Spalten
03.05.2004 21:13:17
Beni
Hallo Marco,
Gruss Beni

Sub suchen_nach_Daten()
For i = 2 To Cells(65536, 2).End(xlUp).Row
With Sheets("Tabelle2")
Wert = Cells(i, 2)
For u = 3 To .Cells(65536, 2).End(xlUp).Row
If Cells(i, 2) = .Cells(u, 2) And Cells(i, 5) = .Cells(u, 6) And Cells(i, 3) <= .Cells(u, 3) And _
Cells(i, 4) >= .Cells(u, 4) And Cells(i, 4) <= .Cells(u, 5) And .Cells(u, 7) = "Unterteil" Then
Cells(i, 8) = .Cells(u, 1)
Exit For
End If
Next u
For o = 3 To .Cells(65536, 4).End(xlUp).Row
If Cells(i, 4) = .Cells(o, 4) Or Cells(i, 4) = .Cells(o, 5) And _
.Cells(o, 7) = "Oberteil" Then
Cells(i, 7) = .Cells(o, 1)
Exit For
End If
Next o
End With
Next i
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige