Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

IP-Nummern nach Gruppen sortieren

Gruppe

Sortieren

Problem

Wie kann ich IP-Nummern nach Gruppen sortieren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Sortieren()
   Dim iRow As Integer
   Application.ScreenUpdating = False
   Range("A1").CurrentRegion.TextToColumns _
      Destination:=Range("A1"), _
      DataType:=xlDelimited, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, _
      Semicolon:=False, _
      Comma:=False, _
      Space:=False, _
      Other:=True, _
      OtherChar:="."
   Range("A1").CurrentRegion.Sort _
      key1:=Range("A1"), order1:=xlAscending, _
      key2:=Range("B1"), order2:=xlAscending, _
      key3:=Range("C1"), order3:=xlAscending, _
      header:=xlNo
   Range("A1").CurrentRegion.Sort _
      key1:=Range("A1"), order1:=xlAscending, _
      header:=xlNo
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 1).Value = _
         Cells(iRow, 1).Value & _
          "." & Cells(iRow, 2).Value & _
          "." & Cells(iRow, 3).Value & _
          "." & Cells(iRow, 4).Value
      iRow = iRow + 1
   Loop
   Columns("B:D").ClearContents
   Application.ScreenUpdating = True
End Sub