Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dauer in Tagen berechnen in Textformularfeldern
zurück: dokumentvorlage weiter: Querverweisen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Mr.Moto
Gast


Verfasst am:
29. Apr 2009, 12:46
Rufname:

Dauer in Tagen berechnen in Textformularfeldern - Dauer in Tagen berechnen in Textformularfeldern

Nach oben
       Version: Office 2003

Hallo,
ich arbeite das erste mal mit Textformularfeldern. Die Suche habe ich schon benutzt aber irgendwie nichts gefunden was mir weiterhilft.
Meine Frage ist:
Ich habe 2 Datumsfelder in die ich ein Datum eingeben kann: "BeginnPlanung" und "EndePlanung" . Nun soll in einem dritten Feld "DauerPlanung" die Dauer in Tagen ausgeben werden. Ist das mit Textfeldern möglich?

Außerdem: Ein in ein Datumsfeld eingegebens Datum soll nach dem erstmaligen Abspeichern nicht mehr bearbeitbar sein, wie funktioniert das?

Grüße
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
29. Apr 2009, 22:23
Rufname:
Wohnort: Leipzig


AW: Dauer in Tagen berechnen in Textformularfeldern - AW: Dauer in Tagen berechnen in Textformularfeldern

Nach oben
       Version: Office 2003

Hallo MrMoto,

ich gehe davon aus, dass Deine Textformularfelder so heißen: BeginnPlanung, EndePlanung und DauerPlanung. Bei BeginnPlanung und bei EndePlanung in den Eigenschaften "Beim Verlassen berechnen" Häkchen setzen und bei "Eingabe zulassen" Häkchen. Typ natürlich auf Datum einstellen. Im Makro ausführen bei: Beenden wählst Du bei dem Feld EndePlanung dieses Makro aus:
Code:
Sub DauerPlanung()

    Dim datBeginn As Date
    Dim datEnde As Date

    If ActiveDocument.Bookmarks.Exists("BeginnPlanung") = True Then
        If ActiveDocument.FormFields("BeginnPlanung").Result <> "" Then
            datBeginn = CDate(ActiveDocument.FormFields("BeginnPlanung").Result)
        End If
    End If
    If ActiveDocument.Bookmarks.Exists("EndePlanung") = True Then
        If ActiveDocument.FormFields("EndePlanung").Result <> "" Then
            datEnde = CDate(ActiveDocument.FormFields("EndePlanung").Result)
        End If
    End If
    If ActiveDocument.Bookmarks.Exists("DauerPlanung") = True Then
        ActiveDocument.FormFields("DauerPlanung").Result = _
            DateDiff("d", datBeginn, datEnde)
    End If

End Sub

Das Feld DauerPlanung braucht kein Häkchen bei "Eingabe zulassen", denn dort soll der Nutzer ja nichts selbst eingeben. Es wird ja durch die Differenz befüllt.

Zur 2. Frage: Dazu müsste das Feld gesperrt werden, etwa in der Routine, die das Formular abspeichert. Könnte man evtl. einen Button im Formular anbringen, auf den der Nutzer dann klickt, um das Formular zu speichern, dabei könnte man bestimmte Felder mit sperren. Das geht auch nur mit VBA.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
05. Mai 2009, 10:48
Rufname:

AW: Dauer in Tagen berechnen in Textformularfeldern - AW: Dauer in Tagen berechnen in Textformularfeldern

Nach oben
       Version: Office 2003

Hallo,
nachdem langen Wochenende bin´ich auch wieder zurück. Ich habe alles so gemacht wie beschrieben, allerdings gibt er bei mir folgende Fehlermeldung beim ausführen aus: "Laufzeitfehler 4198 - Befehl misslungen"
Der Debugger markiert folgenden Bereich gelb:


ActiveDocument.FormFields("DauerPlanung").Result = _
DateDiff("d", datBeginn, datEnde)

Ich habe keine Ahnung woran das liegen könnte...

Grüße..
Mr.Moto
Gast


Verfasst am:
05. Mai 2009, 11:21
Rufname:


AW: Dauer in Tagen berechnen in Textformularfeldern - AW: Dauer in Tagen berechnen in Textformularfeldern

Nach oben
       Version: Office 2003

Es funktioniert!

Ich hatte wohl noch irgendwas im Feld DauerPlanung falsch eingestellt. Denke es stand auf Datum, dabei muss es ja eine normale Zahl sein...

Dankeschön...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word VBA Programmierung (Makros): Bewegliche Feiertage berechnen 0 Blizzy89 197 23. Aug 2013, 13:41
Blizzy89 Bewegliche Feiertage berechnen
Keine neuen Beiträge Word VBA Programmierung (Makros): Tebelleninhalte neu berechnen 2 juma1960 85 07. Mai 2013, 12:39
Gast Tebelleninhalte neu berechnen
Keine neuen Beiträge Word Formate: Word beliebiges Datum +1 Tag berechnen 12 kluffi 1718 30. März 2013, 01:35
theoS Word beliebiges Datum +1 Tag berechnen
Keine neuen Beiträge Word VBA Programmierung (Makros): Algorithmus für eine Tabelle mit TAGEN und DATUM für 2013 0 sayhello 189 10. Nov 2012, 14:58
sayhello Algorithmus für eine Tabelle mit TAGEN und DATUM für 2013
Keine neuen Beiträge Word Hilfe: Berechnen einer Stichprobe in Serienbrieffeld (MERGEFIELD) 1 guntram 789 05. Aug 2011, 14:33
Ute-S Berechnen einer Stichprobe in Serienbrieffeld (MERGEFIELD)
Keine neuen Beiträge Word VBA Programmierung (Makros): Formel in Word berechnen und ausgeben 2 kmieske 1399 10. Mai 2011, 16:16
kmieske Formel in Word berechnen und ausgeben
Keine neuen Beiträge Word Formate: Ändern der Schriftart in Textformularfeldern 5 Matthias,h 9499 29. Jun 2010, 14:47
genau Ändern der Schriftart in Textformularfeldern
Keine neuen Beiträge Word Gestaltungselemente: Berechnung von Textformularfeldern 6 DarkCerberus 383 28. Dez 2009, 16:00
DarkCerberus Berechnung von Textformularfeldern
Keine neuen Beiträge Word Formate: Formatierung von Textformularfeldern 2 remex9 606 03. Dez 2009, 15:51
remex9 Formatierung von Textformularfeldern
Keine neuen Beiträge Word VBA Programmierung (Makros): Summe der Seiten vor einem bestimmten Abschnitt berechnen 0 kabol 2218 09. Okt 2009, 11:19
kabol Summe der Seiten vor einem bestimmten Abschnitt berechnen
Keine neuen Beiträge Word VBA Programmierung (Makros): Farb werte selber berechnen 9 zbridge 1297 04. Sep 2009, 08:39
zbridge Farb werte selber berechnen
Keine neuen Beiträge Word Gestaltungselemente: Tabellen: Summe automatisch berechnen 0 mondial 3416 22. Jan 2009, 11:51
mondial Tabellen: Summe automatisch berechnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln