Registriert seit: 01.05.2018
Version(en): 2010
Hallo zusammen,
ich habe folgendes, vermutlich sehr einfaches Problem.
Ich habe eine einfach Excel Liste mit ca 700 untereinander stehenden eMail Adressen in dieser Form (hans.meier@email.de, bernd.mueller@email.de,...))-
Diese muss ich möglichst aufwandsarm in diese Form bringen:
hans.meier@email.de, bernd.mueller@email.de, ...
Alle untereinanderstehenden Adressen sollen also nebeneinander und durch ein Komma getrennt auftreten.
Vll. kann mir jemand helfen?
Vielen Dank und viele Grüße,
Daniel
Registriert seit: 06.12.2015
Version(en): 2016
Hallo,
die Frage ist, wo dann diese lange Liste hin soll.
Code:
sub Spate_Liste()
Ar = Range("A1", cells(1,1).end)
Liste = join(application.transpose(Ar); ", ")
cells(1,3) = Liste
end sub
mfg
Registriert seit: 01.05.2018
Version(en): 2010
Hallo,
erstmal vielen Dank für den Schnipsel!
Eigentlich brauche ich die Ausgabe in einer Zelle, dann könnte ich die ganzen Adressen kopieren und somit weiterverarbeiten...
Vll. noch einen Hinweis?
Danke!
Registriert seit: 12.04.2014
Version(en): Office 365
01.05.2018, 14:24
(Dieser Beitrag wurde zuletzt bearbeitet: 01.05.2018, 14:25 von Peter.
Bearbeitungsgrund: Code-Tags gesetzt
)
Hallo,
du könntest auch den folgenden Code in ein allgemeines Modul deiner Datei kopieren
Code:
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng <> "" Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
Next
If Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function
und in die gewünschte Zelle dann folgende Formel verwenden
=Verketten2(A1:A10;", ")
Gruß
Peter
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
01.05.2018, 14:36
(Dieser Beitrag wurde zuletzt bearbeitet: 01.05.2018, 14:36 von LCohen.)
=TEXTVERKETTEN(", ";;A1:A700)
... in Excel-Online (TEXTVERKETTEN), Google-Docs (TEXTJOIN) und LO6 (VERBINDEN) jeweils kostenlos.
In xl365 kostet es monatlich.
Viel mehr als 700 geht übrigens nicht ... vielleicht auch noch nicht einmal 700.
Und bei Peter ist schon früher Schluss, falls der VBA-Bug "max. 256 Zeichen" greift.
Registriert seit: 01.05.2018
Version(en): 2010
Hallo nochmal,
Peters Formel und das Makro haben funktioniert - vielen lieben Dank!
Einen schönen ersten Mai wünsche ich noch!
Viele Grüße,
Daniel
Registriert seit: 29.01.2018
Version(en): 2013
Hallo,
Maximale Anzahl von Zeichen in einer Zelle --> 32.767 Zeichen
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
Der Bug aus xl2000 scheint wohl verschwunden. Mit Peters Funktion konnte ich mehr als 3000 Zeichen ausgeben (darüber nicht getestet).