Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von Excel in PowerPoint
 19.07.2011 11:30:00 Johannes Ebert
NotSolved
20.07.2011 12:34:10 Dekor
*****
Solved

Ansicht des Beitrags:
Von:
Johannes Ebert		 Datum:
19.07.2011 11:30:00		 Views:
2062		 Rating:
     
Antwort:
  Ja
Thema:
Daten von Excel in PowerPoint

Hallo Leute,
Ich versuche gerade Daten aus einem Excel Sheet in eine vorformatierte Powerpoint Tabelle zu übertragen. Das Ziel ist es die Datentablle quartalsmäßig zu updaten und dann die power point einfach durch wiederholte durchführung des makros anzupassen. Ich hab an eine Art mapping tabelle gedacht. Ich bin mir aber nicht sicher ob es nicht besser wäre eine Excel tabelle einfach in Powerpoint zu kopieren und dort zu formatieren. Wichtig ist dass der Formatierungsaufwand am Ende möglichst gering bleibt.
Ich befasse mich erst seit kurzem mit VBA und scheitere auch schon an der simplen copy&paste aufgabe den Inhalt der zellen A224 bis A44 in die Zellen (4,1) bis (23,1) der powerpoint tabelle zu bekommen. Code anbei. Ich bekomm da immer die Fehlermeldung Sub oder Funktion nicht definiert. Ich bin für jede Anregung zum dem Herangehensweise und zu dem Problem im speziellen sehr dankbar!!!

leider funktioniert das code tool irgendwie gerade nicht deshalb muss ich ihn leider so posten

Sub Copy()
Dim Excel As Object
Dim j As Integer
Set Excel = GetObject(, "Excel.Application")
With ActivePresentation.Slides(4).Shapes
    For i = 1 To .Count
        If .Item(i).HasTable Then
               If .Item(i).Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = "Indicator" Then
               For j = 25 To 44
               .Item(i).Table.Cell(j - 21, 1).Shape.TextFrame.TextRange.Text = Excel.ActiveWorkbook.Worksheets("InvMarket RiskKRI").Range(Cells(j, 1)).Value
              Next
        End If
        End If
    Next

End With

End Sub

Viele Grüße

Johannes

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von Excel in PowerPoint
 19.07.2011 11:30:00 Johannes Ebert
NotSolved
20.07.2011 12:34:10 Dekor
*****
Solved