Teile mit variabler Länge aus Combobox auslesen

Forumthread: Teile mit variabler Länge aus Combobox auslesen

05.10.2023 09:54:30

Cris

Servus,

ich übergebe aus einer Userform Daten an eine Tabelle. In der Combobox3 stehen nun zb, Anrede Name, Telefonnummer, Kostenstellen durch einen Beistrich getrennt.
Diese Anordnung macht an der Stelle auch Sinn und ich möchte das so belassen.

Ich möchte nun diese Box aber auch dazu verwenden dass die Teile links vor dem ersten Beistrich (inklusive des Beistrichs) für eine persönliche Anrede in einer Mail nutzbar sind.
Nachdem die Namen aber unterschiedliche Zeichenlängen haben kann ich das nicht fix machen sondern muss den Beistrich als Trennpunkt definieren.

Habt ihr einen Vorschlag wie ich diese Combobox ansprechen muss

Danke schon mal
lg
Cris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Teile mit variabler Länge aus Combobox auslesen

05.10.2023 10:15:39

Oberschlumpf

Hi Cris,

mit einer von dir per Upload gezeigten Bsp-Datei mit Bsp-Daten, dem! Userform(ular) und Code könnten wir besser testen - so ohne Datei können wir nur raten.

Ciao
Thorsten

AW: Teile mit variabler Länge aus Combobox auslesen

05.10.2023 10:48:02

Daniel

Hi

Du kannst mit der SPLIT-Funktion deinen Text am Beistrich in Einzelteile aufteilen, die dann in einem Array liegen, darüber kannst du dann auf die Einzelteile zugreifen:

Anrede =Split(Combobox3.text, "-")(0)

Das (0) steht hier für den ersten Teil, da das Array 0-basiert ist.

Gruß Daniel

AW: Teile mit variabler Länge aus Combobox auslesen

05.10.2023 11:07:23

Cris

Die Tabelle selbst wird nicht viel bringen, aber im Code unten erkennt man an sich was ich vor habe.
Es geht um die Zeile

 & "Hallo " & ComboBox3 & "
" & "
 "  & .HTMLBody

Nachstehend ein paar Beispiele wie der Aufbau der Combobox3 aufgebaut sein kann. Manchmal nur Name und Telefonnummer, bei anderen Einträgen wird das um Abteilungen und Rechnungscodes erweitert.
Das einzige was ich für die Anrede verwenden kann sind die ersten beiden Worte plus ein Beistrich. Der Rest soll weggeblendet werden.

Herr Max Muster Michael 0664... BMTI (124578), XX-YY-XFR400
Herr Helmut 0690.. , Oberstetten, XX-YY-XFR201
Frau xy Herta 0676.. , Gerasdorf (504213), XX-YY-XFR402
Herr Simikic 0664..
Herr Denk 0677...





Private Sub speichern_Click()



    Dim z As Long

    Dim Wert As Boolean

        z = Range("B10000").End(xlUp).Row + 1

    Cells(z, 2) = Einsatz.Value

    On Error Resume Next

    Cells(z, 1) = TextBox2 * 1                          'Servicektion

    Cells(z, 3) = Status                                'Status

    Cells(z, 4) = ComboBox1                             'Kunde

    Cells(z, 5) = ComboBox2                             'Gerät gesamt

    Cells(z, 8) = ComboBox3                             'Anrufer

    Cells(z, 9) = ComboBox5                             'Kontaktperson vor Ort

    Cells(z, 10) = ComboBox4                            'Adresse

    Cells(z, 11) = Stoerung                             'Störung

    Cells(z, 12) = TextBox1                             'Serviceinfo

    Cells(z, 13) = TextBox5                             'Mailversand

    Cells(z, 14) = TextBox7                             'Lieferadresse

    Cells(z, 15) = CDate(Datum.Value)                   'Zeitstempel

    Cells(z, 16) = Uhrzeit                              'Zeitstempel

    Cells(z, 17) = Mailadresse                          'Mailadresse

    Cells(z, 18) = ComboBox1                            'Kunde

    Cells(z, 19) = TextBox4                             'Kreditstatus

    Cells(z, 20) = ComboBox6                            'Mailadresse Kunde

    

        ActiveWorkbook.Save



If CheckBox8 Then

   Dim pdfName As String

   Dim pdfOpenAfterPublish As Boolean

   Dim olApp As Object

    Set olApp = CreateObject("Outlook.Application")

    With olApp.CreateItem(0)

        .GetInspector.display                           'ermöglicht das auslesen der Mail Signatur

        .To = ComboBox6

        .CC =

        .Subject = "Terminbestätigung, " & Me.ComboBox2 & ", " & ComboBox1

        .HTMLBody = "" _

        & "Hallo " & ComboBox3 & "
" & "
 "  & .HTMLBody

        .display

    End With

End If



Unload Me

End Sub

AW: Teile mit variabler Länge aus Combobox auslesen

05.10.2023 11:16:44

Oberschlumpf

Hi Cris,

versuch das hier (natürlich ungetestet von mir)



'erst

Dim lstrSplit() As String, lstrAnrede As String



lstrSplit = Split(ComboBox3.Text, " ")

lstrAnrede = lstrSplit(0) & " " & lstrSplit(1) & "-"



'jetzt

 & "Hallo " & lstrAnrede & "" & " "  & .HTMLBody

Hilfts?

Ciao
Thorsten

AW: Teile mit variabler Länge aus Combobox auslesen

05.10.2023 12:25:41

Cris

Danke euch,
die Version von Oberschlupf hat gepasst

lg
Cris

Beliebteste Forumthreads (12 Monate)

Teile mit variabler Länge aus Combobox auslesen

Forumthread: Teile mit variabler Länge aus Combobox auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread