✔ Excel Daten automatisch sortieren

[compoundbow83]

Hallo,
ich bräuchte da mal eure Hilfe.

Ich habe eine Exel-Datei für ein Turnier gebastelt.
Jetzt mein Problem, so sieht meine Tabelle aus:

von A3 - I3
Platz-Name-Land-Verein-Bogenart-Entfernung-Auflage-Ergebnis-Schnitt

von 3-63 werden Daten eingegeben, in Feld I ist eine Formel =WENN(H4="";"";RUNDEN(H4/$G$1*$G$2;0))

Jetzt hätte ich gern, alles nach I sortiert aber halt automatisch wenn ich bei H was eingebe.

Die Tabelle hat nen Blattschutz es können nur die nötigen Daten eingegeben werden.

Hier die Datei: http:compoundbow83.co.funpic.de/Qualif und Finale.zip

Ich hoffe ihr könnt mir helfen

 

[Niederbobi]

Sub sortI()
    
  Dim src As Worksheet
  Dim aCell As Range
  Dim r As Integer
  
  Set aCell = ActiveCell
  Set src = ActiveSheet
  r = 4
  src.Unprotect
  
  Do While (src.Cells(r, 9).Value <> "")
    r = r + 1
  Loop
  
  src.Range(src.Cells(4, 2), src.Cells(r - 1, 9)).Select
  
  Selection.Sort Key1:=Range("I4"), Order1:=xlDescending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
  
  aCell.Select
  src.Protect

End Sub

Das wäre schon mal ein Vorschlag für das notwendige VBA ..

 

[tom_r]

Hi,

versuch den mal

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
   Set Target = Application.Intersect(Target, Range("H4:H63"))
   
   If Target Is Nothing Then Exit Sub
   
   On Error GoTo ErrorHandler
   
   ActiveSheet.Unprotect
   LetzteZeile = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
   With ActiveSheet
  
      With .Range("B4:H" & LetzteZeile)
         .Sort Key1:=Range("H4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      End With
   End With
   
  ActiveSheet.Protect
   
ErrorHandler:
   Application.EnableEvents = True
   
End Sub

 

[compoundbow83]

Vielen danke euch zwei, ich habs eben grad mit nem button hinbekommen des is mir noch lieber.

Aber trotzdem danke

 

[tom_r]

Hi,

ist doch alles kein Hexenwerk. Versuch doch einvach mal meinen Code über den VBA-Editor in das Blatt Quali einzufügen. Mehr ist es nicht.

Gruß Thomas

 

[compoundbow83]

Hallo tom,
das klappt echt super, nur wo stell ich ein, dass es absteigend sortiert immoment sortiert es ja aufsteigend?

Danke

 

[tom_r]

Hi,

Du musst nur 2 Buchstaben ändern

.Sort Key1:=Range("H4"), Order1:=xlDescending, Header:=xlNo, _

Gruß Thomas

 

[compoundbow83]

Hi,

Danke hat super geklappt