Auto Sortieren nach Neuberechnung
19.08.2022 15:10:59
Christian
ich habe ein Problem mit der automatischen Sortierung von Datensätzen nach Neuberechnung.
Ich suche in einem Datenblatt nach Kundennummern die in verschiedenen Feldern eine gewissen Datumsbereich Eingabeblatt C1 und E1 erfüllen.
Formel zum suchen der PLZ: =WENN(ODER([@ZENR]"";[@ZEOA]"";[@ZELT]"";[@Bera]"";[@Web]"");Eingabe!D3;"")
Zellbereich A1 bis F3001 , Zeile A sind Überschriften
Dann noch die Spalte Postleitzahl wenn eines der Datumsfelder der Suche entspricht. Und nach jeder Aktualisierung soll das Tabellenblatt "Zwischenergebnis" nach PLZ sortiert werden.
Dazu habe ich folgenden VBA Code ins Datenblatt gepackt
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
Dim rngTreffer As Range
Dim strKey As String
If Target.Column = 6 Then
strKey = Target.Value
Range("A1:F3001").Sort key1:=Range(F1), order1:=xlAscending, Header:=xlYes
Set rngTreffer = Range("F:F").Find(what:=strKey, lookat:=xlWhole)
If Not rngTreffer Is Nothing Then
rngTreffer.Select
End If
End If
End Sub
Grüße
Christian