Teile mit variabler Länge aus Combobox auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

'erst Dim lstrSplit() As String, lstrAnrede As String lstrSplit = Split(ComboBox3.Text, " ") lstrAnrede = lstrSplit(0) & " " & lstrSplit(1) & "-" 'jetzt & "Hallo " & lstrAnrede & "" & " " & .HTMLBody

Beliebteste Forumthreads (12 Monate)

Teile mit variabler Länge aus Combobox auslesen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teile mit variabler Länge aus Combobox auslesen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread