MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.10.2018, 11:01   #1
AnfängerSammy
Neuer Benutzer
Neuer Benutzer
Standard Frage - Vergleich von Powerpoint Textfeld mit Excel Textfeld

Hallo Zusammen,

ich hätte folgendes Programm zu schreiben. Bin zwar kein blutiger Anfänger aber noch ziemlich unerfahren.

Folgendes Problem:
ich hab eine Powerpoint Datei mit 270 Seiten bei der auf jeder Seite eine Textfeld mit Teilenummer ist.
Diese Teilenummer bekomme ich aus einer Exceldatei mit 270 Zeilen.
Jetzt bekomme ich 5 Wochen später eine Exceldatei mit 280 Zeilen und eine paar aktualisierten Teilenummern.

Nun möchte ich die Teilenummern von der PPT Datei und der neuen Excel Datei vergleichen. Sollte Sie vorhanden sein würde ich diese Folie in eine neue PPT-Datei 1 zu 1 kopieren wollen. Sollte die Teilenummer von der Excel nicht in der PPT-Datei vorkommen soll eine neue Folie erstellt werden und sollte eine Teilenummer nur in der PPT-Datei aber nicht mehr in der Excel Datei vorkommen soll die Seite gelöscht werden.

Also was ich konkret brauche ist.
Textfeldervergleich von PPT und Excel
Duplizieren von Folien
Löschen von Folien
Erstellen einer neuen Folie

Ich weiß ist sehr viel aber wäre Dankbar für ein paar Tipps zumindest zu eine paar Sachen

Grüße Sammy
AnfängerSammy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.10.2018, 11:35   #2
Fennek11
MOF Profi
MOF Profi
Standard

Hallo,

du hast zumindest Mut, einen Versuch wäre es wert.

Lade bitte in pptx und eine passende xlsx hoch. Alle Texte mit Ausnahme der Art.-Nr können durch Phantasie-Texte ersetzt werden, aber die Anzahl der shapes in ppt und falls mehrzeilig, auch das, sollten übereinstimmen. 2-3 slides werden reichen.

Da es in ppt keinen Rekorder mehr gibt, ist VBA "etwas ungemütlich".

mfg
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.10.2018, 11:55   #3
AnfängerSammy
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

des eine wäre die "alte" PPT Datei (man sieht nur die Teilenummer)
des andere wäre die Upgedatete Excel Datei mit 2 Zusätzlichen Teilen.

Die beiden schon Vorhanden Seiten dürfen nicht verändert werden (da sind normal noch Bilder und alles dabei).
und für die 2 neuen sollen neue Seiten erstellt werden.

Grüße Sammy
Angehängte Dateien
Dateityp: xls BeispielExcel.xls (59,0 KB, 2x aufgerufen)
Dateityp: pptx BeispielPPT1.pptx (36,9 KB, 3x aufgerufen)

Geändert von AnfängerSammy (11.10.2018 um 11:58 Uhr).
AnfängerSammy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.10.2018, 13:16   #4
Fennek11
MOF Profi
MOF Profi
Standard

Hallo Sammy,

wer hat den diesen Präsentation, insbesondere die Textfelder konzipiert?

Der nachfolgende Code sollte für alle Slides die Art.-Nr. auslesen und im Debug-Fenster anzeigen. Lasse den Code im Einzelschrittmodus F8 laufen, damit du sofortFehler erkennen kannst.

Nur wenn dieser Test erfolgreich ist, kann es weiter gehen.

Code:

'Type 19, 17
Sub Te1()
With ActivePresentation
    For i = 1 To .Slides.Count
    
        For j = 1 To .Slides(i).Shapes.Count
            If .Slides(i).Shapes(j).Type = msoTextBox Then
                Debug.Print i, .Slides(i).Shapes(j).TextFrame2.TextRange.Text
                Exit For
            End If
        Next j
    
    Next i
End With
End Sub
mfg
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.10.2018, 21:40   #5
MachMalWas
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Sammy,

Du beschreibst 4 verschieden Aufgabe. Also zerlege diese doch in VB-Code.
1. Textfeldervergleich von PP und XL

Verbindung zu XL um die Daten auszulesen.
XL.Daten in Variable speichern(Feld, eigenen Type oder Collection).

PP Folien auslesen (wie Fennek11 beschrieben) aber auch in PP.Daten Variable speichern.

Vergleichen der Teilenummer mit (If XL.daten = PP.Daten then... oder celect Case).

Je nach Ergebnis werden dann folge Funktion ausgeführt.


Call Duplizieren_von_Folien(folie as Slide)
Call Löschen_von_Folien(folie as Slide)
Call Erstellen_ einer_ neuen_Folie()

Gruß Harald
MachMalWas ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.10.2018, 07:22   #6
Fennek11
MOF Profi
MOF Profi
Standard

Hallo,

nach einigen Tests hoffe ich, alle notwendigen Komponenten zu haben. Hier der Code zum Übertrage der Daten von Excel:

Code:

Sub Daten_aus_Excel()
Dim XL As Object
Dim WB As Object

Set XL = CreateObject("Excel.Application")
XLS = ActivePresentation.Path & "BeispielExcel.xls"

Set WB = XL.workbooks.Open(XLS)

    Ar = WB.sheets("Daten").Columns(1).specialcells(2)
    
WB.Close 0
XL.Quit
End Sub
Der Code zum Identifizieren des Textfeldes ist recht kompliziert, es wäre einfachen für dieses Feld einen Namen zu vergeben.

Insgesamt ist die fehlende Rückmeldung des Fragestellers eine Zumutung!.

mfg
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:06 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.