Inhalt/Ergebnis von CheckBox/OptionButton per Mail versenden

  • Excel

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Inhalt/Ergebnis von CheckBox/OptionButton per Mail versenden

    Hallo zusammen,

    ich bin VBA-Anfänger und stehe vor einer meinerseits großen Herausforderung .. ;(

    Ich habe ein Formblatt (Userform) erstellt, welches aus vielen TextBoxes,
    OptionButtons und CheckBoxes besteht. Ziel dieses Formblattes ist es, diesen
    nach Ausfüllen aller Felder per "Absenden" automatisch über Outlook
    als Tabelle auszugeben. An sich habe ich diesen Schritt schon geschafft, jedoch
    habe ich Probleme mit der Übertragung von den CheckBoxes/Optionbuttons..

    Zum einen habe ich eine "ja" und "nein" Option, welche so
    aufgebaut sind, dass beim Klick auf "Ja" eine TextBox darunter
    gefüllt werden muss und bei "nein" die TextBox gesperrt ist.
    Weiterhin gibt es eine TextBox "Ansprechpartner" und daneben zwei
    CheckBoxes, wo angegeben werden muss, ob dieser ein "Kunde" oder
    "Intern" ist. Zu guter Letzt wieder eine "ja" und
    "nein" Option, bei dem mit Klick auf "ja" eine Auswahl 6
    verschiedener CheckBoxes erscheint und ausgewählt werden muss und bei
    "nein" eben nicht.

    Die Tabelle baue ich mittels HTML auf, klappt auch alles und verstehe soweit
    den Aufbau, jedoch weiß ich nicht wie ich in die zweite Spalte nur die
    ausgewählten Punkte der CheckBoxes bzw. Optionbuttons ausgegeben kriege.. Den
    Code füge ich mit bei und ich hoffe sehr, dass
    meine Anforderungen realistisch und umsetzbar sind. Ich bedanke mich für jede
    Hilfe!!

    Code:

    Visual Basic-Quellcode

    1. ' Userform anzeigen
    3. Private Sub CommandButton1_click()
    4. VersandUserForm1.Show
    5. End Sub
    7. ' Textboxes initialisieren
    9. Private Sub VersandUserForm_Initialize()
    10. Auftragsnummer.Value = ""
    11. LKW.Value = ""
    12. Lieferschein.Value = ""
    13. Versandtag.Value = ""
    14. Performa.Value = ""
    15. OptionButton1.Value = ""
    16. OptionButton2.Value = ""
    17. TextBox18.vale = ""
    18. Länge.Value = ""
    19. Breite.Value = ""
    20. Höhe.Value = ""
    21. Gewicht.Value = ""
    22. Ladung.Value = ""
    23. TextBoxDat.Value = ""
    24. Uhrzeit.Value = ""
    25. Ort.Value = ""
    26. Ansprech.Value = ""
    27. Telefon.Value = ""
    28. Kunde.Value = ""
    29. Versandinfo.Value = ""
    30. OptionButton3.Value = ""
    31. OptionButton4.Value = ""
    32. Termin.Value = ""
    33. Sonstige.Value = ""
    34. Datum.Value = Date & " - " & Time
    35. End Sub
    37. ' Userform beenden
    38. Private Sub BeendenButton_Click()
    39. Unload Me
    40. End Sub
    42. ' Inhalte der Textboxes leeren
    43. Private Sub LöschenButton_Click()
    44. Call VersandUserForm_Initialize
    45. End Sub
    47. ' Outlook + automatische Übertragung in Klärfallliste
    49. Private Sub MailButton_click()
    50. Dim objOutlook As Object
    51. Dim objMail As Object
    52. Dim btext As String
    53. Set objOutlook = CreateObject("Outlook.Application")
    54. Set objMail = objOutlook.CreateItem(0)
    56. With objMail
    57. .To = [email=Max.mustermann@musterland.de]Max.mustermann@musterland.de[/email]
    58. .Subject = "Versandfreigabe"
    60. .HTMLBody = "Hallo Herr Hoffmann," &
    61. "<br><br>" & "bitte aufs nächste Shuttle zur
    62. Auslieferung. Anbei die Versandfreigabe:" _
    64. & "<br><br>" & "Mit freundlichen
    65. Grüßen" & "<br><br>" &
    66. "<br><br>" _
    68. & "<table border=""1""
    69. cellpadding=""3"" cellspacing=""0""
    70. width=""20%"" bgcolor=""#E6E6E6""
    71. bordercolor=""#2E2E2E"">" _
    73. & "<tr>" &
    74. "<td>Auftragsnummer</td>" & "<td>"
    75. & Auftragsnummer.Value & "</td>" &
    76. "</tr>" & "<tr>" & "<td>LKW Nr.
    77. ab Guxhagen</td>" & "<td>" & LKW.Value &
    78. "</td>" & "</tr>" _
    80. & "<tr>" &
    81. "<td>Lieferscheinnummer</td>" &
    82. "<td>" & Lieferschein.Value & "</td>"
    83. & "</tr>" & "<tr>" &
    84. "<td>Versandtag in Guxhagen</td>" &
    85. "<td>" & Versandtag.Value & "</td>"
    86. & "</tr>" _
    88. & "<tr>" &
    89. "<td>Performa-Rechnungsnummer</td>" &
    90. "<td>" & Performa.Value & "</td>" &
    91. "</tr>" & "<tr>" &
    92. "<td>Bestätigter Termin an Kunde (eintreffend)</td>"
    93. & "<td>" & Termin.Value & "</td>" &
    94. "</tr>" _
    96. & "<tr>" & "<td>L/C</td>" &
    97. "<td>" & "<td>" & "<input
    98. type=""optionbutton""
    99. name=""OptionButton1[]"" Caption=""Ja""
    100. checked>" & "</td>" & "</tr>"
    101. & "</table>" & "<br><br>" &
    102. "<u><b>Packdaten</u></b>" &
    103. "<br><br>" _
    105. & "<table border=""1""
    106. cellpadding=""3"" cellspacing=""0""
    107. width=""20%"" bgcolor=""#E6E6E6""
    108. bordercolor=""#2E2E2E"">" &
    109. "<tr>" & "<td>Länge</td>" &
    110. "<td>" & Länge.Value & "</td>" &
    111. "</tr>" _
    113. & "<tr>" & "<td>Breite</td>"
    114. & "<td>" & Breite.Value & "</td>"
    115. & "</tr>" & "<tr>" &
    116. "<td>Höhe</td>" & "<td>" &
    117. Höhe.Value & "</td>" & "</tr>" _
    119. & "<tr>" & "<td>Gewicht</td>"
    120. & "<td>" & Gewicht.Value & "</td>"
    121. & "</tr>" & "<tr>" &
    122. "<td>Ladung</td>" & "<td>" &
    123. Ladung.Value & "</td>" & "</tr>" &
    124. "</table>" & "<br><br>"
    125. & "<u><b>Fixdaten</u></b>" &
    126. "<br><br>" _
    128. & "<table border=""1""
    129. cellpadding=""3"" cellspacing=""0""
    130. width=""20%"" bgcolor=""#E6E6E6""
    131. bordercolor=""#2E2E2E"">" & "<td>Datum</td>"
    132. & "<td>" & Ladung.Value & "</td>"
    133. & "</tr>" _
    135. & "<td>Uhrzeit</td>" & "<td>"
    136. & TextBoxDat.Value & "</td>" &
    137. "</tr>" & "<td>Ort</td>" &
    138. "<td>" & Ort.Value & "</td>" &
    139. "</tr>" _
    141. & "<td>Ansprechpartner</td>" &
    142. "<td>" & Ansprech.Value & "</td>" &
    143. "</tr>" & "<td>Telefonnummer</td>"
    144. & "<td>" & Telefon.Value & "</td>"
    145. & "</tr>" & "</table>" &
    146. "<br><br>" & "<table
    147. border=""1"" cellpadding=""3""
    148. cellspacing=""0"" width=""20%""
    149. bgcolor=""#E6E6E6"" bordercolor=""#2E2E2E"">"
    150. _
    152. & "<tr>" & "<td>E-Mail Kunde</td>"
    153. & "<td>" & Kunde.Value & "</td>"
    154. & "<tr>" & "<td>Versandinfo
    155. an</td>" & "<td>" & Versandinfo.Value &
    156. "</td>" & "<td>" & CheckBox7.Caption
    157. & "</td>" & "</tr>" _
    159. & "<tr>" & "<td>BAFA</td>" &
    160. "<td>" & Kunde.Value & "</td>"
    162. .Display
    163. End With
    164. If TextBox18.Value = "" Then
    165. MsgBox ("Sie haben vergessen Felder auszufüllen")
    166. Exit Sub
    167. End If
    168. End Sub
    170. Private Sub OptionButton1_Click()
    171. If Me!OptionButton1.Caption = True Then
    172. Me!TextBox18.Enabled = True
    173. TextBox18.Visible = True
    174. End If
    175. End Sub
    177. Private Sub OptionButton2_Click()
    178. If Me!OptionButton2.Caption = True Then
    179. Me!TextBox18.Enabled = False
    180. TextBox18.Visible = False
    181. End If
    182. End Sub
    184. Private Sub OptionButton3_Click()
    185. If Me!OptionButton3.Value = True Then
    186. Me!CheckBox1.Enabled = True
    187. Me!CheckBox2.Enabled = True
    188. Me!CheckBox3.Enabled = True
    189. Me!CheckBox4.Enabled = True
    190. Me!CheckBox5.Enabled = True
    191. Me!CheckBox6.Enabled = True
    192. CheckBox1.Visible = True
    193. CheckBox2.Visible = True
    194. CheckBox3.Visible = True
    195. CheckBox4.Visible = True
    196. CheckBox5.Visible = True
    197. CheckBox6.Visible = True
    198. End If
    199. End Sub
    201. Private Sub OptionButton4_Click()
    202. If Me!OptionButton4.Value = True Then
    203. Me!CheckBox1.Enabled = False
    204. Me!CheckBox2.Enabled = False
    205. Me!CheckBox3.Enabled = False
    206. Me!CheckBox4.Enabled = False
    207. Me!CheckBox5.Enabled = False
    208. Me!CheckBox6.Enabled = False
    209. CheckBox1.Visible = False
    210. CheckBox2.Visible = False
    211. CheckBox3.Visible = False
    212. CheckBox4.Visible = False
    213. CheckBox5.Visible = False
    214. CheckBox6.Visible = False
    215. End If
    216. End Sub
    218. Private Sub CheckBox1_Click()
    219. If Me!CheckBox7.Value = True Then
    220. CheckBox7.Caption = True
    221. Else
    222. CheckBox8.Caption = True
    223. End If
    224. End Sub


    *Topic verschoben, VB-BBCode eingefügt*

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Honi92 Willkommen im Forum.
    Offensichtlich hast Du Dein Problem falsch deklariert.
    Lies mal hier nach und präzisiere den Titel Deines Threads bezüglich Sprache und Framework.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Honi92 schrieb:

    falsch deklariert
    war die Angabe Framework 3.5, das passt nicht zu VB6 (erledigt).
    Du schreibst, dass Du VBA-Anfänger seist und ordnest diesen Thread VB6 zu.
    Wenn es tatsächlich VB6 ist, dann ist die Aussage mit dem VBA-Anfänger irreführend.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    Das ist richtig. Genau genommen handelt es sich um Excel-VBA, womit ich programmiere. Dieses konnte ich den vorgegebenen Auswahlkriterien nicht zuordnen..

    Gibt es denn eine Lösung, womit man eine "entweder/ oder" Anweisung von OptionButtons im der Email zuordnen kann? Als Beispiel:

    Ich habe die Auswahl "Ja" und "Nein". Bei "Ja" muss eine weitere TextBox gefüllt werden. Demzufolge soll in der Email eine Tabelle mit zwei Spalten entstehen, auf dem in der ersten Spalte "Ja" steht und in der zweiten "Mustermann". Wählt man "Nein", dann soll da nur "Nein" stehen.

    Tabelle über HTML:

    "<tr>" & "<td>" & & </td>"

    Was schreibe ich jetzt dazwischen? Wenn ich nur OptionButton1 reinschreibe, dann würde ja OptionButton2 fehlen. Gibt es da keine oder-Anweisung oder ähnliches oder vielleicht eine ganz andere Lösung? Ich verzweifle :((

    @Honi92 Sorry, von VBA hab ich keine Ahnung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Honi92 schrieb:

    jedoch weiß ich nicht wie ich in die zweite Spalte nur die
    ausgewählten Punkte der CheckBoxes bzw. Optionbuttons ausgegeben kriege

    Kannst du das näher erläutern? Ich weiß nicht, was genau du meinst, also wo das Problem nun liegt.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

Facebook
Telefonspende