Office: Formular je nach Dropdownauswahl

Hallo Gerhard,

die Tabellenlinien lassen sich immer noch manuell verschieben.
Könnte man das irgendwie mit einem Makro lösen, so wie du es am vergangenen Montag angesprochen hast.
Mit was könnte man dieses Makro starten oder aktivieren, geht das irgendwie mit einem Button oder ähnlichem?

Viele Grüße
Robert

 

Hallo Robby,

per Makro kann das klappen, allerdings bedeutet das für dich als VBA-Unkundigem, dass du bei jeder Kleinigkeit aufgeschmissen bist. Wie dem auch sei, hier ein Lösungsangebot.

Statt des Bausteinkatalogs (der ja bei geschütztem Dokument nicht bedienbar ist), wird eine Userform eigesetzt.
Voraussetzungen für das Funktionieren sind:

• Du musst die Pfadangabe im Makro an der gekennzeichneten Stelle anpassen,
• Du musst bei der Erfassung der Tabellen als Textbausteine je 1 leere Absatzmarke über und unter der Tabelle mitmarkieren

Weitere Erklärungen im Dokument selbst. Das Dokument wie gehabt in einen Ordner kopieren und per Doppelklick starten.

Hier die im Dokument enthaltenen Prozeduren:

Im Modul ThisDocument:

Code:

Private Sub Document_New()
UserForm1.Show
End Sub

Im Modul Userform1:

Code:

Private Sub userform_activate()
'Userform füllen
    With ComboAuswahl
        .Clear
        .AddItem "Gesang"
        .AddItem "Tanz"
        .AddItem "Pause"
        .ListIndex = 0
    End With
End Sub

Private Sub cmdEintrag_Click()
Dim eintrag As String, einfuegestelle As Range
Dim meineVorlage As Template

'Definition der Vorlage und Pfad zur Vorlage:
Set meineVorlage = _
Application.Templates("C:\1temp\robby\TextbausteinePerUserform.dotm") '**Anpassen

'Textmarke als Einfügestelle:
Set einfuegestelle = _
ActiveDocument.Bookmarks("baustein").Range

'gewählter Bausteinname:
eintrag = ComboAuswahl.Value

'Dokumentschutz aufheben
With ActiveDocument
    If .ProtectionType <> wdNoProtection Then .Unprotect

    'gewählten Baustein an Textmarke einfügen
    meineVorlage.BuildingBlockEntries(eintrag).Insert _
    where:=einfuegestelle
    .Bookmarks.Add Name:="baustein", Range:=einfuegestelle

    'Dokument wieder schützen
    If .ProtectionType = wdNoProtection Then
        .Protect Type:=wdAllowOnlyFormFields, noreset:=True
    End If
End With

'Userform schließen
Unload Me
End Sub

 

Hallo Gerhard,

vielen lieben Dank, ist eine tolle Sache.
Hatte in deinem Download zunächst einen Laufzeitfehler 5941 (falscher Pfad), konnte ich korrigieren, dann hat es geklappt mit der Auswahl aus der Combobox.
Allerdings weiß ich nicht, wie ich weitere Textbausteine auswählen kann, ich kann nur einen auswählen, nach Erscheinen des Textbausteins erscheint die Combobox nicht mehr für eine weitere Auswahl.

Viele Grüße
Robert

 

Hallo Robert,

ich hatte dich so verstanden, dass du immer nur einen Baustein pro Dokument haben willst.

Willst du jetzt mehrere untereinander oder einen durch den anderen ersetzen?
Falls ersteres:
Wo soll der nächste Baustein eingefügt werden? Direkt nach dem schon existierenden oder an einer bestimmten Stelle?
Ist die Reihenfolge der Bausteine fix oder variabel?
Und wieviele Bausteine werden es denn letztendlich?
Könntest du mal ein fertiges händisch erstelltes Beispieldokument hochladen, damit ich klarer sehe? Es geht mir auch darum, zu sehen, ob zwischen den einzelnen Bausteinen oder nach dem letzten Baustein noch Text stehen soll.

Je nachdem, was Sache ist, könnte es doch wieder Schwierigkeiten mit einem durchgängigen Schutz geben.

 

Hallo Gerhard,

wie von mir anfangs beschrieben, ändert sich die Reihenfolge und die Anzahl der Tänze, Pausen und Gesänge, je nach Auftritt.
- der nächste Baustein soll immer unter den letzten Baustein angehängt werden
- die Reihenfolge ist variabel
- die Anzahl der Bausteine ist unterschiedlich
- zwischen den Bausteinen darf kein Text eingefügt werden können
- zwischen den Bausteinen kann sich eine Leerzeile befinden, zwecks optischer Abgrenzung
- wäre eine Löschung eines versehentlich gewählten Bausteins möglich (evtl. mit Button innerhalb eines jeden Bausteins)

Eine Zwischeninfo, warum ich diese strikte Vorgabe bevorzuge:
Die schon etwas ältere Trainerin unseres Tanzvereins schafft es jedes Mal, vor unseren Auftritten für uns ein total zerschossenes Programm zu erstellen, ohne System, ohne klare Struktur, extrem improvisiert.
Es ist keine klare Abgrenzung zwischen Tänzen, Pausen und Gesängen ersichtlich.
Wir wissen oft nicht, in welcher Richtung, von den aufgeführten Tänzern betrachtet, sich das Publikum befindet. Mal ist es oberhalb der Namen, mal unterhalb. Das ist jedoch für uns wichtig für die Aufstellung, da eine "spiegelbildliche" Aufstellung nicht funktioniert. Wenn man sie drauf anspricht, sagt sie ungehalten, das müsse man doch wissen etc. Sie hat immer Recht!!! Dies führt oft zu Missverständnissen und erheblichem Frust bei uns allen.
Es ist für uns ein Rätzel, wie sie es schafft, in unseren Übungsstunden die Musiktitel von ihrem Apple iPad abzuspielen, das klappt problemlos.
Ich habe ihr dann zuerst ein normales Formular angeboten (ohne Sperrung), mit "copy and paste" der einzelnen Tabellen aus einer zweiten, s.g. "Vorlagendatei", damals wusste ich noch nichts von Bausteinen. Ergebnis: es war eine Katastrophe:
- verschobene Tabellen und Tabellenlinien
- zerrissene Tabellen
- Tabelle in Tabelle
- irgendwelche Texte zwischen den Tabellen, statt in den Bemerkungsfeldern
- mal kleine Schrift, mal große Schrift und in verschiedenen Farben

So, jetzt zurück zum "Projekt".
Ein Ablauf kann z.B. so aussehen:
- Tanz
- Tanz
- Pause
- Tanz
- Gesang
- Tanz
- Pause
- Gesang

Oder auch mal so (bei einem kurzen Auftritt):
- Tanz
- Pause
- Tanz
- Gesang

Im Anhang befindet sich ein grob erstelltes Beispieldokument.

Viele Grüße
Robert