Top-Themen

Aktuelle Themen (A bis Z)

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, 6666 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
Microsoft Office
Excel Makro - Button "Springe zu Zeile mit heutigem Datum"
gelöst Frage von hannsgmaulwurfMicrosoft Office5 Kommentare

Hallo zusammen, heute wende ich mich mal mit einer Excel Frage an euch. Es geht um Excel 2010 auf ...

Microsoft Office
Excel Makro: in Zeile suchen, Spalten ein- und ausblenden
gelöst Frage von Florian86Microsoft Office2 Kommentare

Hallo, ich möchte in der Datei, in Zeile eins nach der KW suchen und mir dann den Bereich von ...

Microsoft Office
Excel Makro
Frage von maloh1984Microsoft Office4 Kommentare

Hallo Habe ein Problem, ein Kunde der hat Excellisten mit Makro die lassen sich öffnen aber die Buttons reagieren ...

Microsoft Office
Excel-Makro
gelöst Frage von yuki13Microsoft Office7 Kommentare

Hallo Zusammen!! :-) Ich bin nicht so fit in Excel Makros und wollte mich hier erkundigen, ob mir jemand ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 17 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 21 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware10 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...