Escel | Herbers Excel-Forum

Hallo, Leute,
da mir keiner helfen konnte, hätte ich eine andere bitte.
Siehe Beispiel: es sind 3 Spalten Spalte „A“ Uhrzeit, Spalte „B“ TischNr., Spalte „C“ Kunde.
Spalte „A“ Uhrzeit, enthält die Uhrzeit aus eine Verknüpfung, diese soll automatisch mit den dazugehörigen Tisch und Kunde aus Spalte B und C. sortiert werden. (in A2 soll der kleinste Wert angezeigt werden)
Mit diesen Makro funktioniert es nur mit direkter Zelleneingabe, sobald eine Verknüpfung
Vorhanden ist funktioniert das ganze nicht mehr

Code:

Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
With Worksheet
If Target <> "" Then
x1 = Selection.Row
y1 = Selection.Column
Columns("A:C").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cells(x1, y1).Select
End If
End With
fehler:
Application.EnableEvents = True
End Sub