In einer Combobox sind Zahlen und die dazugehörigen Klarnamen enthalten (einspaltig). Ich hab jetzt nun das Problem, dass die Zahl in die Mail an Outlook im Betreff übergeben werden soll. Mit der Übergabe etc. alles kein Problem, jedoch weiss ich nicht, wie ich nur die Zahl aus der Combobox auslesen kann. Der Klarname ist jedoch Pflicht, da die meisten Mitarbeiter sonst nicht wissen, was sich hinter der Zahl verbirgt.
so wird die combobox gefüllt:
Set bereich1 = Worksheets("Tabelle2").Range("E38:E127")
For Each c In bereich1
ComboBox1.AddItem c
Next c
und so wird alles an outlook übergeben:
Dim olApp As Object
Dim EmailText As String
Dim Name As String
Set olApp = CreateObject("Outlook.Application")
Name = ActiveWorkbook.FullName
With olApp.CreateItem(0)
If ListBox3 = ("Archivscannen") Then
.To = "beispiel@beispiel.de" '
.Subject = "SNR=" & ((ListBox1) & (TextBox1)) & "-000" & (ListBox2) & " " & (Label5) & "=" & (ComboBox1)
.ReadReceiptRequested = False
.Display