Eine Zahl auseinander nehmen

[Officer]

Hi,

alternativ ein wenig kürzer wie folgt:

Code:

Sub Zahl_Neu()

Dim wert1 As String

wert1 = ThisWorkbook.Sheets(1).Range("A1").Text

For a = 1 To 16 Step 2
  wert2 = wert2 & Mid(wert1, a, 2) & ":"
Next a
wert2 = Left(wert2, 23)

End Sub

LG Loisl