Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, vielleicht kann mir jemand bei meinem problem helfen. Mein Problem: Ich habe in der Tabelle2 meine Daten (in SpalteA und in SpalteB die dazugehörigen Werte). Wenn jetzt in der TABELLE1 SpalteD ein Wert (aus Tabelle1 SpalteA)eingetragen wird, sollte in der SpalteE das zugehörige Wert von der Tabelle2 SpalteB automatisch eingetragen werden (wie Sverweis). Das gleiche sollte aber auch andersrum funktionieren, also wenn ich in Tabelle1 SpalteE was eintrage sollte in der SpalteD der Wert aus Tabelle2 SpalteA automatisch eingetragen werden. Für jeden Tipp oder Hilfe wäre ich sehr dankbar grüsse Chris

Thanks Mac4
Dank ihm habe ich die Lösung:
für die die es interessiert ist hier der Code:

Hallo Chris,

kopiere folgendes Makro in das Tabellenmodul von Tabelle 1!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:E")) Is Nothing Then
On Error GoTo Fehlermeldung:
Select Case Target.Column
Case Is = 4
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Sheets("Tabelle2").[A:B], 2, 0)
Case Is = 5
Target.Offset(0, -1) = WorksheetFunction.Index(Sheets("Tabelle2").[A:A], WorksheetFunction.Match(Target, Sheets("Tabelle2").[B:B], 0))
End Select
End If
Fehlermeldung:
If Err.Number = 1004 Then
MsgBox "Das eingegeben Suchkriterium existiert nicht in der Suchmatrix!", vbCritical
End If

End Sub

Marc

• Makro welches Werte einträgt wie SVERWEIS
• Makro Formel
• Makro für Sverweis
• Sverweis starten, wenn Eingabetaste betätigt wird