samenvoegen

Hallo allemaal

Wie kan mij met het volgende helpen
ik heb onderstaande code gemaakt en wil die uitbreiden zie 2e vba excel voorbeeld
maar dan loopt de boel vast
De bedoeling is dat de inhoud van elke cel in kolom a
gekopieerd wordt naar een nieuwe lokatie en voorzien van een min teken
Zodra in kolom 2 de inhoud van de volgende cel niet meer gelijk is aan de de vorige cel
in die kolom dan wordt de nieuwe lokatie een nieuwe regel



Sub samenvoegen()
Dim waarde As String
Dim rij As Integer
B = 3
rij = 2
While Cells(rij, 1) <> ""

'' toevoegen min-teken

waarde = Cells(rij, 1) & " -"


rij = rij + 1
B = B + 1
Cells(1, B) = waarde
Wend

End Sub
+++++++

hier gaat het fout

Sub samenvoegen()
Dim waarde As String
Dim row As Integer
Dim col As Integer
Dim A As Integer
Dim B As Integer
row = 2
col = 2
A = 2
B = 4


Do Until Cells(A, col) = ""
If Cells(A, col) = Cells(A + 1, col) Then
While Cells(row, 1) <> ""
waarde = Cells(row, 1) & " -"

row = row + 1
B = B + 1
Cells(1, B) = waarde
Wend
A = A + 1
End If
Loop

End Sub


graag jullie oplossing
Groet ron

Hallo Sylvester

Helemaal geweldig precies wat ik wilde
Lekkere korte VBA code
ik ging veel te diep in de materie
Dank je wel

Groet Ron