With
ThisWorkbook.Worksheets(
"Methodensammlung"
)
pptPres.Slides(i).Shapes(
"Textplatzhalter 17"
).TextFrame.TextRange.Characters.Text = .Cells(i, 2).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 18"
).TextFrame.TextRange.Characters.Text = .Cells(i, 3).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 1"
).TextFrame.TextRange.Characters.Text = .Cells(i, 4).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 2"
).TextFrame.TextRange.Characters.Text = .Cells(i, 5).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 3"
).TextFrame.TextRange.Characters.Text = .Cells(i, 6).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 4"
).TextFrame.TextRange.Characters.Text = .Cells(i, 7).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 7"
).TextFrame.TextRange.Characters.Text = .Cells(i, 8).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 11"
).TextFrame.TextRange.Characters.Text = .Cells(i, 9).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 8"
).TextFrame.TextRange.Characters.Text = .Cells(i, 10).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 9"
).TextFrame.TextRange.Characters.Text = .Cells(i, 11).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 5"
).TextFrame.TextRange.Characters.Text = .Cells(i, 12).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 10"
).TextFrame.TextRange.Characters.Text = .Cells(i, 19).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 6"
).TextFrame.TextRange.Characters.Text = .Cells(i, 13).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 12"
).TextFrame.TextRange.Characters.Text = .Cells(i, 14).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 13"
).TextFrame.TextRange.Characters.Text = .Cells(i, 15).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 14"
).TextFrame.TextRange.Characters.Text = .Cells(i, 16).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 15"
).TextFrame.TextRange.Characters.Text = .Cells(i, 17).Value
pptPres.Slides(i).Shapes(
"Textplatzhalter 16"
).TextFrame.TextRange.Characters.Text = .Cells(i, 18).Value
End
With