Microsoft Excel

Herbers Excel/VBA-Archiv

Verbinden bzw. Verketten von Werten aus Spalte


Betrifft: Verbinden bzw. Verketten von Werten aus Spalte
von: Peter
Geschrieben am: 28.11.2018 10:43:35

Hallo ihr Excelspezialisten,

ich möchte aus einer Tabelle aus z.B. Spalte E alle Werte in einer Zelle z.B. G2 verbinden bzw. verketten jeweils mit einem ";" nach jedem Wert aus einer Zelle.

Ziel ist es diese Werte in Thunderbird unter An: einzufügen.

Mein Code hierzu:
'funktioniert

Private Sub Thunderbird()
Dim strAn As String
Dim strBetr As String
Dim strBody As String
Dim strAttPfad As String
Dim strThunderPfad As String
Dim strShell As String

'******** anpassen
strThunderPfad = """C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"""

strAn = "Meine Email Adresse," 'mehrere Empfänger durch Komma trennen!

strBetr = "blablubb"
strBody = "ExcelBlatt Texte"

strShell = strThunderPfad & _
" -compose """ & _
"to='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body=" & strBody & _
""""
Call Shell(strShell, vbNormalFocus)
End Sub

Bei dieser Gelegenheit möchte ich mich gerne Erkundigen, ob es Möglich ist mittels diesem Makro .bcc = zu aktivieren bzw. auszuwählen.

Besten Dank für eure Hilfe.

Gruss
Peter

  

Betrifft: AW: Verbinden bzw. Verketten von Werten aus Spalte
von: Werner
Geschrieben am: 28.11.2018 13:45:08

Hallo Peter,

z.B. so:

Dim i As Long, strZusammen As String

With Worksheets("Tabelle1") 'Blattname anpassen
    For i = 1 To .Cells(.Rows.Count, 5).End(xlUp).Row
        If strZusammen = "" Then
            strZusammen = .Cells(i, 5)
        Else
            strZusammen = strZusammen & ";" & .Cells(i, 5)
        End If
    Next i
    .Range("G2") = strZusammen
End With
In der Annahme, deine Daten in Spalte E beginnen in E1.

Gruß Werner


  

Betrifft: AW: Verbinden bzw. Verketten von Werten aus Spalte
von: Peter
Geschrieben am: 29.11.2018 08:10:25

Guten Morgen Werner,

besten Dank für Deine Hilfe. Funktioniert einwandfrei.

Wünsche noch einen schönen Tag.

Gruss
Peter


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 29.11.2018 08:37:36