Hallo,
die Lösung von nighty ist leicht modifiziert im Einsatz. Allerdings mit noch folgendem Problem: Wenn der Wert aus Spalte 2 in der Hilfstabelle
nicht vorhanden ist, bricht der Code ab mit einer Fehlermeldung:
Laufzeitfehler 1004:
Die VLookup-Eigenschaften kann nicht zugeordnet werden.
Nachdem ich auf Beenden klicke, läuft das Makro nicht mehr. Ich muss Excel schließen und neu starten, damit es wieder funktioniert (vielleicht auch nur die Datei...) ;-)
Was kann ich tun um den Fehler zu ignorieren oder einen Hinweis eintragen..."nicht vorhanden" oder ähnliches?
Vielen Dank und Grüße
[code]Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
Cells(Target.Row, 2) = Mid(Cells(Target.Row, 1), 1, 4)
Cells(Target.Row, 3) = Mid(Cells(Target.Row, 1), 5, 4)
Cells(Target.Row, 4) = Date
Cells(Target.Row, 5) = WorksheetFunction.VLookup(Cells(Target.Row, 2), Worksheets("Hilfstabelle").Range("A:D"), 2, 0)
Cells(Target.Row, 6) = WorksheetFunction.VLookup(Cells(Target.Row, 2), Worksheets("Hilfstabelle").Range("A:D"), 3, 0)
End If
Application.EnableEvents = True
End Sub