Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Frage zu Excel Makro (Benutzerfreundlich machen) |
09.08.2018 09:41:13 |
Samuel Fischer |
|
|
|
09.08.2018 09:43:17 |
Samuel Fischer |
|
|
|
09.08.2018 18:16:07 |
Daniel |
|
|
|
13.08.2018 09:08:32 |
Samuel Fischer |
|
|
|
13.08.2018 11:16:45 |
Samuel Fischer |
|
|
|
13.08.2018 11:52:58 |
Samuel Fischer |
|
|
Von:
Samuel Fischer |
Datum:
09.08.2018 09:41:13 |
Views:
826 |
Rating:
|
Antwort:
|
Thema:
Frage zu Excel Makro (Benutzerfreundlich machen) |
Hallo Zusammen,
bin kein Excel Makro Experte hab mir aber den folgenen Code geschrieben, der auch ganz gut funktioniert.
Aber richtig Benutzerfreundlich ist er noch nicht.
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Frage zu Excel Makro (Benutzerfreundlich machen) |
09.08.2018 09:41:13 |
Samuel Fischer |
|
|
|
09.08.2018 09:43:17 |
Samuel Fischer |
|
|
|
09.08.2018 18:16:07 |
Daniel |
|
|
|
13.08.2018 09:08:32 |
Samuel Fischer |
|
|
|
13.08.2018 11:16:45 |
Samuel Fischer |
|
|
|
13.08.2018 11:52:58 |
Samuel Fischer |
|
|