Herbers Excel-Forum - das Archiv

Suchen in anderer Tabelle

Bild

Betrifft: Suchen in anderer Tabelle
von: Tobias Marx

Geschrieben am: 26.04.2005 09:18:21
Hallo miteinander!
Die Frage wird jetzt doof sein, aber ich bin heut morgen irgendwie noch nicht ganz in der Lage, die Recherche-Funktion richtig zu benuetzen (hab ich grad so das Gefuehl)...
Ich hab zwei Workbooks, in denen jeweils bestimmte Tabellen sind. Nun möchte ich in einer Tabelle in Spalte Y suchen, ob die Eintraege dort auch in der anderen Tabelle im anderen Workbook in Spalte X vorhanden sind. Wenn nicht, soll eine MsgBox ausgegeben werden, die mir sagt, in welcher Zeile in erstgenannter Tabelle sich der Wert befindet. Danach soll nach den naechsten Werten gesucht werden.
Any ideas?
Danke im Vorraus!
Gruesse
Tobias
Bild

Betrifft: AW: Suchen in anderer Tabelle
von: regina

Geschrieben am: 26.04.2005 09:43:04
Hallo Tobias,
Vielleicht so :
Sub Test()
Dim i As Long
Dim c As Long
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Dim ende1 As Long
Dim ende2 As Long
Set tb1 = Worksheets("Tabelle1")
Set tb2 = Worksheets("Tabelle2")
ende1 = tb1.Cells(65536, 25).End(xlUp).Row  'von letzter Zeile aufwärts
ende2 = tb2.Cells(65536, 24).End(xlUp).Row  'von letzter Zeile aufwärts
For i = 2 To ende1
Application.ScreenUpdating = False
Application.StatusBar = "bearbeite Zeile" & i & " von " & ende1
If Not IsEmpty(tb1.Cells(i, 25)) Then
For c = 2 To ende2
If tb1.Cells(i, 25) = tb2.Cells(c, 24) Then
MsgBox "Wert in Zeile " & c
End If
Next
End If
Next
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Fertig"
End Sub

Gruß Regina
Bild

Betrifft: AW: Suchen in anderer Tabelle
von: Tobias Marx

Geschrieben am: 26.04.2005 09:56:33
Hi Regina,
vom Prinzip her gut, aber es klappt leider so nicht: Er scheint nach den Werten zu schauen (Laufzeit etwas ueber 4 Sekunden), findet aber keine fehlenden Datensaetze, obwohl ich extra welche hinzugefuegt hab, die in der anderen Tabelle nicht existieren.
Any ideas?
P.S.: Beispielmappe kann ich leider keine stellen, wegen Betriebsinternas...
Bild

Betrifft: AW: Suchen in anderer Tabelle
von: regina

Geschrieben am: 26.04.2005 10:10:30
Hallo Tobias,

probier mal diese variante, jetzt wird in beide Tab in Spalte Z (natürlich nur wenn deine tab es zuläßt, sonst musst du ne andere Spalte wählen)"gefunden" reingeschrieben
wenn der wert gefunden wurde.

Sub Test()
Dim i As Long
Dim c As Long
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Dim ende1 As Long
Dim ende2 As Long
Set tb1 = Worksheets("Tabelle1")
Set tb2 = Worksheets("Tabelle2")
ende1 = tb1.Cells(65536, 25).End(xlUp).Row  'von letzter Zeile aufwärts
ende2 = tb2.Cells(65536, 24).End(xlUp).Row  'von letzter Zeile aufwärts
For i = 2 To ende1
Application.ScreenUpdating = False
Application.StatusBar = "bearbeite Zeile" & i & " von " & ende1
If Not IsEmpty(tb1.Cells(i, 25)) Then
For c = 2 To ende2
If tb1.Cells(i, 25) = tb2.Cells(c, 24) Then
tb1.Cells(i, 26) = "gefunden"
tb2.Cells(c, 26) = "gefunden"
End If
Next
End If
Next
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Fertig"
End Sub

Gruß regina
Bild

Betrifft: AW: Suchen in anderer Tabelle
von: Tobias Marx
Geschrieben am: 26.04.2005 11:06:36
Servus Regina,
ich werde mich nachher drum kuemmern, ich hab gerade ne andere Arbeit bekommen. Sobald ichs getest hab, meld ich mich wieder.

Gruss

Tobias
Bild

Betrifft: AW: Suchen in anderer Tabelle
von: Tobias Marx
Geschrieben am: 04.05.2005 10:36:01
Hey Regina,
hab zwar etwas rumfummeln muessen, aber nun klappts! Danke dir!

Gruss

Tobias
 Bild
Excel-Beispiele zum Thema "Suchen in anderer Tabelle"
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