Thema Datum  Von Nutzer Rating
Antwort
11.03.2021 09:34:42 Susanne
NotSolved
Blau Sortierfunktion
 11.03.2021 09:53:58 Werner
NotSolved
11.03.2021 10:02:40 Susanne
NotSolved
11.03.2021 10:02:55 Gast42752
NotSolved
11.03.2021 11:42:40 Susanne
NotSolved
18.03.2021 11:03:02 Susanne
NotSolved
18.03.2021 15:46:20 Nobody
NotSolved
19.03.2021 10:15:13 Susanne
NotSolved
19.03.2021 12:43:31 Nobody
NotSolved
09.04.2021 09:42:15 Susanne
NotSolved
09.04.2021 10:34:50 Nobody
NotSolved
09.04.2021 11:15:11 Susanne
NotSolved
09.04.2021 13:47:52 Susanne
NotSolved
09.04.2021 15:53:06 Nobody
NotSolved
15.04.2021 09:07:33 Susanne
NotSolved
15.04.2021 16:50:49 Nobody
NotSolved
16.04.2021 10:18:46 Susanne
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
11.03.2021 09:53:58		 Views:
560		 Rating:
     
Antwort:
  Ja
Thema:
Sortierfunktion

Hallo,

wenn ich dich richtig verstanden habe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTreffer As Range, strKey As String
 
If Target.Column >= 2 And Target.Column <= 11 Then
    strKey = Target.Value
    Range("A:K").Sort key1:=Cells(1, Target.Column), 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

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.03.2021 09:34:42 Susanne
NotSolved
Blau Sortierfunktion
 11.03.2021 09:53:58 Werner
NotSolved
11.03.2021 10:02:40 Susanne
NotSolved
11.03.2021 10:02:55 Gast42752
NotSolved
11.03.2021 11:42:40 Susanne
NotSolved
18.03.2021 11:03:02 Susanne
NotSolved
18.03.2021 15:46:20 Nobody
NotSolved
19.03.2021 10:15:13 Susanne
NotSolved
19.03.2021 12:43:31 Nobody
NotSolved
09.04.2021 09:42:15 Susanne
NotSolved
09.04.2021 10:34:50 Nobody
NotSolved
09.04.2021 11:15:11 Susanne
NotSolved
09.04.2021 13:47:52 Susanne
NotSolved
09.04.2021 15:53:06 Nobody
NotSolved
15.04.2021 09:07:33 Susanne
NotSolved
15.04.2021 16:50:49 Nobody
NotSolved
16.04.2021 10:18:46 Susanne
Solved