Sub
Daten22()
Dim
sh
As
Worksheet
Set
sh = Worksheets(
"Tabelle2"
)
With
Worksheets(
"Tabelle1"
)
.Range(
"A5:F5"
).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range(
"A5"
).Value = sh.Range(
"I11"
).Value
.Range(
"B5"
).Formula2R1C1 =
"=QRCode(RC[-1])"
.Range(
"C5"
).Value = sh.Range(
"I5"
).Value
.Range(
"D5"
).Value = sh.Range(
"I7"
).Value
.Range(
"E5"
).Value = sh.Range(
"I9"
).Value
.Range(
"F5"
).Value = sh.Range(
"I3"
).Value
End
With
sh.Range(
"I3,I5,I7,I9,I11"
).ClearContents
End
Sub