Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word! Werte von Textformularfeldern addieren
zurück: Doppelte Schleife weiter: wie Buttons verschiedener Größe auf Userform ausrichtbar Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
MovingMike
Gast


Verfasst am:
23. Feb 2013, 23:36
Rufname:

Word! Werte von Textformularfeldern addieren - Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Hallo Leute!

Besteht die Möglichkeit die Werte von bestimmten Textformularfeldern zu addieren. Zum Beispiel: Es sollen alle Werte von Textformularfeldern von Seite 3 addiert werden.

Bin leider blutiger Anfänger.

Danke Smile
MarkMH_K
z.Z. gaanz unregelmäßig online


Verfasst am:
24. Feb 2013, 00:46
Rufname: Markus
Wohnort: Köln rrh


AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Hi,

ja. Beschäftige Dich mit Word-Feldern und Textmarken. Das Prinzip ist: hinter jedem Legacy-Formularfeld liegt eine Textmarke, die dessen Ergebnis enthält. Diese kannst Du in einem berechneten Word-Feld am Ende der dritten Seite zusammenzählen. Dafür mußt Du allerdings alle Formularfelder der dritten Seite expressis verbis angeben.

HTH.

Markus
Gast



Verfasst am:
24. Feb 2013, 10:22
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Das Problem besteht darin dass die Textmarken von 1 bis Hausnummer 100 durchnummeriert sind. Die Textmarken verschieben sich je nachdem ob die Textmarke benötigt wird oder nicht. Das heißt ich kann nicht explitzite Namen addieren. Gibts eine Möglichkeit alle auf einer Seite vorhandenen Textmarken zu bestimmen und dann zu addieren. Danke für deine Hilfe.
Gast



Verfasst am:
24. Feb 2013, 11:13
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Ok. Etwas präziser!

In der Fußzeile jeder Seite soll die Summe der Textmarken die sich auf dieser Seite befinden gebildet werden. Mit diesem Summenwert möchte ich anschließend weiter rechnen, beispielsweise soll dieser Wert in die Kopfzeile der nächsten Seite übertragen werden usw.....
MarkMH_K
z.Z. gaanz unregelmäßig online


Verfasst am:
24. Feb 2013, 11:31
Rufname: Markus
Wohnort: Köln rrh


AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Hi,

wenn wir hier von denselben Textmarken reden - gemeint sind die Bookmarks in der VBA-Sprache -, dann ist doch ganz egal, ob die Textmarke nicht benötigt wird: leere Textmarken haben den Wert null, spielen also bei der Addition keine Rolle.

Vielleicht lädst Du die Datei hoch, damit man besser verstehen kann, was Du meinst.

Da Word die Druckseiten immer wieder neu aufbaut, kann man nicht in jeder Datei eine Textmarke einer Seite fest zuordnen.

Man kann alle Textmarken im Dokument per VBA addieren. Ein Ansatz:
Code:
Sub AddAllBM() 'MH 24.02.13
'addiert die Werte aller Textmarken eines Dokuments
Dim doc As Document: Set doc = ActiveDocument
Dim b As Bookmark     'Laufvariable
Dim res As Long           'Ergebnis
On Error Resume Next  'q+d wie immer
  For Each b In doc.Bookmarks
    res = res + Val(b.Range.Text)
  Next b
  MsgBox "Die Textmarken in " & doc.Name & " haben einen Gesamtwert von " & CStr(res)
End Sub 'AddAllBM
HTH.

Markus
----------------------
Ich vergaß: mit demselben Prozeduraufbau kann man sich die Namen aller Textmarken im Dokument ins Direktfenster oder ins Dokument schreiben lassen. Daraus kann man dann die benötigten Feldfunktionen basteln. Da Strg+F9 die Markierung in Feldklammern setzt, muß man nur die Textmarkennamen einzeln markieren.
MovingMike
Gast


Verfasst am:
24. Feb 2013, 12:33
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Hab mal die Datei hochgeladen. Wahrscheinlich ist das ganze eh nicht realisierbar. Sad

http://ul.to/naqoiqv8
MovingMike
Gast


Verfasst am:
24. Feb 2013, 12:41
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Bzw. wäre es schon sehr hilfreich wenn das ganze ohne "Übertrag" möglich ist.
Auf jeden Fall !!Danke!! Smile
MarkMH_K
z.Z. gaanz unregelmäßig online


Verfasst am:
24. Feb 2013, 21:25
Rufname: Markus
Wohnort: Köln rrh

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Hi,

Donwload funktioniert nicht: nach der Wartezeit von 30 sec (bei einer Beschränkung auf eine Datei alle 3 Stunden) wird statt der Datei das Captcha-Skript angeboten. Auf sowas habe ich keine Lust. Kuckst Du lieber hier.

M.
MovingMike
Gast


Verfasst am:
25. Feb 2013, 00:03
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Beispiel.docx

Smile Sorry
MovingMike
Gast


Verfasst am:
26. Feb 2013, 17:41
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

Hm. Dein Code hat mir schon sehr geholfen. Funktioniert eigentlich alles! Smile
Der Übertrag in der Fuß- bzw. Kopfzeile müsste doch auch zu realisieren sein.
Bzw. möchte ich nur die Textmarken auswerten, welche sich auf der Seite befinden. Kann man denn keinen Rangebereich definieren in dem die Berechnung durchgeführt wird. ??? Das ganze sollte automatisch ablaufen, da die Vorlage für den DAU vorgesehen ist.

Die Namen der Textmarken/Bookmarks ändern sich -> das heißt ich MUSS die Berechnung Seitenweise durchführen und kann nicht von fixen Bezeichnungen ausgehen.

Code:
Sub Positionspreise_addieren()

Call Schutzaufheben
 
   
'addiert die Werte aller Textmarken eines Dokuments
Dim doc As Document: Set doc = ActiveDocument
Dim b As Bookmark     'Laufvariable
Dim res As Double     'Ergebnis

Dim TMRange As Range
Dim TM As String
Dim Loeschen As String

TM = "Summe"
Loeschen = 0

    'TEXMARKENINHALT LOESCHEN!
    With ActiveDocument
        If .Bookmarks.Exists(TM) Then
            Set TMRange = .Bookmarks(TM).Range
                'Rangeobjekt einen Wert zuweisen
            TMRange = Loeschen
                'Textmarke mit dem wert setzen
            .Bookmarks.Add TM, TMRange
        End If
    End With

On Error Resume Next  'q+d wie immer
  For Each b In doc.Bookmarks
    res = res + CDbl(b.Range.Text)
  Next b
 
Dim strVar As String
strVar = CStr(res)

    'TEXTMARKE MIT BERECHNETER SUMME ALLER TEXTMARKEN ZUWEISEN
    With ActiveDocument
        If .Bookmarks.Exists(TM) Then
            Set TMRange = .Bookmarks(TM).Range
                'Rangeobjekt einen Wert zuweisen
            TMRange = strVar
                'Textmarke mit dem wert setzen
            .Bookmarks.Add TM, TMRange
        End If
    End With
   
Call Dokumentschuetzen
   

End Sub 'Positionspreise_addieren

Private Sub BERECHNEN_Click()
    ActiveDocument.Fields.Update
    Call Positionspreise_addieren
    ActiveDocument.Fields.Update
    Call DRUCKEN
End Sub

Private Sub DRUCKEN()
With ActiveDocument
    .Shapes(1).Visible = msoFalse
    .Shapes(2).Visible = msoFalse
    .Shapes(3).Visible = msoFalse
    .Shapes(4).Visible = msoFalse
    .PrintOut Background:=False
    .Shapes(1).Visible = msoTrue
    .Shapes(2).Visible = msoTrue
    .Shapes(3).Visible = msoTrue
    .Shapes(4).Visible = msoTrue
End With
End Sub

Private Sub BERECHNEN1_Click()
    ActiveDocument.Fields.Update
    Call Positionspreise_addieren
    ActiveDocument.Fields.Update
End Sub

Sub Schutzaufheben()
' Hebt den Dokumentschutz auf.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect
End If
End Sub

Sub Dokumentschuetzen()
' Schützt das Dokument
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub
MovingMike
Gast


Verfasst am:
27. Feb 2013, 00:51
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

So. Ich hab jetzt pro Seite 2 Bookmarks erstellt (BeginnSeite1 & EndeSeite1). Die Bookmarks sind mittels Positonsrahmen fixiert.

Ist es jetzt möglich die Werte der Bookmarks zwischen Bookmark "BeginnSeite1" und Bookmark "EndeSeite1" zu addieren!

Die letzte Hürde. Bitte! Smile

Also ähnlich wie dein Code mit dem Unterschied das nur der Bereich zwischen diesen Bookmarks berechnet wird.
MovingMike
Gast


Verfasst am:
03. März 2013, 12:36
Rufname:

AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

LÖSUNG:

http://www.ms-office-forum.net/forum/showthread.php?p=1499997#post1499997
MovingMike
Gast


Verfasst am:
03. März 2013, 12:36
Rufname:


AW: Word! Werte von Textformularfeldern addieren - AW: Word! Werte von Textformularfeldern addieren

Nach oben
       Version: Office 2007

LÖSUNG:

http://www.ms-office-forum.net/forum/showthread.php?p=1499997#post1499997
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 Formate: Inhaltssteuerelemente: Werte in andere Elemente übernehmen 1 alve89 297 26. Feb 2013, 14:21
alve89 Inhaltssteuerelemente: Werte in andere Elemente übernehmen
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief übernimmt falsche Werte mit Formatschalter 4 Mausbaer 1518 28. Nov 2011, 17:08
Mausbaer Word Serienbrief übernimmt falsche Werte mit Formatschalter
Keine neuen Beiträge Word VBA Programmierung (Makros): Word VBA Speicherort & DAteiname aus Textformularfeldern 4 Crazy_0815 3563 24. Aug 2010, 17:35
Crazy_0815 Word VBA Speicherort & DAteiname aus Textformularfeldern
Keine neuen Beiträge Word VBA Programmierung (Makros): Tabellenwerte aus mehrerer Wordokumenten addieren 0 inguz76 288 15. Mai 2010, 12:14
inguz76 Tabellenwerte aus mehrerer Wordokumenten addieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Werte aus Textdatei extrahieren 0 waynejuckts 402 11. März 2010, 13:37
waynejuckts Werte aus Textdatei extrahieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro beim Öffnen des Docs starten und alte Werte leeren 3 Gast 1208 20. Jan 2010, 12:11
Gast Makro beim Öffnen des Docs starten und alte Werte leeren
Keine neuen Beiträge Word VBA Programmierung (Makros): Word-Makro zum Füllen von Textformularfeldern 4 railroadman 9071 30. Dez 2009, 19:39
Hubert_R Word-Makro zum Füllen von Textformularfeldern
Keine neuen Beiträge Word Serienbriefe: Einzelne Werte aus Excel in eine Word-Datei übernehmen... 1 Oliver-HB 1510 29. Dez 2009, 13:51
iso Einzelne Werte aus Excel in eine Word-Datei übernehmen...
Keine neuen Beiträge Word Formate: Formatierung von Textformularfeldern 2 remex9 605 03. Dez 2009, 15:51
remex9 Formatierung von Textformularfeldern
Keine neuen Beiträge Word VBA Programmierung (Makros): Abfrageoption werte aus Excel 0 Gast 301 03. Jun 2009, 15:08
Gast Abfrageoption werte aus Excel
Keine neuen Beiträge Word Formate: Dauer in Tagen berechnen in Textformularfeldern 3 Mr.Moto 1411 05. Mai 2009, 11:21
Mr.Moto Dauer in Tagen berechnen in Textformularfeldern
Keine neuen Beiträge Word VBA Programmierung (Makros): Werte mit Formatierung übernehmen 1 unknown 496 21. Nov 2008, 12:11
HermannL Werte mit Formatierung übernehmen
 

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