Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Gruppierung Nichtleerer Zeilen

Automatische Gruppierung Nichtleerer Zeilen
04.05.2009 11:20:04
Knusperfisch
Halli Hallo Zusammen,
ich möchte die Benutzerfreundlichkeit meiner Tabelle ein wenig erhöhen und die Gruppierung von Excel verwenden. Das Ganze eben als VBA. Ab der Zelle BO 17 sollen alle Zeilen gruppiert werden die leer sind, bzw. umgekehrt, es sollen nur die Zeilen angezeigt werden die Werte enthalten und der Rest wird per Gruppierung ausgeblendet. Somit wäre gewährleistet, dass Benutzer keinen AutoFilter o.ä. verwenden müssen und bequem mit den +- Buttons gearbeitet werden kann. Suchspalte ist wie gesagt BO, ausgeblendet werden soll aber die gesamte Zeile.
Könnte mir jemand bei diesem Thema behilflich sein?
Besten Dank schonmal.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Gruppierung Nichtleerer Zeilen
04.05.2009 11:33:19
Tino
Hallo,
versuche es mal hiermit.
Sub Test()
Dim Bereich As Range

Set Bereich = Range("BO17:BO" & Rows.Count)
Bereich.ClearOutline

    If Application.WorksheetFunction.CountBlank(Bereich) > 0 Then
        Set Bereich = Bereich.SpecialCells(xlCellTypeBlanks)
           
           With ActiveSheet.Outline
               .AutomaticStyles = False
               .SummaryRow = xlAbove
               .SummaryColumn = xlRight
           End With
           
           For Each Bereich In Bereich.Areas
            Bereich.EntireRow.Group
           Next Bereich
    End If
End Sub


Gruß Tino

Anzeige
AW: Automatische Gruppierung Nichtleerer Zeilen
04.05.2009 11:44:29
Knusperfisch
Hey Tino,
funktioniert prima, vielen Dank. Zwei klitze Kleinigkeiten noch. Die Datei besteht aus mehreren Tabellenblättern und dein Script soll auf allen ausgeführt werden. Was muss ich dafür noch einfügen? Und zweitens, kann man es irgendwie bewerkstelligen, dass die Gruppierung auch gleich verkleinert/komprimiert wird? Jetzt ist sie ja offen und alle müssten von Hand verkleinert werden.
Ich Danke dir schonmal
AW: Automatische Gruppierung Nichtleerer Zeilen
04.05.2009 12:09:28
Tino
Hallo,
sollte so funktionieren, es müssen aber irgendwo im Benannten Bereich Daten vorhanden sein.
Sollten alle Zellen im Bereich leer sein, wird nicht gruppiert.
Sub Test()
Dim Bereich As Range
Dim A As Long
Dim mySH As Worksheet

With Application
 .ScreenUpdating = False
    
    For Each mySH In ThisWorkbook.Worksheets
        With mySH
           
           Set Bereich = .Range("BO17:BO" & .Rows.Count)
           Bereich.ClearOutline
           
               If Application.WorksheetFunction.CountBlank(Bereich) > 0 And _
                  Application.WorksheetFunction.CountBlank(Bereich) < Bereich.Cells.Count Then
                   
                     Set Bereich = Bereich.SpecialCells(xlCellTypeBlanks)
                      
                      With .Outline
                          .AutomaticStyles = False
                          .SummaryRow = xlAbove
                          .SummaryColumn = xlRight
                      End With
                      
                      For Each Bereich In Bereich.Areas
                        Bereich.EntireRow.Group
                        .Outline.ShowLevels 1
                      Next Bereich
               End If
        
        End With 'mySH 
    Next mySH
  
  .ScreenUpdating = True
End With 'Application 

End Sub


Gruß Tino

Anzeige
AW: Automatische Gruppierung Nichtleerer Zeilen
04.05.2009 12:14:11
Knusperfisch
absolute Spitze ;) .. allerbesten Dank dafür.
Daumen hoch.

303 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
Zählen nichtleerer Zellen
Stefan

Hallo zusammen,
ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
04.11.2008 08:20:00
Thread-ID: 1021461
3 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
4
2
2
2
4
9
10
4
3
3
4
5
9
1
4
10
14
3
6
6
7
5
6