Office: Vergleichen 2 spalten wenn wert übereinstimmt dann..

Helfe beim Thema Vergleichen 2 spalten wenn wert übereinstimmt dann.. in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen Ich habe folgendes Problem. Ich möchte den Zellenwert der tabelle 1 mit Zellenwerte der Tabelle 2 abgleichen/durchsuchen. also die... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Weissbart, 8. März 2013.

Seite 1 von 2

WEISSBART

Weissbart

Vergleichen 2 spalten wenn wert übereinstimmt dann..

Hallo zusammen

Ich habe folgendes Problem.

Ich möchte den Zellenwert der tabelle 1 mit Zellenwerte der Tabelle 2 abgleichen/durchsuchen.

also die Werte der Tabelle 1 sind in Spalte C
Werte zum durchsuchen (in Tabelle 2 Spalte B)

wenn die Beiden Werte nun genau übereinstimmen
soll der Wert von Tabelle 2 Spalte A (von gesuchten Wert in spalte B)
in die Tabelle 1 in die Spalte B übertragen/kopiert werden.

ich hoffe ich habe einigermassen das rübergebracht mit meinem umständlichen erklärungsversuch.

schonmal vielen dank für euren Rat und Hilfe

Gruß Ron

:)

Weissbart, 8. März 2013

#1
Hajo_Zi Erfahrener User

benutze Sverweis()

Hajo_Zi, 10. März 2013

#2
WEISSBART

Weissbart

Ich danke Dir für deinen Vorschlag

Sverweis läuft doch aber mit Formeln

ist das ganze nicht per VBA möglich

die einträge in den Spalten zu prüfen?

habe mal eine Test Datei angehangen um den aufbau zu klären.

würde mich über VBA Vorschläge freuen

Danke Ron

Weissbart, 10. März 2013

#3
Hajo_Zi Erfahrener User

Vergleichen 2 spalten wenn wert übereinstimmt dann..

von VBA war in Deinem Beitrag nicht die Rede.
Tabelle vergleichen

Hajo_Zi, 10. März 2013

#4
HARY

hary

Moin Ron
Code:

Sub rueber()
Dim a As Variant
With Worksheets("Tabelle2")
a = Application.Match(Worksheets("Tabelle1").Range("B1"), .Columns(2), 0)
If IsNumeric(a) Then
.Cells(a, 1).Value = Worksheets("Tabelle1").Range("A1").Value
Else
MsgBox "nicht vorhanden"
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 10. März 2013

#5
WEISSBART

Weissbart

wenn du oben schaust ist der Beitrag im VBA bereich erstellt

Weissbart, 10. März 2013

#6
HARY

hary

Moin Ron
Code:

Sub rueber()
Dim a As Variant
Dim letzte As Long
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle2")
Set wksZ = Worksheets("Tabelle1")
letzte = wksZ.Cells(wksZ.Rows.Count, 2).End(xlUp).Row
For i = 1 To letzte
a = Application.Match(wksZ.Cells(i, 2), wksQ.Columns(2), 0)
If IsNumeric(a) Then
wksZ.Cells(i, 1).Value = wksQ.Cells(a, 1).Value
Else
MsgBox "nicht vorhanden"
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 10. März 2013

#7
WEISSBART

Weissbart

Vergleichen 2 spalten wenn wert übereinstimmt dann..

Hallo Hary

wie immer funktioniert es so wie ich es brauchte^^

Danke Dir

Gruß
Ron

Weissbart, 14. März 2013

#8
HARY

hary

Moin Ron
Danke,Null Problemo.
gruss hary

hary, 14. März 2013

#9
WEISSBART

Weissbart

Ich habe nochmal eine Frage

geht das irgendwie das man mit dem Code von Hary einen Teilbereich nur durchsucht (in Tabelle2)

Code:

Sub rueber()
Dim a As Variant
Dim letzte As Long
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle2")
Set wksZ = Worksheets("Tabelle1")
letzte = wksZ.Cells(wksZ.Rows.count, 5).End(xlUp).Row
For i = 1 To letzte
a = Application.Match(wksZ.Cells(i, 5), wksQ.Columns(2), 0)
If IsNumeric(a) Then
wksZ.Cells(i, 2).Value = wksQ.Cells(a, 1).Value
wksZ.Cells(i, 6).Value = wksQ.Cells(a, 3).Value
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also kurze erklärung.

in Tabelle2 sind die Daten folgender Massen aufgebaut.

Bezeichnung1(weitere Bezeichung)

nun möchte ich das die Daten die in Tabelle1 sind mit den in Tabelle2 verglichen werden aber nur wenn eine Übereinstimmung mit der Bezeichnung1 vor der (klammer) besteht die übertragung erfolgt.

also nicht das alles übereinstimmt sondern der Teilbereich Bereich1 vor der Klammer reicht für den übertrag.

schönen Dank für die Hilfe
gruß
Ron

Weissbart, 29. April 2013

#10
OFFICEUSER

OfficeUser Neuer User

Moin Ron
Wie sehen die Blaetter aus?
so?

Tabelle1
E
1 Bezeichnung2(weitere Bezeichung)
2 Bezeichnung3(weitere Bezeichung)
3 Bezeichnung4(weitere Bezeichung)
4 Bezeichnung1(weitere Bezeichung)
Tabellendarstellung in Foren Version 5.30

dann versuch mal so?
Code:

Dim a As Variant
Dim letzte As Long
Dim i As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle2")
Set wksZ = Worksheets("Tabelle1")
letzte = wksZ.Cells(wksZ.Rows.Count, 5).End(xlUp).Row
For i = 1 To letzte
If InStr(1, wksZ.Cells(i, 5), "(") Then
a = Application.Match(Left(wksZ.Cells(i, 5), InStr(1, wksZ.Cells(i, 5), "(") - 1), wksQ.Columns(2), 0)
If IsNumeric(a) Then
wksZ.Cells(i, 2).Value = wksQ.Cells(a, 1).Value
wksZ.Cells(i, 6).Value = wksQ.Cells(a, 3).Value
End If
End If
Set wksQ = Nothing
Set wksZ = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

OfficeUser, 29. April 2013

#11
WEISSBART

Weissbart

Hallo Hary

Tabelle 2 aufbau

Nr. Bezeichnung zusatz

123456 Bezeichnung1(weitere Bezeichnung) 1234

Tabelle 1

Bezeichung1

wobei die Daten in Tabelle1 bezeichnung1 varieren können.

deshalb

vergleich wenn 9 oder 13 zeichen übereinstimmen von tabelle1 zu tabelle2
dann

soll der Übertrag von Tabelle2 erfolgen

mit deinem letzten Post überträgt er zwar die eingabe aus tabelle1 aber nicht die zugehörige Nr. aus Tabelle2

gruß
ron

Weissbart, 30. April 2013

#12
HARY

hary

Vergleichen 2 spalten wenn wert übereinstimmt dann..

Moin Ron

vergleich wenn 9 oder 13 zeichen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist noch zu frueh fuer mich. Man braucht doch nur pruefen ob die ersten 9 Zeichen passen. Bei 13 Zeichen passen doch auch die ersten 9 oder?
Dann besser mit find und Platzhalter.
Code:

Dim letzte As Long
Dim i As Long
Dim suche As String
Dim zelle As Range
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tabelle2")
Set wksZ = Worksheets("Tabelle1")
letzte = wksZ.Cells(wksZ.Rows.Count, 5).End(xlUp).Row
For i = 1 To letzte
suche = Left(wksZ.Cells(i, 5), 9)
Set zelle = wksQ.Columns(2).Find(What:=suche & "*", LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
wksZ.Cells(i, 2).Value = wksQ.Cells(zelle.Row, 1).Value
wksZ.Cells(i, 6).Value = wksQ.Cells(zelle.Row, 3).Value
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 30. April 2013

#13
WEISSBART

Weissbart

Hi Hary

Danke ja funktioniert

ist auch auch möglich das die Leerzeichen rausgenommen werden aus der suche.

also quasi wenn ein leerzeichen zu viel ist das es dann trotzdem passt?

weißt du was ich mein *wink.gif*

gruß ron

Weissbart, 2. Mai 2013

#14
HARY

hary

Moin Ron
Versuch mal so.
Code:

suche = Replace(Left(wksZ.Cells(i, 5), 9)," ","")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 2. Mai 2013

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Vergleichen 2 spalten wenn wert übereinstimmt dann..

Die Seite wird geladen...

Vergleichen 2 spalten wenn wert übereinstimmt dann.. - Similar Threads - Vergleichen spalten wert
Werte in Spalten vergleichen und farbig markieren
in Microsoft Excel Hilfe
Werte in Spalten vergleichen und farbig markieren: Moin zusammen, ich habe eine Pivottabelle erstellt. Hier habe ich jetzt verschiedene Parameter nach meine Wünsche angepasst und habe eine Übersicht über Kunden und Umsätze 2022 und 2023 In Spalte...
Spalten vergleichen und Wert (ok/nok) ausgeben
in Microsoft Excel Hilfe
Spalten vergleichen und Wert (ok/nok) ausgeben: Hallo liebes Forum! Zu diesem Thema gibt es schon zahlreiche Threads, aber leider habe ich nichts passendes finden können, das zu meinem Anliegen passt. Ich habe mehrere Tabellen in einem Sheet...
gleiche Werte in mehreren Spalten
in Microsoft Excel Hilfe
gleiche Werte in mehreren Spalten: Hallo liebe Community, nach etlichen Web-Ergebnissen, wie man doppelte Werte in ZWEI Spalten markieren/vergleichen kann, hoffe ich, dass ich hier schneller eine Antwort auf mein Anliegen finden...
Vergleich von drei Spalte - wenn nur ein Wert größer X, dann mache Y
in Microsoft Excel Hilfe
Vergleich von drei Spalte - wenn nur ein Wert größer X, dann mache Y: Hallo zusammen, folgende Problemstellung: Ich möchte in D eine Ausgabe wenn in den Zeilen der Spalten A bis C ein Wert über 1.000 liegt. Also: Wenn (A1>1000 oder B1>1000 oder C1> größer 1.000)...
Mehrere Werte aus andere Spalte vergleichen und abgleichen
in Microsoft Excel Hilfe
Mehrere Werte aus andere Spalte vergleichen und abgleichen: Ich habe ein Problem mit einer großen Datenmenge, in der unvollständige DS vorliegen. Es gibt 2 Spalten mit einer Identifikationsnr. In einer Spalte eine eindeutige KundenID, in der zweiten eine...
Werte in zwei Spalten vergleichen und dritte Zelle kopieren
in Microsoft Excel Hilfe
Werte in zwei Spalten vergleichen und dritte Zelle kopieren: Hallo, seit zwei Tagen suche ich die Foren ab ohne Erfolg. Suche Hilfe. Innerhalb einer Tabelle habe ich in Spalte A 3024 Einträge welche Inhalte besitzen die auch gleich sein könnten. In...
Werte einer Spalte mit Werten aus einer Spalte vergleichen und summieren
in Microsoft Excel Hilfe
Werte einer Spalte mit Werten aus einer Spalte vergleichen und summieren: Moin zusammen, ich bin gerade dabei, mir eine Art Haushaltsbuch zu bauen. Ich habe in 2 Blättern 2 Tabellen. In dem einen Blatt sind Kategorien, z.B Lebensmittel, Getränke und Drogerie (als...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden