Tekst naar kolommen in macro werkt niet goed

[cow18]

net te laat met een andere benadering

 

[HSV]

Dan zal het ook wel fout gaan met Maart en Mei.

Sorteren kan in een regel op maximaal 3 kolommen.

Sub hsv()
    With Sheets("Blad2")
        .Cells(1).CurrentRegion.Resize(, 6).Clear
        .Columns(18).TextToColumns .Range("A1"), 2, , , , , , , , , Array(Array(0, 1), Array(5, 1), Array(8, 1), Array(15, 9), Array(21, 3))
        .Columns(4).TextToColumns .Range("D1"), 1, , , , , , , True, "-"
        With .Columns(3)
          .Replace "rt", "ar"
          .Replace "ei", "ay"
          .Replace "k", "c"
        End With
        .Columns("a:f").Sort .Range("c1"), 1, .Range("a1"), , 1, , , xlNo
    End With
End Sub

 

[AD1957]

@HSV heeft gelijk.
Ik had hetzelfde probleem met filteren, uitleg in #11 door VenA
https://www.helpmij.nl/forum/showthread.php/950574-AUTOFILTER-OKTOBER-werkt-niet

 

[cow18]

#21 nog iets verder uitgewerkt.
Als je toch een macro gebruikt, dan kan je beter alles er in verwerken ipv. ergens nog wat formules gebruiken en onderweg wat moeilijkheden moeten counteren.