Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufteilung Feldinformationen

Forumthread: Aufteilung Feldinformationen

Aufteilung Feldinformationen
07.07.2016 14:55:54
nihil0815

Hallo zusammen,
ein Stammdatenexport kann von einem Newsletterdienstleister nicht verarbeitet werden, wenn in den Emailfeldern mehr als eine Emailadresse steht. (Beispiel Zeile 3 im Upload, Reiter „Vorlage“).
https://www.herber.de/bbs/user/106839.xlsx
Ich suche nun nach einer Möglichkeit, die Stammdaten automatisiert so zu überarbeiten, dass die in der Spalte hinterlegten Einzeladressen auf Duplikate des Datensatzes aufgeteilt werden (Beispiel Zeile 3-5 im Reiter „Ergebnis“).
Die Einzeladressen sind immer durch ein Semikolon mit anschließendem Leerfeld getrennt.
Hat jemand eine Idee, wie man das, z.B. mit einem Makro realisieren kann?
Danke vorab und beste Grüße
Nils

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufteilung Feldinformationen
07.07.2016 16:49:07
UweD
Hallo Nils
so ginge es ...
Option Explicit 
 
Sub email_aufteilen() 
    Dim Zelle, MAdd, TB 
    Dim i As Integer, R As Integer 
     
    Set TB = Sheets("Ergebnis") 
    TB.Cells.ClearContents 
    R = 1 
    With Sheets("Vorlage") 
        For Each Zelle In .Columns(4).SpecialCells(xlCellTypeConstants, 2) 
            MAdd = Split(Zelle, "; ") 
            For i = 0 To Ubound(MAdd) 
                .Rows(Zelle.Row).Copy TB.Rows(R) 
                TB.Cells(R, 4) = MAdd(i) 
                R = R + 1 
            Next i 
        Next 
    End With 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Gruß UweD

Anzeige
AW: Aufteilung Feldinformationen
07.07.2016 16:53:13
nihil0815
Hallo Uwe,
klasse, funktioniert einwandfrei!
Vielen Dank und viele Grüße
Nils

AW: Danke für die Rückmeldung owT
08.07.2016 08:20:56
UweD
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige