VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Preisermittlung aus Artikel-/Kundenmatrix

Gruppe

Funktion

Bereich

INDEX

Thema

Preisermittlung aus Artikel-/Kundenmatrix

Problem

Unter Angabe des Kunden und des Artikels soll ein Preis aus einer Tabelle ermittelt werden.

Lösung

Folgende Formel: =INDEX(Kunden!A1:Z2000;VERGLEICH(B2;Kunden!A:A;0);VERGLEICH(A2;Kunden!1:1;0))




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