Hallo,

na ja, ihr müßt eurem Code schon mitteilen, von welchem Blatt die Daten "geholt" werden sollen.

So wie ihr das geschrieben habt, werden die Daten vom gerade aktiven Tabellenblatt "geholt". Und wenn das nicht das Blatt "Methodensammlung" ist, dann passt das halt einfach nicht.

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

Ich bin mal davon ausgegangen, dass die Mappe in der sich das Tabellenblatt "Methodensammlung" befindet die Mappe ist, in der sich auch der Code befindet.

Um nicht vor jedes Cells(...  das entsprechende Blatt schreiben zu müssen habe ich ein With - End With verwendet. Durch den Punkt vor Cells wird dabei auf das im With angegebene Tabellenblatt referenziert.

Gruß Werner