Sub test()
Dim strTest As String, strOut As String
'Für Text
strTest = "ABC12345DE"
strOut = Left(strTest, 3) & "_" & Mid(strTest, 4, 1) & "_" & Mid(strTest, 5, 2) & "." & Mid(strTest, 7, 2) & "." & Right(strTest, 2)
MsgBox strOut
'Für Zahlen
strTest = "1234567890"
strOut = Format(strTest, "000""_""0""_""00"".""00"".""00")
MsgBox strOut
End Sub
strTest = Activecell.Text
strTest = Left(strTest, 3) & "_" & Mid(strTest, 4, 1) & "_" & Mid(strTest, 5, 2) & "." & Mid( _
strTest, 7, 2) & "." & Right(strTest, 2)
ActiveCell = strTest
Sub formatieren()
Dim vntTmp As Variant
Dim lngIndex As Long
With ActiveSheet
vntTmp = .Range("A1:A25")
For lngIndex = 1 To UBound(vntTmp, 1)
If Len(vntTmp(lngIndex, 1)) = 10 Then
vntTmp(lngIndex, 1) = Left(vntTmp(lngIndex, 1), 3) & "_" & _
Mid(vntTmp(lngIndex, 1), 4, 1) & "_" & Mid(vntTmp(lngIndex, 1), 5, 2) & _
"." & Mid(vntTmp(lngIndex, 1), 7, 2) & "." & Right(vntTmp(lngIndex, 1), 2)
End If
Next
.Range("A1:A25") = vntTmp
End With
End Sub