Makro - Per Button Textfeld generieren

Hallo Community,
wäre super, wenn mir irgendjemand helfen könnte =)
Folgende möchte ich per Makro in meiner Excel erreichen.
Über ein Button wird ein Userform geöffnet.
Darin werden die Gruppierung sowie die dazugehörigen Elemente automatisch erfasst.
Heißt, wenn ich Elemente in einer Gruppierung hinzufüge, wird dies automatisch im Dropdown Menü erfasst. (siehe Bild in der Excel Tabelle).
Wenn ich das Elemente ausgewählt habe, wird automatisch ein Textfeld generiert.
Die gelbmarkierten Werte werden aus den dazugehörigen Zelle des Elements gezogen. Die Blauen werden errechnet.
Wäre super, wenn mir jemand zeigen könnte, wie das Per Makro funkioniert =)
Die jeweilige Spalte zu dazugehörigen Element kann ich selbst dann zuordnen. Ich bräuchte nur eine Vorgabe, wie die Zeile des ausgewählten Elements erkannt wird.
Wäre echt super wenn mir jemand helfen könnte.
MfG Thomas
https://www.herber.de/bbs/user/124442.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim txt as string txt = "1. Vorhaltemenge Schalungsansatz: " & Cells(z, 4).Text & vblf txt = txt & "2. Schalfläche gesamt: " & Cells(z, 5).Text & vblf txt = txt & "3. Vorhaltedauer: " & Cells(z, 6).Text & vblf usw. bis dein Text vollständig ist Textbox1.Text = txt

So habe die Textboxt nun vervollständigt und die Userform angelegt.

Private Sub TextBox1_Change()
Dim txt As String
txt = "1. Vorhaltemenge Schalungsansatz: " & Cells(Z, 4).Text & vbLf
txt = txt & "2. Schalfläche gesamt: " & Cells(Z, 5).Text & vbLf
txt = txt & "3. Vorhaltedauer: " & Cells(Z, 6).Text & vbLf
txt = txt & "4. Aufteilung Fixkosten: " & Cells(K7) & "Montage/Demontage" & Cells(L7) & "Dispo" _
& Cells(M7) & "Reinigung/Service" & Cells(N7) & "Defekt/Schrott/Verlust" & Cells(O7) & "Technische Bearbeitung" & vbLf
txt = txt & "5. Fixkosten: " & Cells(Z, 10).Text & "*" & "Cells(P7)" & "*" & "Cells(Z, 20)" & " _
*" & "Cells(Z, 4)" & vbLf
txt = txt & "6. Variable Kosten: " & "(((" & Cells(Z, 6).Text & "*" & Cells(Q7).Text & ")" & "+ _
" & "Cells(Z, 19)" & ")" & "*" & "Cells(Z, 4)" & ")" & "*" & "Cells(Z, 20)" & vbLf
txt = txt & "7. Transportkosten: " & Cells(Z, 16).Text & "*" & Cells(Z, 9) & vbLf
txt = txt & "8. Gesamt: " & "(" & Cells(Z, 21).Text & "+" & Cells(Z, 22).Text & "+" & Cells(Z,  _
23).Text & ")" & "/" & Cells(Z, 5).Text & vbLf
TextBox1.Text = txt
End Sub

So nun fehlt noch in der Userform:
- Registerkarten entsprechen Gruppierungen wie in Excelsheet
- im Dropdown Menü kann dann das Element ausgewählt werden
-> anschließend werden die Werte automatisch übertragen ins Textfeld
Aktuelles Excel-Sheet
https://www.herber.de/bbs/user/124491.xlsm

Beliebteste Forumthreads (12 Monate)

Makro - Per Button Textfeld generieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro - Per Button Textfeld generieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread