Zwei VBA
05.12.2003 13:22:01
sascha
Habe folgendes code irgend wie gebastelt:( und es funktioniert)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
Dim iRow As Integer
Dim sort As String
If Target.Column <> 7 Then Exit Sub
Application.EnableEvents = False
With Range("ik50000:in50010")
var = Application.Match(Target.Value, .Columns(1), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 2).Value
Target.Offset(0, 2).Value = .Cells(var, 3).Value
Target.Offset(0, 3).Value = .Cells(var, 4).Value
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Mein Problem:
Das gleiche brauche ich auch für Spalte 11(K) ( also in code sollten Spalten 7 und 11 ( F und K ) integriert.
Ich habe versucht aber Erfolglos
Wer hilft weiter
Danke in voraus
Gruß Sascha