Textbaustein mit Position beliebig kombinieren

Forumthread: Textbaustein mit Position beliebig kombinieren

05.07.2016 13:49:44

Lukas

Hallo Leute,
ich habe einen UserForm mit drei Listboxen, OK-Button u. Abbrechen-Button erstellt.
ListBox1: Pos1-Pos6
ListBox2: Textbausteine (Mustertext A, Mustertext B, Mustertext C)
ListBox3: Untertextbausteine (Untertext A, Untertext B, Untertext C)
Der Anwender soll innerhalb des Userforms (wird durch einen Commandbutton in der Vorlage aufgerufen) in den Listboxen Position, Text u. Untertext beliebig kombinieren sprich verknüpfen können.
Multiselect wäre wünschenswert.
ZB:
Pos1 - Text C, Untertext A
Pos2 - Text B, Untertext C
Pos3 - Text A, Untertext B
Nach Klick auf OK sollen die markierten Positionen in Sheet(1) wie folgt übernommen werden:
Zelle
B24: Pos
C24: Text
C25: Untertext
(=Position 1)
B26: Pos
C26: Text
C27: Untertext
(=Position 2)
B28: Pos
C28: Text
C29: Untertext
(=Position 3)
Ist das in VBA überhaupt möglich?
Gruß
Lukas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbaustein mit Position beliebig kombinieren

05.07.2016 19:32:36

Hajo_Zi

Private Sub CommandButton1_Click()
Dim ArrTeile
ArrTeile = Split(TextA, " ")
Range("B28") = ArrTeile(0)
Range("C28") = ArrTeile(1)
Range("C29") = ArrTeile(2)
End Sub

AW: Textbaustein mit Position beliebig kombinieren

06.07.2016 09:32:39

Lukas

Hallo Hajo,
ich habe die Sache über Nacht vereinfacht und die Auswahl der Positionen (Pos 1-6 sind immer fix) über Checkboxen gelöst.
Die Listboxen habe ich durch Comboboxen ersetzt.
Neuer UserForm1:
Userbild

Meine Fragen:
Frage 1:
Wie befülle ich die Comboboxen mit den Werten?
Mein Sub:

Private Sub ComboBoxPos1Bez_DropButtonClick()
For i = 2 To Sheets(1).UserForm1 '?
ComboBox1.AddItem.Value("Bezeichnung A") '?
ComboBox1.AddItem.Value("Bezeichnung B") '?
ComboBox1.AddItem.Value("Bezeichnung C") '?
Next i
End Sub

Private Sub ComboBoxPos1UnterBez_DropButtonClick()
For i = 2 To Sheets(1).UserForm1 '?
ComboBox1.AddItem.Value("UnterBezeichnung A") '?
ComboBox1.AddItem.Value("UnterBezeichnung B") '?
ComboBox1.AddItem.Value("UnterBezeichnung C") '?
Next i
End Sub

Frage 2:
Die Positions-Checkboxen sollen sich wie folgt verhalten:
Wenn der Anwender zB Checkbox "Pos 1", "Pos 2" und "Pos 3" anhackt, sollen Bezeichnung u. Unterbez. in Sheet(1) wie folgt übernommen werden:
Position 1
----------
B24 (=Pos)
C24 (=Bez.)
C25 (=Unterbez.)
Position 2
----------
B26 (=Pos)
C26 (=Bez.)
C27 (=Unterbez.)
Position 3
----------
B28 (=Pos)
C28 (=Bez.)
C29 (=Unterbez.)
Alle Checkboxen welche nicht angehackt sind sollen ignoriert werden (sprich: es soll natürlich nichts übertragen werden).
Würde mich über eine Hilfestellung sehr freuen.
Gruß
Lukas

AW: Textbaustein mit Position beliebig kombinieren

06.07.2016 15:08:17

Lukas

Beitrag kann geschlossen werden.
Ich bin einen anderen Weg gegangen.
Thxs.
Gruß
Lukas

AW: Textbaustein mit Position beliebig kombinieren

06.07.2016 16:37:11

Hajo_Zi

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original.
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann. Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, solltest du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Ich bin der Auffassung ich habe schon genug Zeit investiert. Ich habe das Beispiel schon für den ersten Beitrag nachgebaut und das wurde jetzt ja geändert.

Beliebteste Forumthreads (12 Monate)

Textbaustein mit Position beliebig kombinieren

Forumthread: Textbaustein mit Position beliebig kombinieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Textbaustein mit Position beliebig kombinieren

Forumthread: Textbaustein mit Position beliebig kombinieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread