Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

werte aus Tabellenblättern vergleichen

werte aus Tabellenblättern vergleichen
26.02.2005 19:36:14
MarioK
Hallo zusammen,
Ich habe ein Problem mit mehreren werten in verschiedenen
Tabelleblättern. In Tabellenblat1 und Tabellenblatt2 ,
nachfolgennd Tab1 bzw Tab2 genannt stehen werte die ich
überprüfen muss.
TAB1 ist folgendermassen aufgebaut
A.........B..........C............D......E........
2.........7ef71d....Markt.........12..............
3.........45cf1d....Dreieck......512..............
4.........a7ed1d....Apfelstr......22..............
5.........f3461c....Rosenend.......6..............
usw
TAB2
A.........B..........C1...........D......E........
1.........f3461c....Rosenend.......6..............
2.........45cf1d....Dreieck......512..............
3.........7ef71d....Markt.........12..............
4.........a7ed1d....Apfelstr......22..............
usw.
es soll nun als erstes aus Tab2 B1 eingelesen werden,in
Tab1 der wert f3461c gesucht werden in diesem Beispiel
gefunden an B5.
Wenn gefunden aus Tab2 den wert D1 lesen und mit
D5 aus Tab1 vergeleichen. Wenn werte übereinstimmung soll
in Tab1 an E5 ein simples "x" eingetragen werden so das
es so aussieht
A.........B..........C............D......E........
2.........7ef71d....Markt.........12..............
3.........45cf1d....Dreieck......512..............
4.........a7ed1d....Apfelstr......22..............
5.........f3461c....Rosenend.......6.....x........
wie macht man sowas ? ich stehe voll auf dem schlauch und bin total
ratlos, vor allem weil ich insgeammt knapp 2000 werte aus 4 Tabellen
von Hand vergleichen müsste.Wenn ich einmal einen anstoss für die ersten Tabellen habe kann ich mir den rest auch alleine zusammenfummeln aber im moment komme ich leider nicht weiter. Beispieltabelle anbei
Bin für jede hilfe dankbar,
Gruss Mario

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispieltabelle anbei, wo?
Horst
H.
AW: Beispieltabelle anbei, wo?
26.02.2005 19:44:14
MarioK
habs schon gemerkt, ist hochgeladen .
Gruss Mario
AW: werte aus Tabellenblättern vergleichen
K.Rola
Hallo,
Option Explicit
Sub finden()
Dim ws1 As Worksheet, ws2 As Worksheet, c As Range, SB
Dim addr As String, z As Long, lz As Long, rc As Long
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Tabelle2")
rc = ws1.Rows.Count
lz = IIf(ws1.Cells(rc, 1) <> "", rc, ws1.Cells(rc, 1).End(-4162).Row)
For z = 2 To lz
SB = ws1.Cells(z, 1)
With ws2.Columns(1)
Set c = .Find(SB, LookIn:=-4163, Lookat:=1)
If Not c Is Nothing Then
addr = c.Address
Do
If c.Offset(0, 2) = ws1.Cells(z, 3) Then
ws1.Cells(z, 4) = "x"
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> addr
End If
End With
Next
End Sub

Gruß K.Rola
Anzeige
AW: werte aus Tabellenblättern vergleichen
26.02.2005 20:20:16
MarioK
Hammer, das klappt genau so wie ich es brauche, nur eins habe ich vergessen,
wenn der wert 7ef71d gefunden wird aber die Hausnummer nicht stimmt, könnte man da ein F für falsch eintragen ?
Gruss Mario
AW: werte aus Tabellenblättern vergleichen
K.Rola
Hallo.
dann so:
Option Explicit
Sub finden()
Dim ws1 As Worksheet, ws2 As Worksheet, c As Range, SB
Dim addr As String, z As Long, lz As Long, rc As Long
Set ws1 = Sheets("Tabelle1")
Set ws2 = Sheets("Tabelle2")
rc = ws1.Rows.Count
lz = IIf(ws1.Cells(rc, 1) <> "", rc, ws1.Cells(rc, 1).End(-4162).Row)
For z = 2 To lz
SB = ws1.Cells(z, 1)
With ws2.Columns(1)
Set c = .Find(SB, LookIn:=-4163, Lookat:=1)
If Not c Is Nothing Then
addr = c.Address
Do
If c.Offset(0, 2) = ws1.Cells(z, 3) Then
ws1.Cells(z, 4) = "x"
ElseIf c.Offset(0, 2) <> ws1.Cells(z, 3) Then
ws1.Cells(z, 4) = "F"
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> addr
End If
End With
Next
End Sub

Gruß K.Rola
Anzeige
AW: werte aus Tabellenblättern vergleichen
26.02.2005 20:32:58
MarioK
Ich könnt heulen vor Glück!
VIELEN VIELEN DANK
Gruss Mario

302 Forumthreads zu ähnlichen Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 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
Anzeige
doppelte werte im Array aus Tabelle (dim)
chris

Hallo VBA Profis und guten morgen,
ich habe eine frage zu einem Code wie ich diesen am besten erstelle.
Ich habe eine Tabelle mit daten in einer Spalte(untereinander)
Jetzt möchte ich diese zeile mit diesem Makro einlesen aber nur einmal vorkommende werte.
Also wenn ein Wert dop...
15.01.2009 07:43:25
Thread-ID: 1039878
5 Beiträge
Werte einfügen aus Array in Tabelle mehrere Rows
chris

Hallo VBA Profis,
eine frage würde mich sehr über Hilfe freuen.
Dafür bedenke ich mich im vorraus.
ich habe den Code unten und will die Daten aus dem Array meArea2
in ein Tabellenblatt einfügen ab der zeile 2 also A2
Aber irgendwie schaffe ich es nicht.
habe es schon mi...
15.01.2009 10:13:00
Thread-ID: 1039973
9 Beiträge
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Werte aus Abfragetabelle uebertragen
d4t4l0g1c

Hallo,
ich habe eine Tabelle, in der als Ergebnis einer immer wieder aktualisierbaren Abfrage (u.a.) Spalten mit Artikeln, Lieferterminen und Mengen stehen. Da es für einen Artikel mehrere Liefertermine geben kann, gibt es in der Regel für einen Artikel mehrere Datenzeilen zu Termin und Me...
30.01.2009 21:58:53
Thread-ID: 1045542
8 Beiträge
Werte aus geschlossenen Tabellenblättern übernehme
chsarto

Hallo,
irgendwie suche ich verkehrt , ich finde einfach nicht die Lösung zu meinem Problem.
Ich habe eine Tabelle mit aktuell 10 Tabellenblättern,diese werden aber stetig mehr, per Makro lese ich die Namen der Tabellenblätter aus und füge den Link zu den Blättern auf einem neuen Blatt "...
24.02.2009 15:11:02
Thread-ID: 1053542
6 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
2
2
1
1
1
4
8
9
7
5
2
11
1
6
9
10
2
9
12
5
2
3
6
2
1