Suchen in anderer Tabelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Suchen in anderer Tabelle"