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
|