change-ereignis, wenn wert x dann sverweis
koenig.kl@arcor.de
wenn in dem bereich K1:K1000 Target.Value "eign. Pr." enthält, soll
zwei zellen links davon sverweis eingetragen werden.
der zu suchende werte steht in der gleichen zeile wie target.value nur um 10 spalten nach links versetzt
-->Target.Offset(0, -10).Value
aus den beispielen von herrn herbers habe ich einen code-schnipsl eingebaut. hier finde ich bei sverweis nicht stelle, wo ich den zu suchenden wert-->Target.Offset(0, -10).Value einbaue.
freue mich auf eure hilfe.
danke im voraus klaus
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
'K15:K1000-->Preisgruppe überwachen
ElseIf Not Intersect(Target, Range("K15:K1000")) Is Nothing Then
If Target.Value = "eign.Pr." Then
Msgbox "eing. Pr. gewählt."
Elseif.Target.Value"eign.Pr." Then
With Application
var = .VLookup(Target.Value, _
Worksheets("tab1").Columns("A:C"), 2, 0)
If Not IsError(var) Then
Application.EnableEvents = False
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("tab1").Columns("A:C"), 2, 0)
End If 'if-Ende K-Spalte
Set Target = Nothing
End Sub
Anzeige