|
Hallo,
ich bekomme, wenn ich die Subroutine "Zelleauslesen" laufen lasse, den Fehler "Fehler beim Kompilieren, Benutzerdefinierter Typ nicht definiert", in Zeile 20 (Dim Rng As Range). Ich weiß nicht, ob es möglicherweise daran liegt, dass ich das Häckchen nicht gesetzt habe aber ich glaube eigentlich nicht. (Weiß auch nicht genau wie das geht...)
Die KW wird wie vorher beschrieben immer noch nicht in den Titel der neuen pptm Datei gesetzt, ziemlich sicher weil die Routine dafür diesen Fehler hat.
Danke und Gruß
Olli
Option Explicit
Public KW As Variant
Sub Zelleauslesen()
Dim pfad As String, datei As String, blatt As String, bezug As String
pfad = "MeinPfadDerExclTabelle"
datei = "Status ?bersichtstabelle.xlsx"
blatt = "copy paste Tabellen"
bezug = "D3"
KW = GetValue(pfad, datei, blatt, bezug)
Call DateispeichernmitKW
End Sub
Private Function GetValue(pfad As String, datei As String, blatt As String, bezug As String)
Dim Rng As Range
With CreateObject("Excel.Application")
With .Workbooks.Open(pfad & "\" & datei).Sheets(blatt)
Set Rng = .Range(bezug)
GetValue = Rng.Value
End With
.Quit
End With
End Function
Sub DateispeichernmitKW()
Dim PPT As PowerPoint.Application
Dim pfad2 As String
Dim dateiname As String
Set PPT = New PowerPoint.Application
pfad2 = "PfadFürDieNeuepptmDatei"
dateiname = "speicherversuch"
Application.DisplayAlerts = False
PPT.ActivePresentation.SaveAs FileName:=pfad2 & dateiname & KW & ".pptm"
Application.DisplayAlerts = True
ActivePresentation.Close
End Sub
|