Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel Zeilen in eine Zeile anzeigen

Frage Microsoft Microsoft Office

Mitglied: rw72

rw72 (Level 1) - Jetzt verbinden

17.06.2014 um 01:13 Uhr, 1315 Aufrufe, 2 Kommentare

Hallo,
ich habe eine Excel Tabelle mit dem Aufbau

Nummer Text
0000001 Test2
0000001 Test1
0000002 Titel
0000002 Titel2
0000002 Titel3

Jetzt möchte ich aber die Zeilen zusammenfassen in
0000001 Test2, Test1
0000002 Titel, Titel2, Titel3

Ich habe keine Idee wie ich das in Excel umsetzen kann.

Kann mir jemand weiterhelfen?

Vielen Dank
Ralf
Mitglied: colinardo
17.06.2014, aktualisiert um 09:56 Uhr
Hallo Ralf,
eine Möglichkeit wäre diese Einträge mit einer Pivottabelle zu gruppieren, eine andere ein kleines Makro das die Einträge wie von dir gewünscht zusammenfasst:

Im Beispiel gehe ich jetzt einfach mal davon aus das die Daten in Zelle A2 auf dem ersten Tabellenblatt liegen
01.
Sub MergeDuplicates() 
02.
    Dim ws As Worksheet, rngStart As Range, rngEnd As Range, rngCurrent As Range 
03.
    ' Erstes Tabellenblatt referenzieren 
04.
    Set ws = Worksheets(1) 
05.
    'Startzelle der Daten festlegen 
06.
    Set rngStart = ws.Range("A2") 
07.
    ' Zellendbereich ermitteln 
08.
    Set rngEnd = rngStart.End(xlDown).Offset(0, 1) 
09.
 
10.
    ' Bereich zuerst nach Nummern sortieren 
11.
    ws.Range(rngStart, rngEnd).Sort ws.Range("A1") 
12.
     
13.
    'So lange zusammenfassen bis eine Zelle keinen Inhalt hat 
14.
    Set rngCurrent = rngStart 
15.
    While rngCurrent.Value <> "" 
16.
        If rngCurrent.Value = rngCurrent.Offset(1, 0).Value Then 
17.
            rngCurrent.Offset(0, 1).Value = rngCurrent.Offset(0, 1).Value & ", " & rngCurrent.Offset(1, 1).Text 
18.
            rngCurrent.Offset(1, 0).EntireRow.Delete 
19.
        Else 
20.
            Set rngCurrent = rngCurrent.Offset(1, 0) 
21.
        End If 
22.
    Wend 
23.
End Sub
Hier noch das Demo-Dokument dazu.

Grüße Uwe
Bitte warten ..
Mitglied: rw72
17.06.2014 um 09:55 Uhr
SUPER Vielen Vielen Dank!

Danke
Ralf
Bitte warten ..
Ähnliche Inhalte
Datenbanken
gelöst MSSQL Datenkonvertierung 1 Zeile auf mehrere Zeilen - bitte um Tips (4)

Frage von highmoe zum Thema Datenbanken ...

Microsoft Office
gelöst EXCEL (OpenOffice) Inventurliste (wenn Wert dann in Tabelle 2 anzeigen) (3)

Frage von pyrolords zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (11)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...