Guten Tag,
Ich habe mir eine Sortierfunktion erstellt. Sobald einen neuen Wert eingetragen wird, sortieren sich die Zahlen der Reihe nach.
Dies funktioniert leider nur, wenn ich die Zahlen in Spalte A eingebe. Was muss ich abändern, wenn ich die Zahlen in Spalte B bis Spalte K sortieren möchte?
Danke für euer Feedback.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTreffer As Range
Dim strKey As String
If Target.Column = 1 Then
strKey = Target.Value
Range("A:K").Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
Set rngTreffer = Range("A:K").Find(what:=strKey, Lookat:=xlWhole)
If Not rngTreffer Is Nothing Then
rngTreffer.Select
End If
End If
End Sub
|