Clever-Excel-Forum

Seiten: 1 2

Hallo,

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

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

Seiten: 1 2

BoskoBiati

Lago