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
    
    '!!!!Überall wo >> ist als Kommentar muss wahrscheinlich was geändert werden
    
    Set wb = Workbooks.Open(FileName:="C:\Transfer\Mappe1.xls", ReadOnly:=True)   '>> Pfad zur Excel Datei anpassen
    
    
    Set wks = wb.Worksheets("Daten")   '>> Den Namen der Tablle in Excel anpassen
    
    Dim i As Integer
    
    'Gibt die Anzahl der Excelelemente an
    Dim lngRow As Long
    lngRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lngRow
    
    Set newSlide = ActivePresentation.Slides(i).Duplicate

    'Kopiert alle Teilenummern aus Excel Liste nacheinander
    Set Folie = ActivePresentation.Slides(i)
    Set Textfeld = Folie.Shapes("Textfeld 14")
    Textfeld.TextFrame.TextRange.Text = wks.Range("A" & i).Text
    
    'Kopiert alle Teilebenennungen aus Excel Liste nacheinander
    Set Folie = ActivePresentation.Slides(i)
    Set Textfeld1 = Folie.Shapes("Textfeld 15")
    Textfeld1.TextFrame.TextRange.Text = wks.Range("B" & i).Text
    
    'Kopiert alle Zusatzbenennungen aus Excel Liste nacheinander
    Set Folie = ActivePresentation.Slides(i)
    Set Textfeld2 = Folie.Shapes("Textfeld 22")
    Textfeld2.TextFrame.TextRange.Text = wks.Range("D" & i).Text
    
    'Kopiert alle Einsatztermine aus Excel Liste nacheinander
    Set Folie = ActivePresentation.Slides(i)
    Set Textfeld3 = Folie.Shapes("Textfeld 21")
    Textfeld3.TextFrame.TextRange.Text = wks.Range("F" & i).Text
    
    'Festlegung des Richtigen Titels jeder Folie (TER/K Bauteilrecherche AUXXX)
    Set Folie = ActivePresentation.Slides(i)
    Set Textfeld4 = Folie.Shapes("Titel 1")
    Textfeld4.TextFrame.TextRange.Text = "TER/K Bauteilrecherche AUXXX"  '>> Hier Fahrzeug-Typ eingegben

Ich würde gerne die 2 dick makierten Zeilen benutzerfreundlicher machen.

Also sodass ich nicht in den Code muss um Fahrzeugtyp-Textfeld anzupassen sondern dies gleich beim öffnen der Powerpoint eine Benutzeroberfläche erscheint in der ich dies eintragen kann.

Und das ich nicht immer den Excel Dateipfad eingeben muss für die relevante Datei sondern diese einfach auswählen könnte auf der Benutzeroberfläche.

Wäre super wenn mir jemand helfen könnte was ich dazu brauche.

Grüße Sammy