Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Beliebig viele gleiche Zeilen im Formular
zurück: Bild als Hintergrund weiter: Formular als Webdatei mailen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
GregorM
Gast


Verfasst am:
09. Mai 2007, 13:24
Rufname:

Beliebig viele gleiche Zeilen im Formular - Beliebig viele gleiche Zeilen im Formular

Nach oben
       Version: Office 2003

Hallo zusammen,

ich hab folgendes Problem:
ich hab ein Formular, in dem sich die folgen zeile befindet:

Name der Verstaltung[Textfeld] von [Textfeld] bis [Textfeld]

diese Zeile kann allerdings beliebig oft nacheinander vorkommen.

Weiß jemand wie ich das hinkriegen kann? gibts da nen Makro für?

Danke im Voraus.

Gruß
Gregor
Betty2004
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Mai 2007, 15:01
Rufname:

AW: Beliebig viele gleiche Zeilen im Formular - AW: Beliebig viele gleiche Zeilen im Formular

Nach oben
       Version: Office 2003

so eine ähnlich Frage habe ich hier schon mal beantwortet - es handelt sich um eine Tabelle mit Formularfeldern, die beim Verlassen des letzten Feldes ein Makro startet:

http://www.office-loesung.de/ftopic70154_0_0_asc.php

vorletzter Beitrag

_________________
Liebe Grüße Betty
Gast



Verfasst am:
09. Mai 2007, 15:02
Rufname:


AW: Beliebig viele gleiche Zeilen im Formular - AW: Beliebig viele gleiche Zeilen im Formular

Nach oben
       Version: Office 2003

hab grad doch noch ne Lösung im forum gefunden, die sieht wie folgt aus:

Code:

Dim oRange As Range
Dim aRange As Range
Dim aField As Field



feldanzahl = Selection.Paragraphs(1).Range.Fields.Count 'zählt Felder in der aktuellen Zeile

Set aRange = Selection.Paragraphs(1).Range  'erzeugt einen Bereich

feld4 = aRange.FormFields(4).Result 'kopiert den Inhalt des vierten Textfeldes

Selection.Paragraphs(1).Range.Copy
 
With Selection  'erzeugt einen neuen Absatz nach der aktuellen Textposition
    .Move Unit:=wdParagraph
    .InsertParagraphAfter
    .Collapse Direction:=wdCollapseStart
End With

Set oRange = Selection.Paragraphs(1).Range  'Übernimmt den erzeugten neuen Paragraph als Rangeobjekt

   

Set myRange = Selection.Paragraphs(1).Range
ActiveDocument.Unprotect
myRange.Paste
ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
End Sub


funktioniert an sich wunderbar aber kann man das auch irgendwie anders lösen, damit die neuen Felder dann auch bookmarks haben? ich muss hinterher von den ganzen Daten, die hinter "von" und "bis" eingetragen sind jeweils das früheste und das späteste Datum finden.
Zufällig jemand ne idee? danke schonmal!

gruß,
Gregor
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 Serienbriefe: Formular sperren im Word 2010 1 Brand68 1834 25. Nov 2013, 22:28
seven.one Formular sperren im Word 2010
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief aus mehreren Excel Zeilen erstellen 4 Gast1030 430 10. Okt 2013, 12:03
sdv Word Serienbrief aus mehreren Excel Zeilen erstellen
Keine neuen Beiträge Word Serienbriefe: REF Verknüpfung fügt neue Zeilen ein 2 Eagle_4 303 19. März 2013, 10:37
Eagle_4 REF Verknüpfung fügt neue Zeilen ein
Keine neuen Beiträge Word Serienbriefe: in Word kopiertes Formular mit HTMLControl Forms.HTML:Text.1 0 unwissend24 393 12. Aug 2012, 14:08
unwissend24 in Word kopiertes Formular mit HTMLControl Forms.HTML:Text.1
Keine neuen Beiträge Word Serienbriefe: Word 2007 Leere Zeilen auslassen bei Bedingungsfeldern 4 Mathias81 2022 24. Okt 2011, 14:54
charlybrown Word 2007 Leere Zeilen auslassen bei Bedingungsfeldern
Keine neuen Beiträge Word Serienbriefe: Einfügen von Texten mit Feldfunktionen in einem Formular 14 azse 1525 26. Feb 2009, 11:54
azse Einfügen von Texten mit Feldfunktionen in einem Formular
Keine neuen Beiträge Word Serienbriefe: Access Formular und Unterformular als Grundlage für Serienbr 1 kevin80 1710 09. Jan 2009, 08:54
kevin80 Access Formular und Unterformular als Grundlage für Serienbr
Keine neuen Beiträge Word Serienbriefe: Ausgefülltes Formular --> Serienbrief 4 6i6i 2340 10. Dez 2008, 14:14
6i6i Ausgefülltes Formular --> Serienbrief
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief unnötige Zeilen in Tabellen löschen 2 sunlight80 2815 11. Sep 2008, 16:12
sunlight80 Word Serienbrief unnötige Zeilen in Tabellen löschen
Keine neuen Beiträge Word Serienbriefe: Formular mit Access-Datenbank automatisch "befüllen&quo 0 craysee 1115 11. März 2008, 16:24
craysee Formular mit Access-Datenbank automatisch "befüllen&quo
Keine neuen Beiträge Word Serienbriefe: Serienbrief aus xls mit mehreren Zeilen pro Eintrag 1 istria 1827 28. Jan 2007, 15:57
Ina Serienbrief aus xls mit mehreren Zeilen pro Eintrag
Keine neuen Beiträge Word Serienbriefe: Datenquelle besteht aus 2 zeilen 2 Gast 1198 14. Jan 2007, 13:51
Gast Datenquelle besteht aus 2 zeilen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum