Daten aus Listbox an Formular übergeben

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von ThorStein83.

    Daten aus Listbox an Formular übergeben

    Hallo,
    ich habe ein kleines Problemchen. Und zwar habe ich eine Excel-Datei, in der ich Weiterbildungen plane und verwalte.
    Unter anderem auch Stundenpläne. Dazu habe ich eine UserForm erstellt, in der 5 Tage mit je 8 Stunden eingetragen werden und die Daten in ein Excel-Sheet schreibt. Die einzelnen Wochen werden werden in einer Listbox angezeigt.
    Durch klick auf die entsprechende Woche in der Listbox erscheinen die Daten (5Tage,8 Stunden) dann wieder in der UF und können bearbeitet werden. Jetzt möchte ich diese Daten an ein Formular (weiteres Sheet) übergeben und ausdrucken. Anschließend sollen die Daten aus dem Formular wieder gelöscht werden und ggf. ein anderer Datensatz gedruckt werden.
    Ich kann die Daten zwar fix an ein Sheet übergeben, aber dann brauche ich für jede Woche ein extra Formular. Da die Weiterbildungen mitunter unterschiedliche Wochenanzahlen haben, ist dies sehr unpraktikabel.

    Hat jemand eine Idee??

    Viele Grüße
    ThorStein

    gib die Daten entweder schon in dem activate oder der Inizialisie an, oder baue dein Formular anhand von code auf, der sich je nach Bedarf ändert. So könntest du ja sagen wenn so und so viele wochen sind oder >1 dann soll es so und so aussehen.
    "Der Visual Basic ist nur so schlau wie der, der davor sitzt" - Na schön! Dann steh ich eben auf!

    "Wenn du denkst es geht nicht mehr kommt irgendwo ein Lichtlein her"
    If Tunnel.Licht = JemandImTunnelDerVerzweifeltIst Then Licht.Aus = True

    Hallo,
    ich habe mal etwas rumgebastelt und das Ergebnis ist folgender Code:

    Quellcode

    1. Option Explicit
    2. Option Compare Text
    4. Private Sub beschriftUeberschrift_Click()
    6. End Sub
    8. ' Meuer Eintrag Schaltfläche
    9. Private Sub CommandButton1_Click()
    10. Dim lZeile As Long
    12. lZeile = 2
    13. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    14. lZeile = lZeile + 5 'Nächste Zeile bearbeiten
    15. Loop
    18. Tabelle10.Cells(lZeile, 1) = CStr("Neue Woche " & lZeile)
    20. ListBox1.AddItem CStr("Neue Woche " & lZeile)
    22. ListBox1.ListIndex = ListBox1.ListCount - 1
    24. End Sub
    26. 'Speichern Schaltfläche
    27. Private Sub CommandButton3_Click()
    28. Dim lZeile As Long
    30. If ListBox1.ListIndex = -1 Then Exit Sub
    32. lZeile = 2 '
    33. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    35. If ListBox1.Text = Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) Then
    37. Tabelle10.Cells(lZeile, 1).Value = Trim(CStr(TextBox121.Text)) 'Wochen-Nr
    38. Tabelle10.Cells(lZeile, 2).Value = TextBox122.Text 'Datum Montag
    40. Tabelle10.Cells(lZeile, 3).Value = TextBox1.Text 'Stunden Montag
    41. Tabelle10.Cells(lZeile, 4).Value = TextBox10.Text 'Dozenten Montag
    42. Tabelle10.Cells(lZeile, 5).Value = TextBox9.Text 'Raum Montag
    43. Tabelle10.Cells(lZeile + 1, 3).Value = TextBox25.Text 'Stunden Dienstag
    44. Tabelle10.Cells(lZeile + 1, 4).Value = TextBox34.Text 'Dozenten Dienstag
    45. Tabelle10.Cells(lZeile + 1, 5).Value = TextBox33.Text 'Raum Dienstag
    46. Tabelle10.Cells(lZeile + 2, 3).Value = TextBox49.Text 'Stunden Mittwoch
    47. Tabelle10.Cells(lZeile + 2, 4).Value = TextBox58.Text 'Dozenten Mittwoch
    48. Tabelle10.Cells(lZeile + 2, 5).Value = TextBox57.Text 'Raum Mittwoch
    49. Tabelle10.Cells(lZeile + 3, 3).Value = TextBox73.Text 'Stunden Donnerstag
    50. Tabelle10.Cells(lZeile + 3, 4).Value = TextBox82.Text 'Dozenten Donnerstag
    51. Tabelle10.Cells(lZeile + 3, 5).Value = TextBox81.Text 'Raum Donnerstag
    52. Tabelle10.Cells(lZeile + 4, 3).Value = TextBox97.Text 'Stunden Freitag
    53. Tabelle10.Cells(lZeile + 4, 4).Value = TextBox106.Text 'Dozenten Freitag
    54. Tabelle10.Cells(lZeile + 4, 5).Value = TextBox105.Text 'Raum Freitag
    57. If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
    58. Call UserForm_Initialize
    59. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    60. End If
    62. Exit Do
    64. End If
    66. lZeile = lZeile + 5
    67. Loop
    69. End Sub
    70. 'Lösche Schaltfläche
    71. Private Sub CommandButton7_Click()
    72. Dim lZeile As Long
    74. If ListBox1.ListIndex = -1 Then Exit Sub
    76. lZeile = 2
    77. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    80. If ListBox1.Text = Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) Then
    83. Tabelle10.Rows(CStr(lZeile & ":" & lZeile)).Delete
    86. Call UserForm_Initialize
    87. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    89. Exit Do
    91. End If
    93. lZeile = lZeile + 5
    94. Loop
    96. End Sub
    98. 'Stundenplan drucken
    99. Private Sub CommandButton8_Click()
    100. Dim lZeile As Long
    102. If ListBox1.ListIndex = -1 Then Exit Sub
    105. lZeile = 1
    106. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    108. If ListBox1.Text = Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) Then
    110. Tabelle11.Cells(lZeile, 7).Value = Trim(CStr(TextBox121.Text)) 'Woche
    111. Tabelle11.Cells(lZeile - 1, 8).Value = TextBox122.Text 'Datum Montag
    112. Tabelle11.Cells(lZeile + 3, 3).Value = TextBox1.Text 'Stunden Montag
    113. Tabelle11.Cells(lZeile + 4, 3).Value = TextBox10.Text 'Dozenten Montag
    114. Tabelle11.Cells(lZeile + 4, 4).Value = TextBox9.Text 'Raum Montag
    115. Tabelle11.Cells(lZeile + 3, 5).Value = TextBox25.Text 'Stunden Dienstag
    116. Tabelle11.Cells(lZeile + 4, 5).Value = TextBox34.Text 'Dozenten Dienstag
    117. Tabelle11.Cells(lZeile + 4, 6).Value = TextBox33.Text 'Raum Dienstag
    118. Tabelle11.Cells(lZeile + 3, 7).Value = TextBox49.Text 'Stunden Mittwoch
    119. Tabelle11.Cells(lZeile + 4, 7).Value = TextBox58.Text 'Dozenten Mittwoch
    120. Tabelle11.Cells(lZeile + 4, 8).Value = TextBox57.Text 'Raum Mittwoch
    121. Tabelle11.Cells(lZeile + 3, 9).Value = TextBox73.Text 'Stunden Donnerstag
    122. Tabelle11.Cells(lZeile + 4, 9).Value = TextBox82.Text 'Dozenten Donnerstag
    123. Tabelle11.Cells(lZeile + 4, 10).Value = TextBox81.Text 'Raum Donnerstag
    124. Tabelle11.Cells(lZeile + 3, 11).Value = TextBox97.Text 'Stunden Freitag
    125. Tabelle11.Cells(lZeile + 4, 11).Value = TextBox106.Text 'Dozenten Freitag
    126. Tabelle11.Cells(lZeile + 4, 12).Value = TextBox105.Text 'Raum Freitag
    131. If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
    132. Call UserForm_Initialize
    133. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    134. End If
    136. Exit Do
    138. End If
    140. lZeile = lZeile + 1
    141. Loop
    142. ' Tabelle11.PrintOut Copies:=1
    143. End Sub
    145. Private Sub ListBox1_Change()
    146. Dim lZeile As Long
    148. TextBox25 = ""
    149. TextBox33 = ""
    150. TextBox34 = ""
    151. TextBox57 = ""
    152. TextBox58 = ""
    153. TextBox73 = ""
    154. TextBox81 = ""
    155. TextBox82 = ""
    156. TextBox97 = ""
    157. TextBox105 = ""
    158. TextBox106 = ""
    162. If ListBox1.ListIndex >= 0 Then
    164. lZeile = 2
    165. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    167. If ListBox1.Text = Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) Then
    169. TextBox121 = Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) 'Wochen-Nr
    170. TextBox122 = Tabelle10.Cells(lZeile, 2).Value 'Datum Montag
    172. TextBox1 = Tabelle10.Cells(lZeile, 3).Value 'Stunden Montag
    173. TextBox10 = Tabelle10.Cells(lZeile, 4).Value 'Dozenten Montag
    174. TextBox9 = Tabelle10.Cells(lZeile, 5).Value 'Raum Montag
    175. TextBox25 = Tabelle10.Cells(lZeile + 1, 3).Value 'Stunden Dienstag
    176. TextBox34 = Tabelle10.Cells(lZeile + 1, 4).Value 'Dozenten Dienstag
    177. TextBox33 = Tabelle10.Cells(lZeile + 1, 5).Value 'Raum Dienstag
    178. TextBox49 = Tabelle10.Cells(lZeile + 3, 7).Value 'Raum Mittwoch
    179. TextBox58 = Tabelle10.Cells(lZeile + 2, 4).Value 'Dozenten Mittoch
    180. TextBox57 = Tabelle10.Cells(lZeile + 2, 5).Value 'Raum Mittwoch
    181. TextBox73 = Tabelle10.Cells(lZeile + 3, 3).Value 'Stunden Donnerstag
    182. TextBox82 = Tabelle10.Cells(lZeile + 3, 4).Value 'Dozenten Donnerstag
    183. TextBox81 = Tabelle10.Cells(lZeile + 3, 5).Value 'Raum Donnerstag
    184. TextBox97 = Tabelle10.Cells(lZeile + 4, 3).Value 'Stunden Freitag
    185. TextBox106 = Tabelle10.Cells(lZeile + 4, 4).Value 'Dozenten Freitag
    186. TextBox105 = Tabelle10.Cells(lZeile + 4, 5).Value 'Raum Freitag
    190. Exit Do
    192. End If
    194. lZeile = lZeile + 5
    196. Loop
    198. End If
    201. End Sub
    203. Private Sub UserForm_Activate()
    205. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    206. End Sub
    208. Private Sub UserForm_Initialize()
    209. Dim lZeile As Long
    212. TextBox25 = ""
    213. TextBox33 = ""
    214. TextBox34 = ""
    215. TextBox57 = ""
    216. TextBox58 = ""
    217. TextBox73 = ""
    218. TextBox81 = ""
    219. TextBox82 = ""
    220. TextBox97 = ""
    221. TextBox105 = ""
    222. TextBox106 = ""
    225. ListBox1.Clear
    227. lZeile = 2
    228. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    231. ListBox1.AddItem Trim(CStr(Tabelle10.Cells(lZeile, 1).Value))
    233. lZeile = lZeile + 5
    235. Loop
    237. End Sub


    Die Daten aus der Listbox werden im Sheet "Stundenplanung" gespeichert. In der Listbox gibt es nun 2 Datensätze (Woche 1 und Woche 2)
    Woche 1 kann ich mittels Button "Stundenplan drucken" vom Sheet "Stundenplanung" ins Sheet "StundenplanFormular" übertragen, bei der Woche 2 funktioniert dies leider nicht.

    Da komme ich nun leider nicht mehr weiter.
    Für Tipps wäre ich, wie immer dankbar!!!

    Sehr gut!
    Und wieder was dazu gelernt.

    Also hier die Datei.
    Im Sheet "Stundenplanung" sind zwei Datensätze, einmal Woche 1 und Woche 2. Diese habe ich über ein UF mittels Textboxen und Listbox eingegeben und kann auch beide über die Listbox aufrufen und verändern. Wenn ich nun die Daten über "Stundenplan drucken" an das Sheet "Stundenplanformular" übergeben will um es dann auszudrucken, wird immer nur der Datensatz Woche 1 übergeben, egal welchen Datensatz ich aktuell in der Listbox ausgewählt habe.

    Vorab vielen Dank!!!!
    Dateien

    Hallo,

    da sind noch einige Fehler. Beseitige ich den, weshalb Du die Frage hier gestellt hast, dann packt er die 2. Woche in die 3. Stunde, die 3.Woche in die 5. Stunde. lZeilen des Stundenplanformulars sind fix und nicht dynamisch anzugeben. Z.B. so, wenn man die Schleifenmöglichkeit (Grundsätze weiter unten) nicht umsetzt.

    Visual Basic-Quellcode

    1. 'Stundenplan drucken
    2. Private Sub CommandButton8_Click()
    3. Dim lZeile As Long
    5. If ListBox1.ListIndex = -1 Then Exit Sub
    8. lZeile = 2
    9. Do While Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) <> ""
    11. If ListBox1.Text = Trim(CStr(Tabelle10.Cells(lZeile, 1).Value)) Then
    13. Tabelle11.Cells(2, 7).Value = Trim(CStr(TextBox121.Text)) 'Woche
    14. Tabelle11.Cells(1, 8).Value = TextBox122.Text 'Datum Montag
    15. Tabelle11.Cells(5, 3).Value = TextBox1.Text 'Stunden Montag
    16. Tabelle11.Cells(6, 3).Value = TextBox10.Text 'Dozenten Montag
    17. Tabelle11.Cells(6, 4).Value = TextBox9.Text 'Raum Montag
    18. Tabelle11.Cells(5, 5).Value = TextBox25.Text 'Stunden Dienstag
    19. Tabelle11.Cells(6, 5).Value = TextBox34.Text 'Dozenten Dienstag
    20. Tabelle11.Cells(6, 6).Value = TextBox33.Text 'Raum Dienstag
    21. Tabelle11.Cells(5, 7).Value = TextBox49.Text 'Stunden Mittwoch
    22. Tabelle11.Cells(6, 7).Value = TextBox58.Text 'Dozenten Mittwoch
    23. Tabelle11.Cells(6, 8).Value = TextBox57.Text 'Raum Mittwoch
    24. Tabelle11.Cells(5, 9).Value = TextBox73.Text 'Stunden Donnerstag
    25. Tabelle11.Cells(6, 9).Value = TextBox82.Text 'Dozenten Donnerstag
    26. Tabelle11.Cells(6, 10).Value = TextBox81.Text 'Raum Donnerstag
    27. Tabelle11.Cells(5, 11).Value = TextBox97.Text 'Stunden Freitag
    28. Tabelle11.Cells(6, 11).Value = TextBox106.Text 'Dozenten Freitag
    29. Tabelle11.Cells(6, 12).Value = TextBox105.Text 'Raum Freitag
    32. Exit Do
    34. End If
    36. lZeile = lZeile + 5
    37. Loop
    39. Dim strDruckerAktiv As String, strDruckerPDF As String
    40. strDruckerAktiv = Application.ActivePrinter 'Drucker merken
    41. strDruckerPDF = "PDFCreator auf NE00:"
    42. Application.ActivePrinter = strDruckerPDF
    43. ActiveSheet.PrintOut preview:=False
    44. Application.ActivePrinter = strDruckerAktiv 'Drucker zurücksetzen
    47. End Sub

    Wobei die Schleife irgendwie Quatsch ist. Die Daten einfach aus dem Formular holen und gut ist.

    Visual Basic-Quellcode

    1. 'Stundenplan drucken
    2. Private Sub CommandButton8_Click()
    4. With Sheets("StundenplanFormular")
    5. .Cells(2, 7).Value = Trim(CStr(TextBox121.Text)) 'Woche
    6. .Cells(1, 8).Value = TextBox122.Text 'Datum Montag
    7. .Cells(5, 3).Value = TextBox1.Text 'Stunden Montag
    8. .Cells(6, 3).Value = TextBox10.Text 'Dozenten Montag
    9. .Cells(6, 4).Value = TextBox9.Text 'Raum Montag
    10. .Cells(5, 5).Value = TextBox25.Text 'Stunden Dienstag
    11. .Cells(6, 5).Value = TextBox34.Text 'Dozenten Dienstag
    12. .Cells(6, 6).Value = TextBox33.Text 'Raum Dienstag
    13. .Cells(5, 7).Value = TextBox49.Text 'Stunden Mittwoch
    14. .Cells(6, 7).Value = TextBox58.Text 'Dozenten Mittwoch
    15. .Cells(6, 8).Value = TextBox57.Text 'Raum Mittwoch
    16. .Cells(5, 9).Value = TextBox73.Text 'Stunden Donnerstag
    17. .Cells(6, 9).Value = TextBox82.Text 'Dozenten Donnerstag
    18. .Cells(6, 10).Value = TextBox81.Text 'Raum Donnerstag
    19. .Cells(5, 11).Value = TextBox97.Text 'Stunden Freitag
    20. .Cells(6, 11).Value = TextBox106.Text 'Dozenten Freitag
    21. .Cells(6, 12).Value = TextBox105.Text 'Raum Freitag
    22. End With
    24. Dim strDruckerAktiv As String, strDruckerPDF As String
    25. strDruckerAktiv = Application.ActivePrinter 'Drucker merken
    26. strDruckerPDF = "PDFCreator auf NE00:"
    27. Application.ActivePrinter = strDruckerPDF
    28. ActiveSheet.PrintOut preview:=False
    29. Application.ActivePrinter = strDruckerAktiv 'Drucker zurücksetzen
    31. End Sub


    Der Mittwoch wird zwar in die Stundenplanung eingetragen, jedoch nicht mehr ausgelesen.
    Die Stunden>1 kann man noch gar nicht eingeben.

    Da würde ich vorher noch ein paar Grundsätze festlegen.
    Alle Textboxen / Buttons bekommen Namen, dass man sie beim Programmieren gleich erkennt. Die Tabellen würde ich auch mit dem Namen ansprechen. sheets("Stundenplanung").Cells(x,y) statt Tabelle10.

    Vergibtst Du die Namen mit Nummern hinten dran, kannst Du die per Schleife bequem Ansprechen.

    Statt

    Visual Basic-Quellcode

    1. TextBox25 = ""
    2. TextBox33 = ""
    3. TextBox34 = ""
    4. TextBox57 = ""
    5. TextBox58 = ""
    6. TextBox73 = ""
    7. TextBox81 = ""
    8. TextBox82 = ""
    9. TextBox97 = ""
    10. TextBox105 = ""
    11. TextBox106 = ""

    So

    Visual Basic-Quellcode

    1. For i = 25 To 106
    2. On Error Resume Next 'Fehlen ein paar...
    3. Controls("Textbox" & Trim(CStr(i))).Text = ""
    4. Next
    5. On Error GoTo 0


    Die Lücken sollten wech. Ohne On Error Resume Next findet man besser Fehler im Code. Ist im Listbox_Change aber unnötig, da eh alles aus der Stundenplanung geholt wird.

    Zum Entwickeln die Form Modeless öffnen

    Visual Basic-Quellcode

    1. Private Sub Workbook_Open()
    2. 'Application.Visible = False
    3. UserForm6.Show vbModeless
    4. 'Application.Visible = True
    6. End Sub

    Da kannst Du dann zugucken, was passiert.

    Die Namen kannst Du dann auch noch dynamisch durch das Makro zusammensetzen, wenn Du möchtest. So können die Textboxen dann z.B. den Wochentag und die Stunde mit enthalten. Das ist dann halt bissel mehr Aufwand.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „peterfido“ ()

    Hallo,
    vielen Dank für die Tipps, hab sie umgesetzt und es klappt wunderbar!!!

    Mit den eindeutigen Namen für Textboxen usw. habe ich auch umgesetzt, da hätte ich auch selber drauf kommen können ;)
    Die Stunden >1 habe ich noch nicht umgesetzt, um die Übersichtlichkeit für die "Nachbauer" zu gewährleisten. Das sollte ja dann, wenn die ersten Stunden funktionieren 1:1 umzusetzen sein.

    Nochmals vielen Dank für die tolle Hilfe!!!

Facebook
Telefonspende