Hallo ik moet een vba macro maken in excell voor het splitsen van tekst over meerdere cellen. Deze tekst word gekopieerd uit de cel waar de cursor staat of van het klembord gehaald.

De tekst ziet er ongeveer zo uit:
51   2778   1 547047

Zoals je ziet bestaat hij dus uit 4 delen, het aantal characters van ieder deel is niet constant. Maar ze worden wel altijd gescheiden door spaties.

De tekst moet altijd naar rechts opschuiven. Stel dat we plakken met de macro en we staan in cel A1 dan moet het eerste deel in deze cel komen"51", B1 = "2778", C1="1", D1="547047"

Van VBA in excel heb ik totaal geen verstand. Het is de eerste keer dat ik hiermee werk. Ik heb al een beetje zitten prutsen maar krijg die tekst maar niet van het klembord.

Mijn eerste gedacht was van de macro aan een key te binden. Als ik de cursor in een cel plaats en duw op de key dan word de macro uitgevoerd.

Dim tekst As String
tekst = ActiveSheet.Range("A1:A1").Copy
Ik hoopte dat zo de var tekst de inhoud ging krijgen van cel A1 maar blijkbaar niet.

alle hulp is welkom,

robeike 

edit:
Ik ben er nu al in geslaagd om de inhoud van een cel te kopieren naar die var. Wat ik nu heb gedaan is een for gemaakt die alle characters afgaat tot wanneer ie een spatie tegenkomt ondertussen plakt hij alle characters aan elkaar en hebben we dus een deel van de tekst. Dit deel word dan in de cel er naast geplakt. Daarna gaat ie weer verder.

Ik heb alleen een klein probleem en dat is dat ik deze var niet kan leegmaken telkens dat ik een deeltje heb weggeschreven...

Dit is wat ik ervan gemaakt heb

Private Sub cmdSplits_Click()
    Dim objSheet As Worksheet
    Dim objRange As Range
    Dim txtWaarde As String
   
   ' Get the currently active WorkSheet
    Set objSheet = ActiveSheet
   
   ' Get Cell "A1"
    Set objRange = objSheet.Cells(1, 1)
   
   ' Stop de waarde van A1 in een var
   txtWaarde = objRange.Value
   
   
   
   'MsgBox txtWaarde
   Dim teller As Integer
   teller = 2 'startpositie om het eerste stuk te zetten
   
   'We kijken waar de eerste spatie staat
   plaatsSpatie = InStr(txtWaarde, " ")
   
   While plaatsSpatie > 1  'zolang er spaties te vinden zijn
        'Stop hetlinkse deel tot de spatie in de cel
        Cells(1, teller).Value = Left(txtWaarde, plaatsSpatie)
       
        'hou enkel het rechtse deel na de spatie over
        txtWaarde = Right(txtWaarde, Len(txtWaarde) - plaatsSpatie + 1)
       
        'Haal er de (eventuele) extra spaties vooraan nog af
        txtWaarde = LTrim(txtWaarde)
        'kijk opnieuw of we eenspatie hebben
        plaatsSpatie = InStr(txtWaarde, " ")
        'Verhoog teller om de volgende tekst in de volgende cel te kunnen stoppen
        teller = teller + 1
     
   Wend
   'zet nog het laatste stukje in de volgende cel
   Cells(1, teller) = txtWaarde
End Sub

beiden bedankt voor de reacties maar ik hou het toch bij dat van mij  Ik weet dan tenminste waar ik met bezig ben.

Maar ik ben nu even bezig aan het zoeken om het zo te maken dat alle geselecteerde items afgegaan worden met die macro en dan zo 1 voor 1 worden opgesplitst.

Zelf 'klooien' met VBA is het leukste dat er is. Zo leer je er inderdaad het meeste van. Vergeet daarnaast toch niet te kijken naar de tips die je krijgt van helpers die al langer 'aan 't kijken zijn'... De kracht van goed programmeren zit 'm ook in het verkorten en versimpelen van de code. Maak dus vooral gebruik van reeds bestaande functies binnen VBA. Zo'n functie als 'Split' is bijvoorbeeld véél efficienter dan een lus. Maarrrrr... Laat je vooral niet stoppen in deze leuke ingeslagen weg.

Wist je trouwens dat er een standaard functionaliteit in Excel zit die je probleem in 1 keer oplost? Via het menu kan je gaan naar Data > Text To Columns (data > tekst naar kolommen). Selecteer je cel maar 'ns en klik die optie aan. De wizard zal je dan verder helpen. Dit kan uiteraard óók direct met een hele selectie.

Groet, Leo