Thema Datum  Von Nutzer Rating
Antwort
11.03.2021 09:34:42 Susanne
NotSolved
11.03.2021 09:53:58 Werner
NotSolved
11.03.2021 10:02:40 Susanne
NotSolved
Blau Sortierfunktion
 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:
Gast42752		 Datum:
11.03.2021 10:02:55		 Views:
581		 Rating:
     
Antwort:
  Ja
Thema:
Sortierfunktion		 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim rngTreffer As Range
  Dim strKey As String
  
  'A (=1) bis K (=11)
  If 1 <= Target.Column And Target.Column <= 11 Then
    
    strKey = Target.Value
    Range("A:K").Sort Key1:=Cells(1, Target.Column), Order1:=xlAscending, Header:=xlYes
    
    Set rngTreffer = Target.EntireColumn.Find(What:=strKey, Lookat:=xlWhole)
    If Not rngTreffer Is Nothing Then
      rngTreffer.Select
    End If
    
  End If
  
End Sub

 

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
11.03.2021 09:53:58 Werner
NotSolved
11.03.2021 10:02:40 Susanne
NotSolved
Blau Sortierfunktion
 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