Excel macro's wie kan mij hiermee helpen

[elleuh]

ik ben nog geen excel macro's pro maar probeer al een tijdje te zoeken hoe ik dit moet doen;
ik wil in een bestandje alleen de cijfers kunnen gebruiken in een cel waar ook letters in staan hoe kan ik alleen die cijfers gebruiken.
wie kan mij helpen

mvg ellen

 

[Wigi]

Dag Ellen

Staan de cijfers en letters door elkaar in een cel, of in 1 blok?

Doe anders maar een voorbeeldbestandje erbij, dat werkt het gemakkelijkste.

Wigi

 

[elleuh]

ik heb dus in 1 cel door elkaar cijfers en letters staan
en dit is dan een lange sliert met cellen met cijfers en letter en cellen met alleen letters

zie bijlage

 

[Wigi]

Graag een voorbeeldbestand opslaan als versie 97-2003, anders krijg ik het niet geopend (zonder converter).

 

[Roncancio]

Graag een voorbeeldbestand opslaan als versie 97-2003, anders krijg ik het niet geopend (zonder converter).

Bij deze.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Ellen, volgende code zet de getallen in kolom B

Sub Cijfers()
    Dim lngIndex As Long
    Dim strTemp As String
    For Each c In Range("a1:a28")
        strTemp = c.Value
        For lngIndex = 65 To 90
            strTemp = Application.WorksheetFunction.Substitute(UCase(strTemp), Chr(lngIndex), "")
        Next
        c.Offset(0, 1).Value = strTemp
    Next c
End Sub

Mvg

Rudi

 

[Jan van Asseldonk]

Met deze macro worden de cijfers in de 1e kolom rechts en de letters (en leestekens etc) in de 2e kolom rechts van je gegevens geplaatst. Plaats de cursor in de cel met het eerste te splitsen gegeven en run de macro.

Sub SplitsLettersEnCijfers()
'
' SplitsLettersEnCijfers Macro
'
Dim i As Integer
Dim c As String
Dim t As String
Dim a As String
'
    a = ActiveCell.Address
    While ActiveCell.Formula <> ""
        c = ""
        t = ""
        For i = 1 To Len(ActiveCell.Formula)
            If Asc(Mid(ActiveCell, i, 1)) < 58 And Asc(Mid(ActiveCell, i, 1)) > 47 Then
               c = c & Mid(ActiveCell, i, 1)
            Else
                t = t & Mid(ActiveCell, i, 1)
            End If
        Next
    ActiveCell.Offset(0, 1).Formula = c
    ActiveCell.Offset(0, 2).Formula = t
    ActiveCell.Offset(1, 0).Select
    Wend
    Range(a).Select
End Sub