Top-Themen

Aktuelle Themen (A bis Z)

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, 13862 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.

MFG 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 ..
Ähnliche Inhalte
Microsoft Office
Powerpoint Viewer
gelöst Frage von Winfried-HHMicrosoft Office9 Kommentare

Guten Morgen Experten, ich suchte im Internet gerade nach dem aktuellen PowerPoint-Viewer. Aber das neueste was ich finde ist ...

Datenbanken
BULK INSERT mit Auslassen von Feldern, bzw. ergänzen von Feldern
Frage von TiCarDatenbanken1 Kommentar

Hi, ich würde gerne eine CSV Datei in eine Tabelle laden und die Tabelle hat aber noch zusätzliche Felder ...

JavaScript
JS wenn Feld leer dann Wert aus anderen Feld hollen
gelöst Frage von dax4funJavaScript3 Kommentare

Hi, Leute Ihr kenn das sicher beim ausfüllen von HTML Formularen, wenn gefragt wird wenn Lieferadresse und Rechnungsadresse unterschiedlich ...

Microsoft Office
Excel Feld in anderes Feld übernehmen, aber mit Sternchen versehen
gelöst Frage von Flo985Microsoft Office5 Kommentare

Hallo zusammen, ich hoffe die Excelspezialisten können mit weiterhelfen. Folgendes Problem. In Zelle A1 steht eine Artikelnummer. Beispiel: ET100200 ...

Neue Wissensbeiträge
Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 13 MinutenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...