VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Preisberechnung über Materialliste

Gruppe

Funktion

Bereich

INDEX

Thema

Preisberechnung über Materialliste

Problem

Aus der Kombination Bauteil, Materialcode, Anzahl und Größe soll der Preis aufgrund der Basispreise aus Blatt Materialliste ermittelt werden.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




StandardModule: Modul1

Sub PowerPointStarten()
   Dim ppApp As Object
   Dim ppP As Object
   Dim sFile As String
   sFile = ThisWorkbook.Path & "\3ulrich.ppt"
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Die Datei " & sFile & " existiert nicht!"
      Exit Sub
   End If
   Set ppApp = CreateObject("PowerPoint.Application")
   ppApp.Visible = msoTrue
   Set ppP = ppApp.Presentations.Open(sFile)
   ppP.SlideShowSettings.Run
   ppApp.Quit
   Set ppP = Nothing
   Set ppApp = Nothing
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX