Tekst samenvoegen

[lambiekske2611]

Hallo Allemaal,
Het bestandje dat ik er bij heb gedaan is een excel met macro bestand, doordat ik tekst heb geimpoterd . Mijn probleem is dat alser tussen kolom A en B een kolom wordt ingevoegd, en ik voeg dan tekst uit A2 eb C2 samen naar B1 en verwijder dan rij 2, dan geeft dit een foutmelding in de doelcel.
Kan iemand mij hiervoor een vba code voor een macro maken ik kom tijd tekort om alles na te lezen?

 

[Timshel]

Je komt kennelijk ook tijd tekort om je vraag helder te formuleren, je spelling nog eens na te lopen en een bijlage te plaatsen die duidelijk maakt wat er misgaat.
Probeer het nog eens.

 

[VenA]

Volgens mij is import niet helemaal goed gegaan. Obv jouw voorbeeldje kan je deze proberen.

Sub VenA()
With Sheets(1)
    For j = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Len(.Cells(j, 2)) > 1 Then
            If Asc(Mid(.Cells(j, 2), 2, 1)) = 196 Then .Cells(j, 1).Resize(12).Rows.EntireRow.Delete
        End If
    Next j
    .Columns(7).Insert
    .Columns(6).TextToColumns Space:=True
    ar = .Cells(1).CurrentRegion.Resize(, 12)
    ReDim ar1(1 To UBound(ar) / 2, 1 To 12)
    For j = 1 To UBound(ar) - 1
        ar1(((j + 1) / 2), 1) = ar(j + 1, 1) & ar(j + 1, 2) & ar(j + 1, 3)
        For jj = 2 To 12
            If Right(ar(j, jj), 1) = "-" Then ar1(((j + 1) / 2), jj) = Replace(Replace(ar(j, jj), "-", ""), ".", ",") * -1 Else ar1(((j + 1) / 2), jj) = ar(j, jj)
        Next jj
        j = j + 1
    Next j
    .Cells.ClearContents
    .[A1].Resize(UBound(ar1), 12) = ar1
End With
End Sub