Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen in anderer Tabelle

Suchen in anderer Tabelle
26.04.2005 09:18:21
Tobias
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen in anderer Tabelle
regina
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
Anzeige
AW: Suchen in anderer Tabelle
26.04.2005 09:56:33
Tobias
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...
AW: Suchen in anderer Tabelle
26.04.2005 10:10:30
regina
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
Anzeige
AW: Suchen in anderer Tabelle
26.04.2005 11:06:36
Tobias
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
AW: Suchen in anderer Tabelle
04.05.2005 10:36:01
Tobias
Hey Regina,
hab zwar etwas rumfummeln muessen, aber nun klappts! Danke dir!

Gruss

Tobias

300 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
7
2
2
5
1
5
10
4
3
9
3
1
2
17
8
2
2
4
5
1
4
1
3