Opgelost VBA code, vervangen deel van tekst

[Yasmin]

Beste Excellers,

Ik ben op zoek naar een VBA code voor gebruik in een macro die de tekst in kolom A (vanaf rij 8) vervangt door de 1e 4 cijfers en de tekst in kolom B (vanaf rij 8) vervangt door de 1e 3 cijfers.

Het is tekst dus bv 030 - HUISVESTING dient niet als 30 vervangen te worden maar als 030.

Kolom A kan een variabel aantal rijen bevatten tussen 10 en 750 rijen.
Het aantal gevulde cellen in kolom A en B zijn altijd gelijk.

Wie kan/wil me helpen aan de juiste VBA code?

 

[edmoor]

Druk op de knop:

 

[AHulpje]

Zo:

 

[peter59]

Het is dan wel niet met VBA maar met power query.

 

[HSV]

In een array en in het geheugen van de Pc.

Sub hsv()
Dim sv, i As Long
sv = Cells(6, 1).CurrentRegion
 For i = 3 To UBound(sv)
   sv(i, 1) = Split(sv(i, 1), " -")(0)
   sv(i, 2) = Split(sv(i, 2), " -")(0)
Next i
Cells(6, 1).Resize(UBound(sv), 2) = sv
End Sub

 

[snb]

Sub M_snb()
  with columns(1).resize(,2)
     .replace " *","'"
    .replace, "0","'0"
    .replace "'0'",""
  end with
End Sub

Kan ook eenvoudig 'metz zoeken/vervangen

 

[AHulpje]

@snb
Het kan nóg korter, maar ook dan verdwijnt de voorloopnul van de kostenplaats:

Range("A:B").Replace " *", ""

 

[snb]

#6 aangepast

 

[HSV]

't Is nog geen succes met de getallen die eindigen op een nul.

 

[snb]

Nee. tuurlijk niet:

Sub M_snb()
    with columns(1).resize(,2)
     .replace " *","'"
     .replace, "0","'0"
     .replace "'0'","0"
   end with
End Sub

 

[HSV]

Bekijk kolom A nu eens.