Hallo Zusammen,
ist vielleicht für viele trivial aber ich habe leider nicht viele Kenntnisse in VBA Programmierung und Excel Makro erstellung und deswegen wollte ich folgendes Problem ansprechen.
Ersteinmal der Quellcode:
Sub Daten_ausExcel_holen()
'Werte aus Exceldatei holen und in PowerPoint Textfeldern zuweisen
Dim wb As Workbook, wks As Worksheet
Dim Folie As Slide, Textfeld As Shape
'Exceldatei öffen und Tabellenblatt zuweisen
Set wb = Workbooks.Open(FileName:="C:\Transfer\Mappe1.xlsx", ReadOnly:=True) '<--- Pfad zur Excel Datei anpassen
Set wks = wb.Worksheets("Daten") '<--- Den Namen der Tablle anpassen
'Textfeldern in PowerPoint Folien Wete aus der Exceldatei zuweisen
Set Folie = ActivePresentation.Slides(1)
Set Textfeld = Folie.Shapes("Textfeld 14") '<--- Den Namen der Form anpassen
Textfeld.TextFrame.TextRange.Text = wks.Range("A2").Text '<--- Die Zelle anpassen
Set Folie = ActivePresentation.Slides(2)
Set Textfeld = Folie.Shapes("Textfeld 15") '<--- Den Namen der Form anpassen
Textfeld.TextFrame.TextRange.Text = wks.Range("B2").Text '<--- Die Zelle anpassen
'Exceldatei schliessen
wb.Close savechanges:=False
End Sub
und zwar sagt er wenn ich das Makro ausführen will "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert" und springt
dann auf Dim wb As Workbook (2.Zeile). Wieso ist diese Variable nicht deklariert? Brauche ich dafür eine bestimmte Bibliothek oder
ähnliches?
Wäre froh über eine Hilfestellung
MfG
Sammy
|