Programmere VBA-kode til flytning af tekst i Excel

Når der er mellemrum mellem talllene, så er det vel okay at de bliver et tekst-felt ikke?

Nå men så vidt jeg ved så er det kun muligt at lave et mellemrum i mellem to tal, hvis det er tekst-felter...

Men jeg har lavet denne lille makro, den skulle gerne virke efter hensigten... du skal blot ændre feltet allCells til det område som du ønsker at ændringen skal udføres for...

Public Sub flytTal()
Dim oneCell As Range
Dim addNumber As String
Dim allCells As Range
Dim eachNumber As String

Set allCells = Range("A1:A16")

For Each oneCell In allCells
    eachNumber = CStr(oneCell.Value)
    If Len(eachNumber) > 2 Then
        addNumber = eachNumber
    ElseIf Len(eachNumber) > 0 And Len(eachNumber) <= 2 Then
        oneCell.Value = addNumber & " " & eachNumber
    End If

Next


End Sub

Hej Jonesw,

Det virker fint - men jeg glemte måske at forklare i formuleringen, at det det otte-cifrede tal skal stå i en selvstændig celle lige til venstre for cellen med det to-cifrede tal.

Okay.

Så bliver det som følger... Du skal selvfølgelig lige sørger for at der er en kolonne parat til venstre for den kolonne hvor du ønsker at tallene skal flyttes fra.
Endnu engang skal du vælge området i allCells

Public Sub flytTal()
Dim oneCell As Range
Dim addNumber As String
Dim allCells As Range
Dim eachNumber As String

Set allCells = Range("C1:C16")

For Each oneCell In allCells
    eachNumber = CStr(oneCell.Value)
    If Len(eachNumber) > 2 Then
        addNumber = eachNumber
    ElseIf Len(eachNumber) > 0 And Len(eachNumber) <= 2 Then
        oneCell.Offset(0, -1).Value = addNumber
    End If

Next


End Sub

Perfekt! Tak for hjælpen.

Hvordan får jeg tildelt dig dine point for svaret?

Perfekt! Tak for hjælpen.

Hvordan får jeg tildelt dig dine point for svaret?

Det var godt... Jeg ligger lige et svar og så kan du give point...

Tak for hjælpen