Opgelost Celinhoud die aan elkaar vast geplakt zit, splitsen over 2 cellen

[RoVo1211]

In cel A1 staat "KoopASMI" en ik wil graag "Koop" in kolom A (cells(l_intReeks1,1) en ASMI in kolom B (Cells(l_intReeks1,2).
Mijn vraag is hoe kan ik en casu "KoopASMI" splitsen, want in andere cellen kan ook "VerkoopASMI" staan of "Koop*"/"Verkoop*" met een andere fondsnaam erachter.

[td width="106px"][/td]

Mocht je meer info nodig hebben, dan verneem ik het graag.

 

[edmoor]

Lijkt me geen probleem, maar plaats vooral een voorbeeld documentje waar je die VBA code in gebruikt.

 

[AHulpje]

Zo misschien:

 

[RoVo1211]

Met alle respect Ahulpje, maar dit heb je kennelijk met de hand gedaan, want ik zie geen enkele macro in het bestand staan.
Het gaat hier om 3849 regels die met een redelijk constante structuur moeten worden omgevormd tot een tabel.
Ik voeg het bestand hierbij en ook de code die ik tot zover heb.

Sub BeursspelTransactiesConverterenNaarTabel()
Dim l_intI As Integer, _
    l_intReeks1 As Integer
Dim l_sngRow As Single
Dim l_strA As String

Sheets(1).Select

For l_intReeks1 = 1 To Sheets(1).[A1].CurrentRegion.Rows.Count - 1 Step 2
Debug.Print "l_intReeks1: " & l_intReeks1.Address
If Ik Row() <= 11 And Row() = 11 Mod 1 Then
    If Not (IsNumeric(ActiveCell)) Then
Sheets(2).select
        Cells(1, 1) = "Koop/Verkoop"
        Cells(1, 2) = "Aantal"
        Cells(1,3)= "Aankoopwaarde/Stuk"
Cells(1,4)="Transactiekosten
Cells(1,5)="Datum"
Cells(1,6)="Tijd"
    End If
   
    l_strA = substr(Sheets(1).Cells(l_strReeks1, 1), "*Koop")
   
End Sub

Ik zie dat mijn macro nog verre van af is, want er moet nog een "end if" en een "next i" in komen, maar ik weet even niet waar.

Zoals ik in het doelbereik aangeef met de kolomkoppen kun je zien dat ik ook graag de datum en tijd graag wil scheiden.
Wie kan mij helpen?
Het resultaat van deze macro kan in sheet(2) gezet worden.

 

[AHulpje]

Zie de formules in de kolommen B en C. Je zipje is slechts 22 bytes groot?

 

[RoVo1211]

Ik stuur je een nieuwe.

 

[AHulpje]

Probeer het hier eens mee:

 

[RoVo1211]

Ahulpje, je hebt mij al eerder goed geholpen en ook deze keer ben ik heel blij met je oplossing.
Ik heb de macro iets aangepast, zo heb ik de kolommen "Verkoopprijs"en "Totaal" toegevoegd ga ik het aantal aandelen bij een verkooptransactie negatief maken. Daarnaast wil ik ook de opmaak verbeteren.

Maar nogmaals: je hebt me weer goed geholpen met die mathematische formules.

 

[AHulpje]

Graag gedaan, zet je hem nog even op "Opgelost"?

 

[RoVo1211]

Ga ik doen.