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, 1327 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
Microsoft Office
Excel nur markierte Zeilen ausdrucken? (3)

Frage von Server4Alle zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel: Mittelwert alle 96 Zeilen berechnen (6)

Frage von sims zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel: Wenn Wert in Spalte A dann kopiere Zeile (8)

Frage von michi1983 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Firewall
Richtige Grundeinstellungen der Pfsense für mein Netzwerk (12)

Frage von Spitzbube zum Thema Firewall ...

Switche und Hubs
gelöst Cisco 2960x Stacking über mehrere Etagen (12)

Frage von b3scher zum Thema Switche und Hubs ...