Thema Datum  Von Nutzer Rating
Antwort
Rot Frage zu Excel Makro (Benutzerfreundlich machen)
 09.08.2018 09:41:13 Samuel Fischer
NotSolved
09.08.2018 09:43:17 Samuel Fischer
NotSolved
09.08.2018 18:16:07 Daniel
NotSolved
13.08.2018 09:08:32 Samuel Fischer
NotSolved
13.08.2018 11:16:45 Samuel Fischer
NotSolved
13.08.2018 11:52:58 Samuel Fischer
Solved

Ansicht des Beitrags:
Von:
Samuel Fischer		 Datum:
09.08.2018 09:41:13		 Views:
1034		 Rating:
     
Antwort:
  Ja
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. 

 
?
1
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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
     
   <em> <strong>Set wb = Workbooks.Open(FileName:="C:\Transfer\Mappe1.xls", ReadOnly:=True) </strong></em>  '>> 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")
<strong>   <em> Textfeld4.TextFrame.TextRange.Text = "TER/K Bauteilrecherche AUXXX"</em>  '>> Hier Fahrzeug-Typ eingegben</strong>

 

 

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

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Frage zu Excel Makro (Benutzerfreundlich machen)
 09.08.2018 09:41:13 Samuel Fischer
NotSolved
09.08.2018 09:43:17 Samuel Fischer
NotSolved
09.08.2018 18:16:07 Daniel
NotSolved
13.08.2018 09:08:32 Samuel Fischer
NotSolved
13.08.2018 11:16:45 Samuel Fischer
NotSolved
13.08.2018 11:52:58 Samuel Fischer
Solved