Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Berechnende Felder in Powerpoint möglich ?

Frage Microsoft Microsoft Office

Mitglied: rudolf-maier

rudolf-maier (Level 1) - Jetzt verbinden

03.07.2008, aktualisiert 16.07.2008, 11778 Aufrufe, 5 Kommentare

Hallo,

wir haben in der Firma eine bestehende PPT Präsentation die für bestimmte
Finanzierungsformen verwenden.
Da viele Felder immer manuell berechnet und ausgebessert werden müssen
würde ich dies gerne über berechnende Felder ändern.
Leider hab ich nicht herausgefunden ob das möglich ist. Wenn es gar nicht
anders geht evtl. auch in Verbindung mit Excel.
Aber eigentlich möchte ich es so einfach halten für den User wie möglich.

Danke für die Hilfe schon im Voraus.

Maier Rudi
Mitglied: misterdemeanor
03.07.2008 um 21:44 Uhr
Mahlzeit Maier Rudi!

Inwiefern "Felder" in Powerpoint berechnend sein können weiß ich nicht. Vor Gericht würden Sie sicher als unzurechnungsfähig oder höchstens für grob fahrlässig eingestuft werden

Scherz bei Seite

Bevor man Dir echte Ratschläge oder Lösungsansätze präsentieren kann müsste man mehr erfahren:

  1. Meinst Du mit "Felder" einfache Textfelder auf Folien?
  2. Wie sollen diese Felder denn berechnet werden? Gibt es evtl. bestimmte Datenquellen (Datenbank, Textdatei, etc.) auf die zugegriffen werden muss?
  3. Wie sieht es mit Deinen VBA Kenntnissen aus?

Am besten Du schreibst mal ausführlich alles über Deine Problemstellung.

BG, Felix -misterdemeanor
Bitte warten ..
Mitglied: stiehl
03.07.2008 um 22:24 Uhr
Moin,

füge doch einfach ein Excel-Sheet als Objet in PP ein. Das müsste funktionieren.

Gruß

Tim
Bitte warten ..
Mitglied: rudolf-maier
07.07.2008 um 19:48 Uhr
Servus misterdemeanor,

die Präsentation wird ausgedruckt und dann an die Kunden ausgehändigt.
Es soll z.b. aus einem Bruttobetrag die MWST berechnet werden und dann die Nettokosten.
Gewisse Angaben sind also gegeben, mit denen soll dann gerechnet werden, und das Ergebniss in der Präsentation angezeigt werden. Ähnlich wie ein Textfeld nur das der Inhalt halt automatisch drinsteht. Bisher rechnen wir das immer mitn Taschenrechner und tragen das ein.
Das is halt sehr aufwendig und es passieren auch Fehler.
Am besten wäre es wenn die Angaben direkt z.B. auf die erste Seite der Präsentation stehen würden und mann dann jeweils darauf zugreifen kann.
Wenn das nicht geht dann können die Angaben auch ins Excel oder Access eingetragen werden. Das halt dann schon wieder mehr Aufwand, den ich gerne umgehen möchte.
VBA kentnisse habe ich. Zwar schon länger nicht`s mehr gemacht, aber das bekomme ich dann schon hin.

Mit freundlichen Grüßen Rudi
Bitte warten ..
Mitglied: misterdemeanor
07.07.2008 um 21:09 Uhr
Grüß Dich rudolf-maier!

So wie ich Dich verstehe ist diese PPT eine Art Vorlage die Ihr jeweils individuell für einen Kunden anpasst.

Es soll z.b. aus einem Bruttobetrag die MWST berechnet werden und dann die Nettokosten.

OK, aber die Frage die sich mir noch immer stellt: Woher kommt der Bruttobetrag?

Es wäre ohne weiteres möglich mittels einer VBA Funktion Textfelder zu manipulieren.
Wie in Deinem erwähnten Beispiel die MWSt und den Nettobetrag zu errechnen und diese Werte in die dafür vorgesehenen Textfelder auf einer Folie zu schreiben.

Dazu am besten ein kleines Beispiel. Sagen wir das in einer Präsentation auf den Folien 3 und 4 jeweils die Felder MWSt und Nettobetrag neu berechnet werden:

01.
Public Sub BerechneMWStUndNetto() 
02.
    'Die beiden Shapes repräsentieren die Textfelder 
03.
  Dim shMWSt As Shape 
04.
  Dim shNetto As Shape 
05.
    'Nimmt den Bruttobetrag auf mit dem gerechnet werden soll 
06.
  Dim dBrutto As Double 
07.
     
08.
      'Irgendwoher müssen wir ja den Betrag bekommen. 
09.
      'Also z.B. über direkte Nachfrage beim User: 
10.
    dBrutto = CDbl(InputBox("Was´N der Bruttobetrag?.", "Sach mal...")) 
11.
     
12.
      'Hier erstmal die shapes auf die Textfelder von Folie 3 setzen 
13.
    Set shMWSt = ActivePresentation.Slides("Slide3").Shapes("Text Box 5") 
14.
    Set shNetto = ActivePresentation.Slides("Slide3").Shapes("Text Box 6") 
15.
 
16.
      'Nun könen wir anhand des Bruttobetrages rechnen 
17.
      'und die Textfelder entsprechend setzen 
18.
    shMWSt.TextFrame.TextRange.Text = (dBrutto / 1.19) * 0.19 
19.
    shNetto.TextFrame.TextRange.Text = dBrutto / 1.19 
20.
     
21.
      'und das gleiche nochmal für Folie 4 
22.
    Set shMWSt = ActivePresentation.Slides("Slide4").Shapes("Text Box 7") 
23.
    Set shNetto = ActivePresentation.Slides("Slide4").Shapes("Text Box 8") 
24.
    shMWSt.TextFrame.TextRange.Text = (dBrutto / 1.19) * 0.19 
25.
    shNetto.TextFrame.TextRange.Text = dBrutto / 1.19 
26.
     
27.
    Set shMWSt = Nothing 
28.
    Set shNetto = Nothing 
29.
End Sub
Die Namensgebung der Textfelder ("Text Box 5", "Text Box 6", etc.) stammt von Powerpoint. Also müsstest Du ertmal die Namen der betreffenden Textfelder herausbekommen.
Man könnte diese dann mittels VBA einmalig ändern, also z.B.:

01.
ActivePresentation.Slides("Slide3").Shapes("Text Box 5").Name = "txtMWSt"
was die Lesbarkeit des Codes natürlich enorm verbessern würde...

OK, sag mal Bescheid ob Du damit was anfangen kannst.

BG, Felix -misterdemeanor-

[EDIT]
Hofftl. hat das niemand bemerkt...hatte irgendwie N Knoten im Gedanken und was völlig falsches berechnet.
Hab das mal schnell im Code geändert.
[/EDIT]
Bitte warten ..
Mitglied: rudolf-maier
16.07.2008 um 20:56 Uhr
Hi,

hab eine Laufzeitfehler:
This type of shape cannot have a textRange
in der Zeile:
shMWSt.TextFrame.TextRange.Text = (dBrutto / 1.19) * 0.19

Kannst du mir Helfen ?

Danke !
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Festplatten, SSD, Raid
Performancesteigerung des RAID Arrays möglich? (13)

Frage von takvorian zum Thema Festplatten, SSD, Raid ...

Windows Netzwerk
Kein RDP über VPN per MS-TSC möglich (9)

Frage von survial555 zum Thema Windows Netzwerk ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...