Textbausteine mit vba

[rookie]

Hallo zusammen,
 
ich bräuchte mal wieder eure Hilfe.
Ich möchte in excel mit Textbausteinen arbeiten und zwar mit Hilfe von vba.

Meine Idee ist folgende:
Ich habe ungefähr 25 Langtexte in einer Tabelle angelegt, die ich über eine userform (Listbox/combobox) auswählen möchte und dann in ausgewählte Zellen einfügen möchte.

Ist das so überhaupt umsetzbar und wenn ja, wie kann ich das bewerkstelligen.
Über eure Hilfe und Lösungsansätze wäre ich dankbar.

Gruss rookie

[Klaus-Dieter]

Hallo,

das ist schon möglich, allerdings müsstest du für konkrete Vorschläge schon etwas mehr über deine Datei verraten. Wobei ich mich frage, ob Excel der richtige Platz für Langtexte, (was immer du darunter verstehst), ist. Bei 32.767 Zeichen pro Zelle ist ohnehin Schicht.

[Ralf A]

Hi,

wenn es nur 25 Texte sind, die irgendwo als Auswahl zur Verfügung stehen sollen und wenn Du die nicht kombinieren willst, warum verwendest Du da kein simples Dropdown?
Daten --> Datengültigkeit --> Liste

[rookie]

Hallo Klaus Dieter,

erstmal vielen Dank für deine prompte Antwort!

Im Anhang hab ich dir mal eine Beispieldatei gesendet, wie gesagt, es ist erstmal nur eine Idee, wäre schön, wenn es da Lösungen mit vba gäbe!

Die 25 Langtexte sind sehr lange Überschriften, die aber immer wieder verwendet werden sollen.

Gruss rookie

---

Hi Ralf, 

da hast du sicherlich Recht, aber ich würde eine vba Lösung bevorzugen. Es könnten auch mal mehr als 25 Textbausteine werden.

Gruss rookie

[Ralf A]

Meine Idee ist folgende:
Ich habe ungefähr 25 Langtexte in einer Tabelle angelegt, die ich über eine userform (Listbox/combobox) auswählen möchte und dann in ausgewählte Zellen einfügen möchte.


...es können auch mal mehr als 25 .... werden....

Ja und? Was hat das jetzt mit dem Beharren auf VBA zu tun? Ob ein Dropdown in der Zelle oder einer Listbox im Formular, der Effekt ist der gleiche... aufklappen müssen einer Liste...
...nur der Mehraufwand der Formularlösung zum Ergebnis steht in keinem vernünftigen Verhältnis.

[juvee]

Hi,

so aufwendig ist das ja nun auch nicht

bastel dir eine Userform mit einer Listbox und einem CommandButton

Code:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ActiveCell.Value = Me.ListBox1.Value
End Sub

Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.Transpose(Worksheets(1).ListObjects(1).DataBodyRange)
End Sub

Aktiviere die Zelle, in die du den Text übertragen willst, rufe dann die Userform auf und mache einen Doppelklick auf den gewünschten Eintrag

Schließen kannst du die Userform mit dem Commandbutton


VG Juvee

[snb]

Noch weniger Aufwand:

Code:

Private Sub UserForm_Initialize()
  ListBox1.List = sheets(1).ListObjects(1).DataBodyRange.value
End Sub

[Ralf A]

Hi,

so aufwendig ist das ja nun auch nicht

...aber unter den gegebenen Umständen vollkommen unnötig... da hoffen wir mal, dass auf allen Zielrechnern Makros erlaubt sind...

Foren sind ja nicht dazu da, um allen jeden noch so unsinnigen oder unnötigen Wunsch zu erfüllen, sondern um zu helfen. Und Hilfe kann auch sein, zum Nachdenken anzuregen und ggf. bessere oder zumindest gleichwertige Alternativen aufzuzeigen.

Aber das hier sind immer solche Aktionen, von denen ich denke, da will irgendwer irgendwem auf Biegen und Brechen was demonstrieren... sei es nun sinnvoll oder nicht... wenn es denn wenigstens auf dem eigenen Mist gewachsen wäre.... aber nicht mal das ist der Fall...

[schauan]

Hallöchen,

Ob ein Dropdown in der Zelle oder einer Listbox im Formular, der Effekt ist der gleiche... aufklappen müssen einer Liste...

ich versuch, Verständnis für den TE aufzubringen Wenn ich den kompletten Text im Dropdown haben wollte, müsste ich die Zellen breiter machen, was nun auch wieder unnötig oder gar unerwünscht ist ...

   

[juvee]

@ Ralf

da will irgendwer irgendwem auf Biegen und Brechen was demonstrieren... sei es nun sinnvoll oder nicht... wenn es denn wenigstens auf dem eigenen Mist gewachsen wäre.... aber nicht mal das ist der Fall...

meinst du mich damit?

Und woher beziehst du deine Kenntnisse über meinen "eigenen Mist" ?

Du scheinst ja ein ganz Schlauer zu sein. Vermutlich sogar ein Oberschlauer!

Juvee