Gruppierung

[BIGE.l.f.e]

Hey Leute. Ich Suche Hilfe in Form einer Gruppierung für meine Tabelle.

Ich habe keine Großen excel Erfahrungen und hoffe durch euch mein Projekt ein wneig voran zutreiben.

Ich habe ein Tabelle (siehe Bild) wo in der Spalte "A" eine sogenannte Kundennummer steht. Dahinter in der Spalte "B" steht der Name. Nun möchte ich gern zu jedem Kunden einen Artikelbaum anlegen. 

Das heisst wenn ich das Feld "B" (den Kunden) anklicke, soll sich die Gruppierung mit der Material Nummer, Bezeichnung und preis öffnen.

Unter jedem Kunden sollten so um die 100 Materialien stehen.

Ist so etwas möglich?

Über Hilfe würde ich mich sehr freuen.

Lg Basti

[Luffy]

Hi,

gewünschte Zeilen Markieren --> Daten --> Gruppieren.

Meinst du das?

edit: aber ich sehe das hast du ja schon in deiner Tabelle

[BIGE.l.f.e]

Ja das habe ich schon. Ich weis halt nicht ob ich das für 300 Kunden ( Spalte B) jewails machen kann? wer hat dann bei den Gruppierungszeichen den Überblick?

[Luffy]

Hi,

Also willst du Buttons machen mit denen du die Gruppierungen öffnen und schließen kannst?

[BIGE.l.f.e]

Ja genau.

[Ego]

ja, das geht.

[schauan]

Hallöchen,

eventuell hilft das weiter:

ActiveSheet.Outline.ShowLevels ColumnLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=1

Bei Dir sind's die RowLevels.

[BIGE.l.f.e]

Hey schauan, danke erstmal für die ANtwort aber was mache ich mit dem CODE den du mir gegeben hast ??

[Kuwer]

Hallo Basti,

mein Vorschlag ist, es ganz normal mit Ein- und Ausblenden der Leerzeilen durch Doppelklick auf einen Namen zu machen.

Folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:

Microsoft Excel Objekt Tabelle1

Option Explicit 



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

 Cancel = True 

 With Target 

   If Not IsEmpty(.Offset(0)) And IsEmpty(.Offset(1)) Then 

     With Range(.Offset(1), .EntireColumn.Find(What:="*", _

                                               After:=.Offset(0), _

                                               LookIn:=xlValues, _

                                               LookAt:=xlPart, _

                                               SearchOrder:=xlByRows, _

                                               SearchDirection:=xlNext, _

                                               MatchCase:=False, _

                                               SearchFormat:=False).Offset(-1)).EntireRow 

       .Hidden = Not .Hidden 

     End With 

   End If 

 End With 

End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

In ein normales VBA-Modul (erstellen per Einfügen - Modul) dann noch diese Makros:
Modul Modul1

Option Explicit 



Sub LeerzellenAusblenden() 

 ActiveCell.EntireColumn.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True 

End Sub 



Sub LeerzellenEinblenden() 

 ActiveCell.EntireColumn.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False 

End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Damit lassen sich auf einen Schlag alle Leerzellen einer Spalte (die, in welcher gerade die Markierung steht) ein- oder ausblenden.
Die Datei muss dann aber als *xlsb abgespeichert werden, da sonst die Makros wieder verloren gehen.

Gruß Uwe

[BIGE.l.f.e]

Moin Leute, irgendwie bekomme ich das nicht hin. Eventuell muss ich meinen Plan verwerfen und eine Neue Idee starten.

Was gibt es für ein Makro um auf Blatt 1 ein Suchfeld anzulegen was die restlichen Arbeitsblätter mit dem Durchsucht was man vorn eingibt ?

Vielen Dank vorab