Option
Explicit
Sub
Bsp()
Dim
rng
As
Excel.Range
With
Worksheets(
"Tabelle1"
)
Set
rng = .Range(
"A2:A9"
)
With
.Range(
"A1"
)
.Formula =
"=TEXT(RANDBETWEEN(1000000,10000000),"
"00-0000-0"
")"
.Value = .Value
End
With
With
rng
.Formula =
"=CHAR(65+ROW()-ROW("
& .Cells(1).Address() &
"))"
.Value = .Value
End
With
With
rng.Offset(, 1)
.FormulaR1C1 =
"="
"Test_"
"&RC[-1]"
.Value = .Value
End
With
Call
rng.Resize(, 2).Copy
Call
.Range(
"E2"
).PasteSpecial(xlPasteValuesAndNumberFormats, Transpose:=
True
)
Application.CutCopyMode =
False
End
With
End
Sub