Zu komplizierte Formel bei einfachem Kopiervorgang

[BoskoBiati]

Hallo,

wenn man die Hilfe zur Funktion ERSETZEN in Excel durchliest, dann hat man genau das Gleiche.

[Lago]

Code:

Sub Stringkonstruktion()
Range("A:A").Font.Name = "Courier New"
Range("A1") = "Zur Demonstration der Wirkungsweise der WorksheetFunction.Replace - Methode " & _
"führen Sie bitte wiederholt die unten stehende Prozedur mit dem Namen Demonstration aus."
Columns(1).EntireColumn.AutoFit
Range("A2") = String(Len(Range("A1")), "X")
End Sub

'*****

Sub Demonstration()
'Demonstration der WorksheetFunction.Replace Methode"
'https://msdn.microsoft.com/de-de/library/office/ff194800.aspx
'http://codevba.com/excel/WorksheetFunction/Replace.htm#.V5s1ZzVpVql

Dim vbZelleA1 As String, vbZelleA2 As String, vbStart As Integer, vbLänge As Integer
Randomize
vbLänge = Application.RandBetween(1, 15)
vbStart = Application.RandBetween(1, Len(Range("A1")) - vbLänge)

If vbStart + vbLänge <= Len(Range("A1")) Then
vbZelleA1 = Range("A1")
vbZelleA2 = Range("A2")
Range("A2") = WorksheetFunction.Replace(Range("A2"), vbStart, vbLänge, Mid(Range("A1"), vbStart, vbLänge))
End If

End Sub