Ich suche etwas das meine Tabelle in Powerpoint um eine Zeile vergrößert,wenn ich dementsprechen viele Werte haben. Bisher versuche ich es damit:
While Cells(Zeile, 1) (ungleich*) ""
If TabellenZeile (größer*) 21 Then
MSppt.ActivePresentation.Slides(ppt_slide).Shapes("Group 155").Table.Rows.Add _
(MSppt.ActivePresentation.Slides(ppt_slide).Shapes("Group 155").Table.Rows(1))
End If
If Cells(Zeile, 12) = "Sonstige" Then
If Len(Cells(Zeile, 3).Text) (größer*) 83 Then
Shorttitle = Left(Cells(Zeile, 3).Text, 83)
Else: Shorttitle = Cells(Zeile, 3).Text
End If
With MSppt.ActivePresentation.Slides(ppt_slide)
.Shapes("Group 155").Table.Cell(TabellenZeile, 1).Shape.TextFrame.TextRange.Text = Replace(Cells(Zeile, 1).Text, Chr(10), Chr(13))
.Shapes("Group 155").Table.Cell(TabellenZeile, 2).Shape.TextFrame.TextRange.Text = Replace(Cells(Zeile, 2).Text, Chr(10), Chr(13))
.Shapes("Group 155").Table.Cell(TabellenZeile, 3).Shape.TextFrame.TextRange.Text = Replace(Shorttitle, Chr(10), Chr(13))
.Shapes("Group 155").Table.Cell(TabellenZeile, 4).Shape.TextFrame.TextRange.Text = Replace(Cells(Zeile, 4).Text, Chr(10), Chr(13))
.Shapes("Group 155").Table.Cell(TabellenZeile, 5).Shape.TextFrame.TextRange.Text = Replace(Cells(Zeile, 5).Text, Chr(10), Chr(13))
.Shapes("Group 155").Table.Cell(TabellenZeile, 6).Shape.TextFrame.TextRange.Text = Replace(Cells(Zeile, 6).Text, Chr(10), Chr(13))
End With
TabellenZeile = TabellenZeile + 1
End If
Zeile = Zeile + 1
Wend
Bekomme dann aber einen Laufzeitfehler '13' angezeigt. Die Übertragung der Daten in die PowerPoint Folie läuft optimal nur die Erweiterung der Tabelle funktioniert dann leider nicht.
Vielen Dank für eure Hilfe
(*damit es zu keinen Formatierungsproblemen kommt)