Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten vergleichen und Text einfügen

Daten vergleichen und Text einfügen
07.12.2004 10:40:35
TOM
Hallo,
heute habe ich das tolle Forum gefunden und möchte mein Problem schildern:
Ich habe eine Mappe und möchte in zwei unterschiedlichen Tabellen in einer Datei.xls zwei Werte vergleichen: In Tabelle 1 erfolgt die Dateneingabe. Wenn hier in Zelle A1 der vierstellige Wert 1995 eingetragen wird, soll dieser mit Tabelle 2 Spalte B verglichen werden. Bei Übereinstimmung soll der aus Tabelle 2 zugehörige Wert aus Spalte C in Tabelle 1 in B1 eingfügt werden. (Also: Ich gebe in Tabelle 1 Zelle A1 die Zahl ein, die mit Tabelle 2 Spalte B verglichen werden soll und der Treffer in Tabelle 2 Spalte B soll in Tabelle 1 Zelle B1 eingefügt werden. Zur Info: In Tabelle sind in Spalte B die Zahlenwerte und in Spalte C die Hinweise/Erläuterungen.)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten vergleichen und Text einfügen
07.12.2004 10:50:44
Chris
Hi Tom,
in die Zelle B1 in Tabelle 1 kommt folgende Formel:
=SVERWEIS(A1;Tabelle2!B:C;2;FALSCH)
Gruss
Chris
AW: Daten vergleichen und Text einfügen
WernerB.
Hallo Tom,
das nachstehende Makro gehört in das Tabellenblatt-Modul von "Tabelle1":

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SuBe As Range
Dim s As String
Dim laR As Long
Dim bWh As Byte
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value <> "" Then
s = Range("A1").Text
With Sheets("Tabelle2")
laR = .Cells(Rows.Count, 2).End(xlUp).Row
bWh = 1  '1=xlWhole, 2=xlPart
Set SuBe = .Range("B1:B" & laR).Find(What:=s, _
After:=.Range("B" & laR), LookAt:=bWh)
If Not SuBe Is Nothing Then
Range("B1").Value = .Range("C" & SuBe.Row).Value
Set SuBe = Nothing
Else
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", 64, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End With
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Daten vergleichen und Text einfügen
08.12.2004 13:38:43
TOM
Hallo Chris,
ich danke Dir für die kurze und überschaubare Lösung.
Auch Werner B. gilt mein Dank, der ja ein wahrer Profi ist und mit ausgefeilten Codes hier eine richtig wertbringende Anleitung gibt.
Habe alles probiert - DANKE!
TOM

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige