Habe folgendes Problem
in der Spalte a stehen Zahlenfolgen in der Form
12/34/56 oder
2/3456/4
nun soll nur nach den Zahlen die zwischen den Schrägstrichen stehen sortiert werden
Danke
Bea
Sub Sortieren()
Dim lLetzte As Long
Dim lZeile As Long
Dim sInhalt As String
Dim iPosit As Integer
lLetzte = IIf([A65536] > "", 65536, [A65536].End(xlUp).Row)
Columns("A:A").Insert Shift:=xlToRight
For lZeile = 1 To lLetzte
sInhalt = Range("B" & lZeile).Value
iPosit = InStr(sInhalt, "/")
If iPosit > 0 Then
sInhalt = Mid(sInhalt, iPosit + 1, Len(sInhalt))
End If
iPosit = InStr(sInhalt, "/")
If iPosit > 0 Then
Range("A" & lZeile).Value = Left(sInhalt, iPosit - 1)
End If
Next lZeile
Range("A1:Z" & lLetzte).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:A").Delete Shift:=xlToLeft
End Sub