ich brauche mal Hilfe bei diesem Code.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column 5 Then Exit Sub
If Target.Cells.Count > 5 Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Worksheets("Test")
If Not IsEmpty(Target) Then
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, 4).Value
Target.Offset(0, 3).Value = .Cells(var, 5).Value
End If
Else
Range(Target, Target.Offset(0, 2)).ClearContents
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Er trägt mir bei Eingabe der Kundennummer die Adresse des Kunden ein. Das macht er aber nur wenn ich die Eingabe mit Enter bestätige. Füge ich die Nummer mit einem Makro ein bleiben die Zellen leer. Die Option Text in Spalten hilft mir auch nicht weiter. Meine Frage an Euch, gibt es eine andere Möglichkeit.Vielen Dank