Office: Shapes/Object Adressierung

Hallo Liebe Excel(VBA)-Freunde

Ich habe ein Excel-File, dort können Kundenbesuche eingegeben werden (mit Besuchernamen, Datum, Firmenname, verantwortliche Betreuer, Land). Nach der Eingabe sollen die Daten in eine Powerpoint Folie übertragen werden und mit als <Firmenname>_<Datum>.pps für jeden Besucher/Kunden neu gespeichert werden.

Ich hab die Folien-Vorlage in ein Sheet eingebettet und verfahre bisher so das ich die Folien-Vorlage ("Object 2") in ein neues Sheet kopiere und dann mit Textboxen füllen möchte! Das klappt sporadisch...

Da liegt mein Problem - sporadisch klappts nur! Wie kann ich dieses Object/Shape (kopierte Vorlage der Folie) direkt ansprechen?

Bisher so:
'neues Sheet mit kopierter Folien-Vorlage aktivieren/selektieren
Sheets(Worksheets.Count).Shapes("Object 1").Select
ActiveSheet.Shapes("Object 1").Select

'Slide zum bearbeiten öffnen
Selection.Verb Verb:=xlOpen

Bei mehreren Besuchen habe ich dann mehrere Sheets mit den Folien. Diese Folien heißen dann alle "Object 1". Ich muss die doch direkt ansprechen können? Nur wie?

Ich hoffe mir kann wer helfen und Danke schonmal.

lg Pavel

 

hmm kannste mal ein beispiel hochladen?

 

Moin Moin,

Also da ist das Teil ... In der Version muss man nur einen Namen bei Firma eintragen und ein Datum (von/bis) >= Systemdatum auswählen.

Danke für deine Hilfe.

lg pavel

*edit: Datei wieder gelöscht.