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 automatisch gruppieren (Makro)

Frage Microsoft Microsoft Office

Mitglied: LoneStarState01

LoneStarState01 (Level 1) - Jetzt verbinden

22.08.2014, aktualisiert 22:09 Uhr, 6138 Aufrufe, 2 Kommentare, 1 Danke

Hallo zusammen,

ich komme bei folgendem Problem in Excel einfach nicht weiter und wäre für jede Hilfe dankbar.

Ich habe eine Tabelle (siehe Bild) in der unterschiedliche Testpersonen mit einigen Merkmalen aufgelistet werden.
Jeweils darunter sind für jede der Testpersonen die Tage 1-13 aufgelistet.
Nun würde ich gerne die Tage so gruppieren, dass man bei ausblenden aller Gruppierungen nur die Liste der Personen sieht. (wie zwischen den ersten beiden Beispielen zu sehen)
Da die Liste über 2000 Testpersonen umfasst bin ich auf der Suche nach einer Möglichkeit, dass die Zeilen "Tag 1 - Tag 13" jeweils automatisch gruppiert werden.
Gibt es dafür möglicherweise eine Lösung? (vllt via Makro?!)

7ad306b5c82e2792bc5014f6765aebc0 - Klicke auf das Bild, um es zu vergrößern



Vielen Dank im Voraus!
Mitglied: colinardo
LÖSUNG 22.08.2014, aktualisiert 23.08.2014
Hallo LoneStarState01, Willkommen auf Administrator.de!
Hier eine Lösung deiner Aufgabe via Makro / und für den Fall das noch was unklar ist, das Demo-Sheet dazu.
01.
Sub GroupRows() 
02.
    On Error Resume Next 
03.
    Dim ws As Worksheet, rngNames As Range, cell As Range, f As Range, firstAddress 
04.
 
05.
    'Arbeistblatt festlegen 
06.
    Set ws = ActiveSheet 
07.
 
08.
    'Gruppierungsrange festlegen 
09.
    Set rngNames = ws.Range("A1", ws.Cells(Rows.Count, 1).End(xlUp)) 
10.
 
11.
    'Gruppierung aus dem Bereich vorher entfernen, für den Fall das das Makro später wiederholt werden soll 
12.
    ws.Outline.ShowLevels RowLevels:=2 
13.
    rngNames.Rows.Ungroup 
14.
 
15.
    ' Im Bereich nach 'Tag 1' suchen und Zellen gruppieren 
16.
    With rngNames 
17.
        Set f = .Find("Tag 1", LookIn:=xlValues, Lookat:=xlWhole) 
18.
        If Not f Is Nothing Then 
19.
            firstAddress = f.Address 
20.
            Do 
21.
                f.Resize(13).Rows.Group 
22.
                Set f = .FindNext(f) 
23.
            Loop While Not f Is Nothing And f.Address <> firstAddress 
24.
        End If 
25.
    End With 
26.
 
27.
    ' den + Button für das Öffnen und Schließen der Gruppierung nach oben setzen 
28.
    ws.Outline.SummaryRow = xlAbove 
29.
 
30.
    ' Alle Gruppen reduziert anzeigen 
31.
    ws.Outline.ShowLevels RowLevels:=1 
32.
End Sub
Grüße Uwe.
Bitte warten ..
Mitglied: LoneStarState01
22.08.2014 um 22:08 Uhr
Vielen vielen Dank!
Klappt hervorragend und hat mir viel Arbeit erspart.

Gruß,
Felix
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Gruppierung von Zeilen mit einer bestimmten Farbe mit Makro (5)

Frage von Mimindt zum Thema VB for Applications ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Microsoft Office
Excel nur markierte Zeilen ausdrucken? (3)

Frage von Server4Alle zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...