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:
*Topic verschoben, VB-BBCode eingefügt*
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
- ' Userform anzeigen
- Private Sub CommandButton1_click()
- VersandUserForm1.Show
- End Sub
- ' Textboxes initialisieren
- Private Sub VersandUserForm_Initialize()
- Auftragsnummer.Value = ""
- LKW.Value = ""
- Lieferschein.Value = ""
- Versandtag.Value = ""
- Performa.Value = ""
- OptionButton1.Value = ""
- OptionButton2.Value = ""
- TextBox18.vale = ""
- Länge.Value = ""
- Breite.Value = ""
- Höhe.Value = ""
- Gewicht.Value = ""
- Ladung.Value = ""
- TextBoxDat.Value = ""
- Uhrzeit.Value = ""
- Ort.Value = ""
- Ansprech.Value = ""
- Telefon.Value = ""
- Kunde.Value = ""
- Versandinfo.Value = ""
- OptionButton3.Value = ""
- OptionButton4.Value = ""
- Termin.Value = ""
- Sonstige.Value = ""
- Datum.Value = Date & " - " & Time
- End Sub
- ' Userform beenden
- Private Sub BeendenButton_Click()
- Unload Me
- End Sub
- ' Inhalte der Textboxes leeren
- Private Sub LöschenButton_Click()
- Call VersandUserForm_Initialize
- End Sub
- ' Outlook + automatische Übertragung in Klärfallliste
- Private Sub MailButton_click()
- Dim objOutlook As Object
- Dim objMail As Object
- Dim btext As String
- Set objOutlook = CreateObject("Outlook.Application")
- Set objMail = objOutlook.CreateItem(0)
- With objMail
- .To = [email=Max.mustermann@musterland.de]Max.mustermann@musterland.de[/email]
- .Subject = "Versandfreigabe"
- .HTMLBody = "Hallo Herr Hoffmann," &
- "<br><br>" & "bitte aufs nächste Shuttle zur
- Auslieferung. Anbei die Versandfreigabe:" _
- & "<br><br>" & "Mit freundlichen
- Grüßen" & "<br><br>" &
- "<br><br>" _
- & "<table border=""1""
- cellpadding=""3"" cellspacing=""0""
- width=""20%"" bgcolor=""#E6E6E6""
- bordercolor=""#2E2E2E"">" _
- & "<tr>" &
- "<td>Auftragsnummer</td>" & "<td>"
- & Auftragsnummer.Value & "</td>" &
- "</tr>" & "<tr>" & "<td>LKW Nr.
- ab Guxhagen</td>" & "<td>" & LKW.Value &
- "</td>" & "</tr>" _
- & "<tr>" &
- "<td>Lieferscheinnummer</td>" &
- "<td>" & Lieferschein.Value & "</td>"
- & "</tr>" & "<tr>" &
- "<td>Versandtag in Guxhagen</td>" &
- "<td>" & Versandtag.Value & "</td>"
- & "</tr>" _
- & "<tr>" &
- "<td>Performa-Rechnungsnummer</td>" &
- "<td>" & Performa.Value & "</td>" &
- "</tr>" & "<tr>" &
- "<td>Bestätigter Termin an Kunde (eintreffend)</td>"
- & "<td>" & Termin.Value & "</td>" &
- "</tr>" _
- & "<tr>" & "<td>L/C</td>" &
- "<td>" & "<td>" & "<input
- type=""optionbutton""
- name=""OptionButton1[]"" Caption=""Ja""
- checked>" & "</td>" & "</tr>"
- & "</table>" & "<br><br>" &
- "<u><b>Packdaten</u></b>" &
- "<br><br>" _
- & "<table border=""1""
- cellpadding=""3"" cellspacing=""0""
- width=""20%"" bgcolor=""#E6E6E6""
- bordercolor=""#2E2E2E"">" &
- "<tr>" & "<td>Länge</td>" &
- "<td>" & Länge.Value & "</td>" &
- "</tr>" _
- & "<tr>" & "<td>Breite</td>"
- & "<td>" & Breite.Value & "</td>"
- & "</tr>" & "<tr>" &
- "<td>Höhe</td>" & "<td>" &
- Höhe.Value & "</td>" & "</tr>" _
- & "<tr>" & "<td>Gewicht</td>"
- & "<td>" & Gewicht.Value & "</td>"
- & "</tr>" & "<tr>" &
- "<td>Ladung</td>" & "<td>" &
- Ladung.Value & "</td>" & "</tr>" &
- "</table>" & "<br><br>"
- & "<u><b>Fixdaten</u></b>" &
- "<br><br>" _
- & "<table border=""1""
- cellpadding=""3"" cellspacing=""0""
- width=""20%"" bgcolor=""#E6E6E6""
- bordercolor=""#2E2E2E"">" & "<td>Datum</td>"
- & "<td>" & Ladung.Value & "</td>"
- & "</tr>" _
- & "<td>Uhrzeit</td>" & "<td>"
- & TextBoxDat.Value & "</td>" &
- "</tr>" & "<td>Ort</td>" &
- "<td>" & Ort.Value & "</td>" &
- "</tr>" _
- & "<td>Ansprechpartner</td>" &
- "<td>" & Ansprech.Value & "</td>" &
- "</tr>" & "<td>Telefonnummer</td>"
- & "<td>" & Telefon.Value & "</td>"
- & "</tr>" & "</table>" &
- "<br><br>" & "<table
- border=""1"" cellpadding=""3""
- cellspacing=""0"" width=""20%""
- bgcolor=""#E6E6E6"" bordercolor=""#2E2E2E"">"
- _
- & "<tr>" & "<td>E-Mail Kunde</td>"
- & "<td>" & Kunde.Value & "</td>"
- & "<tr>" & "<td>Versandinfo
- an</td>" & "<td>" & Versandinfo.Value &
- "</td>" & "<td>" & CheckBox7.Caption
- & "</td>" & "</tr>" _
- & "<tr>" & "<td>BAFA</td>" &
- "<td>" & Kunde.Value & "</td>"
- .Display
- End With
- If TextBox18.Value = "" Then
- MsgBox ("Sie haben vergessen Felder auszufüllen")
- Exit Sub
- End If
- End Sub
- Private Sub OptionButton1_Click()
- If Me!OptionButton1.Caption = True Then
- Me!TextBox18.Enabled = True
- TextBox18.Visible = True
- End If
- End Sub
- Private Sub OptionButton2_Click()
- If Me!OptionButton2.Caption = True Then
- Me!TextBox18.Enabled = False
- TextBox18.Visible = False
- End If
- End Sub
- Private Sub OptionButton3_Click()
- If Me!OptionButton3.Value = True Then
- Me!CheckBox1.Enabled = True
- Me!CheckBox2.Enabled = True
- Me!CheckBox3.Enabled = True
- Me!CheckBox4.Enabled = True
- Me!CheckBox5.Enabled = True
- Me!CheckBox6.Enabled = True
- CheckBox1.Visible = True
- CheckBox2.Visible = True
- CheckBox3.Visible = True
- CheckBox4.Visible = True
- CheckBox5.Visible = True
- CheckBox6.Visible = True
- End If
- End Sub
- Private Sub OptionButton4_Click()
- If Me!OptionButton4.Value = True Then
- Me!CheckBox1.Enabled = False
- Me!CheckBox2.Enabled = False
- Me!CheckBox3.Enabled = False
- Me!CheckBox4.Enabled = False
- Me!CheckBox5.Enabled = False
- Me!CheckBox6.Enabled = False
- CheckBox1.Visible = False
- CheckBox2.Visible = False
- CheckBox3.Visible = False
- CheckBox4.Visible = False
- CheckBox5.Visible = False
- CheckBox6.Visible = False
- End If
- End Sub
- Private Sub CheckBox1_Click()
- If Me!CheckBox7.Value = True Then
- CheckBox7.Caption = True
- Else
- CheckBox8.Caption = True
- End If
- End Sub
*Topic verschoben, VB-BBCode eingefügt*
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Marcus Gräfe“ ()