AW: ländernamen mit Region versehen
26.11.2003 17:37:08
th.heinrich
hi Oliver,
habe mal von Hans (betreiber dieses Forums) einen CODE erhalten, der bei eingabe eines WERTES in SPALTE A sich fuer SPALTE B bis E die WERTE aus der tabelle DATEN holt.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 1 Then Exit Sub
With Application
var = .VLookup(Target.Value, Worksheets("Daten").Columns("A:E"), 1, 0)
On Error Resume Next
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, Worksheets("Daten").Columns("A:E"), 2, 0)
Target.Offset(0, 2) = .VLookup(Target.Value, Worksheets("Daten").Columns("A:E"), 3, 0)
Target.Offset(0, 3) = .VLookup(Target.Value, Worksheets("Daten").Columns("A:E"), 4, 0)
Target.Offset(0, 4) = .VLookup(Target.Value, Worksheets("Daten").Columns("A:E"), 5, 0)
End If
End With
End Sub
der CODE gehoert in das blatt in dem Du die WERTE hinzufuegen willst.
VLookup ist gleichbedeutend mit der FUNKTION SVERWEIS.
gruss thomas