Checkboxen-Inhalt untereinander mit IF-Schleife eifügen

  • Word

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Lehrling91.

    Checkboxen-Inhalt untereinander mit IF-Schleife eifügen

    Hallo Zusammen!



    Bin gerade dabei ein Makro in Word mittels VBA-Version 6.5 zu programmieren.

    Das Problem das ich habe ist folgendes:



    Ich habe eine Überschrift Kinder. Unter dieser Überschrift sollen beliebig viele Kinder eingefügt werden könne. In der Benutzermaske sieht das dann so aus: es hat 7 Checkboxen mit je einer Textbox dahinter. Wird die Checkbox angeklickt, muss das Feld Textfeld mit Name / Vorname gefüllt werden. Das ganze wird nacher im Text als "Name / Vorname: Bart Simpson" über eine Textmarke eingefügt. Es soll ja möglich sein mehrere Kinder zu erfassen, das ist mein Problem! Wie stell ich es an, das unter dem 1. Kind ein Absatz gemacht wird und dort weitergefahren wird?



    Bin gespannt ob ihr mir helfen könnt!



    Danke im Vorraus



    Freundliche Grüsse

    Luca Summermatter

    Danke für die Prompte Antwort!



    Also der Code mit dem ich einfüge ist folgender:

    Visual Basic-Quellcode

    1. If CheckBox1.Value = True Then
    2. Selection.GoTo what:=wdGoToBookmark, Name:="Kinder"
    3. Selection.InsertAfter TextBox1.Value


    In die Textbox schreibt der User nur Vorname und Nachname des Kindes. Das Problem ist also, wie füge ich immer vor dem Namen "Name / Vorname" ein?

    Das mit dem Absatz probier ich gleich mal!

    Freundliche Grüsse
    Luca Summermatter

    Einfach in die entsprechende Zeile deinen Text voranschreiben:

    Visual Basic-Quellcode

    1. If CheckBox1.Value = True Then
    2. Selection.GoTo what:=wdGoToBookmark, Name:="Kinder"
    3. Selection.InsertAfter "Name / Vorname: " & TextBox1.Value & vbNewLine



    Der Doc!

Facebook
Telefonspende