Thema Datum  Von Nutzer Rating
Antwort
31.12.2014 13:58:47 Max
NotSolved
Blau zum Bleistift Hilfsspalte
31.12.2014 16:52:12 Gast44930
NotSolved
03.01.2015 13:55:28 Gast85434
NotSolved
03.01.2015 15:36:22 Gast44930
NotSolved

Ansicht des Beitrags:
Von:
Gast44930
Datum:
31.12.2014 16:52:12
Views:
806
Rating: Antwort:
  Ja
Thema:
zum Bleistift Hilfsspalte
Option Explicit
Sub Test()
   NumericSort Range("A1:A2222")          'Sortierbereich
End Sub


Sub NumericSort(rngSort As Range)
Dim myRegexp
Dim myArr()
Dim myKeyRng As Range                     'Hilfsspalte


Dim i As Long

Set myRegexp = CreateObject("vbscript.regexp")
myRegexp.Global = True
myRegexp.Pattern = "\D"

   myArr = rngSort
   
   For i = LBound(myArr) To UBound(myArr)
      myArr(i, 1) = myRegexp.Replace(myArr(i, 1), "")
   Next i

Set myRegexp = Nothing

Set myKeyRng = Cells(rngSort.Cells(1).Row, Columns.Count).End(xlToLeft).Offset(, 1)
Set myKeyRng = myKeyRng.Resize(UBound(myArr, 1), UBound(myArr, 2))
myKeyRng.Value = myArr

With ActiveSheet
   With .Sort
      With .SortFields
         .Clear
         .Add Key:=Range(myKeyRng.Address), _
         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      End With
      .SetRange Range(Range(rngSort, myKeyRng).Address)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
End With

myKeyRng.Clear

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
31.12.2014 13:58:47 Max
NotSolved
Blau zum Bleistift Hilfsspalte
31.12.2014 16:52:12 Gast44930
NotSolved
03.01.2015 13:55:28 Gast85434
NotSolved
03.01.2015 15:36:22 Gast44930
NotSolved