Gruppe
Allgemein
Problem
Wie kann ich IP-Nummern nach Gruppen sortieren?
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