Guten Tag,
Das Sortierskript macht mir immer noch Probleme.
Ich kann wohl in Spalte B eine Neue Nummer eingeben. Dann sortiert es bis zur angegebenen Spalte (BI). Also alles richtig.
Wenn ich aber eine Korrektur in Spalte S mache, wird dann nach Spalte S sortiert.
Wenn ich ab Spalte C die ganze Zeile kopiere und in eine neu Zeile einfüge, wir ein Laufzeitfehler aufgerufen.
Kann man die Sortierfunktion nur auf Spalte B beschränken, so dass aber die Werte in den folgenden Spalten (C - BI) auch mitsortiert werden?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTreffer As Range, strKey As String
f Target.Column >= 2 And Target.Column <= 61 Then
strKey = Target.Value
Range("B18:BI1000").Sort key1:=Cells(1, Target.Column), order1:=xlAscending, Header:=xlYes
Set rngTreffer = Range("B18:BI1000").Find(what:=strKey, Lookat:=xlWhole)
If Not rngTreffer Is Nothing Then
rngTreffer.Select
End If
End If
End Sub
|