Hulp bij een programma.

[aiky]

Beste,

Eerst en voorla ik ben geen krak ik het programmeren, maar hoop het toch te worden.
Ik ben bezig een programma aan het schrijven die me moet helpen een lijst om te vormen.
(Zie bijlage).
Nu wil ik hetvolgende:
ik heb twee kolommen met tekst, bij één van de kolommen wil ik de getallen in een drie verschillende kolommen plaatsen.
bv: 1921x0905x0016 H BODEM
hierbij wil ik nu dat 1921 in een aparte kolom word geschreven
0905 ook in een andere kolom en hetzelfde voor 0016.
Maar het lukt me gewoon niet.
Kan iemand mij hierbij helpen?
Bedankt bij voorbaat.
Ik heb reeds volgende code geschreven:

Sub zaaglijst()


Columns("A:C").Select
Selection.ClearContents

Columns("F:AM").Select
Selection.Delete

Rows("1:1").Select
'Selection.ClearContents
Selection.Delete

Dim tekst
Dim tekst2
Dim tekst3
Dim mycollection As New Collection

For counter = 1 To 1000
Set curcell = Worksheets("Lisa1").Cells(counter, 4)
If (curcell.Value) = "" Then
MsgBox ("EINDE VAN DE REEKS")
Exit Sub
Else
tekst = Left(curcell, 4)
tekst2 = Mid(curcell, 6, 4)
tekst3 = Mid(curcell, 11, 4)
End If
Next counter

End Sub

 

[Hoornvan]

aiky,

Kijk hier eens misschien kun je er wat mee.

Deze code.

Columns("A:C").Select
Selection.ClearContents

Columns("F:AM").Select
Selection.Delete

Rows("1:1").Select
'Selection.ClearContents
Selection.Delete

Dit doet het zelfde.

Columns("A:C").ClearContents
Columns("F:AM").Delete
Rows("1:1").Delete
'Selection.ClearContents

 

[Wigi]

Zie bijlage en voer de macro eens uit.

Wigi