Ændring af tekst.

Et hurtigt bud:

=VENSTRE(A1;2)&":"&MIDT(A1;3;2)&":"&MIDT(A1;5;2)&":"&MIDT(A1;7;2)&":"&MIDT(A1;9;2)


Kan nok laves smartere.

Hvis teksten er af vilkårlig længde vil denne makro klare det. Når teksten skrives i kolonne A fremkommer resultatet i kolonne B.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TextMedKolon As String
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Application.WorksheetFunction.IsText(Target) = True Then
TextMedKolon = Left(Target, 2)
For x = 3 To Int(Len(Target) / 2) * 2
TextMedKolon = TextMedKolon & ":" & Mid(Target, x, 2)
Next
Target.Offset(0, 1) = TextMedKolon
Else
Target.Offset(0, 1) = ""
End If
End If
End Sub

En rettelse til makroen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TextMedKolon As String
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Application.WorksheetFunction.IsText(Target) = True Then
TextMedKolon = Left(Target, 2)
For x = 3 To Len(Target) Step 2
TextMedKolon = TextMedKolon & ":" & Mid(Target, x, 2)
Next
Target.Offset(0, 1) = TextMedKolon
Else
Target.Offset(0, 1) = ""
End If
End If
End Sub

Tak for svaret.

.

Du får et svar, som du kan acceptere, hvis det ellers var mit forslag du takkede for