Emailadressen exportieren mit Komma / Doppelte anzeigen lassen

[shift-del]

#Name heißt, Excel kennt die Funktion nicht. Also doch kein Excel 2016???

TEXTVERKETTEN() ist eine Funktion, die nicht im ursprünglichen Excel 2016 enthalten ist sondern nur für Abonnisten verfügbar ist.

[ABCDEF]

TEXTVERKETTEN() ist eine Funktion, die nicht im ursprünglichen Excel 2016 enthalten ist sondern nur für Abonnisten verfügbar ist.

Daran wirds scheitern. Habe Office Home & Business 2016.

[ABCDEF]

@Attital

Microsoft Forms 2.0 Objektlibrary  steht leider nicht in der Liste der Verweise. Sind alphabetisch aufgelistet. Heißt das wirklich genau so? Oder eventuell auch Microsoft Feeds 2.0 Objekt Library?

[DbSam]

"TEXTVERKETTEN"
Wer soll sich denn noch merken, wann welche Funktion in welcher Version verfügbar ist.

Ja, da geht das bei Dir nicht. Entschuldige bitte, das wusste ich nicht.


Ansonsten wenn das eine einmalige Aktion ist, dann kannst Du auf die Schnelle temporär auch eine zusätzliche Spalte nutzen:
Angenommen in Spalte A stehen die E-Mailadressen.
Dann in die erste Zelle daneben (B1) schreiben:   =A1
Darunter, in B2:   =VERKETTEN(B1;",";A2)
und dann nach unten erweitern lassen (Doppelklick in die rechte untere Ecke der Zelle)
Mit Strg+Ende nach unten springen und dann kopieren.
Fertsch und weiter ...

Nicht besonders intelligent, aber hilfreich ...
< Edit >
Achtung, funktioniert nur mit einer Zeichenlänge bis ca. 32700 Zeichen
< /Edit >


Wenn Du es öfter benötigst, dann kannst Du mit Attillas Funktion weiter basteln.


Gruß Carsten

[ABCDEF]

Leider macht Excel da nicht mehr als 48 Emailadressen. Gibt es da eine Begrenzung?

[DbSam]

Ja, wie nachträglich oben erwähnt: ca. 32700 Zeichen
Aber das sollten mehr als 48 Adressen sein ;)



Gruß Carsten

[ABCDEF]

Ja, wie nachträglich oben erwähnt: ca. 32700 Zeichen
Aber das sollten mehr als 48 Adressen sein ;)



Gruß Carsten

Na ja, er listet ja in Reihe 46 46 Adressen auf, in Reihe 47 47 und Reihe 48 48....Da gehen die Zeichen schnell flöten ;)

Da müsste Attila mir nochmal antworten bzgl. seiner Lösung.

[DbSam]

Na ja, er listet ja in Reihe 46 46 Adressen auf, in Reihe 47 47 und Reihe 48 48...

Und in Zeile 999 enthält der String 999 E-Mailadressen ...
Naja, aber das wolltest Du doch. Oder nicht?

Die Frage ist doch aber auch, wie Du diesen ellenlangen String weiterverarbeiten willst.
Kann dieser dann auch vom empfangenden Programm verarbeitet werden oder gibt es dort evtl. Restriktionen?


Ansonsten:
Wie sieht Dein Attilla-Code bis jetzt aus und woran klemmt es?


Gruß Carsten

[atilla]

Hallo,

hier meine Variante noch einmal angepasst für größere Datenmengen:

Code:

Sub mit_Komma_in_Zelle()
 Dim oData As New DataObject
 Dim i As Long, j As Long
 Dim stgT As String
 Dim arr

 If Selection.Count > 1 Then
   ReDim arr(Application.CountA(Selection) - 1)
   For i = 1 To Selection.Count
     If Cells(i, 1) <> "" Then
       arr(j) = Cells(i, 1)
       j = j + 1
     End If
   Next i
 End If

 If j > 0 Then
   With oData
     .SetText Join(arr, ",")
     .PutInClipboard
   End With
'    Range("B1:B1") = Join(arr, ",") 'schreibt in Zelle B1 aber schneidet nach 32767 Zeichen ab
 End If

End Sub

Bei meiner Version, wenn die Daten über die Zwischenablage irgendwo eingefügt werden, habe ich bei über 120.000 keine Probleme gehabt.
Chris' Version ist abhängig von Excel und der Zeichenkettenlänge einer Zelle, wenn ich nicht falsch gesehen habe sind das 32767 Zeichen.

Vom Komfort her ist meine Version auch sehr einfach zu bedienen.
Man markiert den Bereich, den man einlesen möchte, und über eine Tastenkombi startet man die Prozedur.
Und mit strg & V fügt man es ein.

So sieht die Verweis Geschichte bei mir aus:

[
Bild bitte so als Datei hochladen: Klick mich!
]

Und hier eine Beispieldatei:


  E-Mail Addressen Verketten.xlsm (Größe: 91,17 KB / Downloads: 4)

[ABCDEF]

Microsoft Forms 2.0 Objektlibrary steht bei mir definitiv nicht in der Liste der verfügbaren Verweise .

Verweise mit Häkchen sind

Visual Basic for Applications
Microsoft Excel 16.0 Object Library
OLE Automation
Microsoft Office 16.0 Object Library

Es kommt immer Fehler beim Kompilieren

Benutzerdefinierter Typ nicht definiert

Gelb markiert ist "oData As New DataObject"