Spalten dynamisch ausblenden

Thomas · 2019-12-21T13:16:47+00:00

Hallo! Wir erstellen gerade einen neuen Online-Shop. Die Artikel bekommen Warengruppen und Attribute (VIELE Attribute!!!) Die Vorgabe der möglichen Attribute wurde definiert, nun muss am Artikel entsprechend unpassende Attribute gelöscht werden. Da das bei 5000 Artikeln nur schwer lesbar sein wird, habe ich eine Matrix aus Artikel, Warengruppe und Attribut gemacht. SUPER wäre nun, wenn der Mitarbeiter in Zeile 3 ist, das dann von Spalte H bis EG alle leeren Spalten ausgeblendet werden. geht er dann in Zeile 7 soll dann der Filter automatisch die nun leeren Spalten dieser Zeile ausblenden ... https://www.herber.de/bbs/user/133904.xlsx Ich finde leider keine Lösung, habt ihr eine für mich? Danke Thomas

Der Foren-Narr hat gesprochen und du gehst ihm auch noch auf den Leim :-(
Zugegeben, du wirst das Verhalten des bisher einzigen Antworters erst nach längerer Zeit richtig einschätzen können, denn ca. 90% seiner Beiträge sind sinnentleerte Textbausteine (wie auch in diesem Fall).
Ich würde an deiner Stelle an erster Stelle über eine PivotTabelle nachdenken, gepaart nit einem Datenschnitt. Und wenn du es per VBA lösen möchtest, dann solltest du etwas Eigenleistung einbringen und einfach einmal per Makro-Recorder deine Wunschvorstellung aufzeichnen. - Und wenn du dann den Code hier als <Code>-Text einstellst und eine eventuell korrigierte Version der (gestrafften) Daten als *.xlsx, dann werden gewiss einige Helfer mehr Aktivität zeigen.
Gruß
Günther

Hallo Thomas,
Attribute
da würde ich persönlich das Doppelklick-Event des Tabellenblattes verwenden und nicht den "einfachen Klick", das wäre dann das Change-Event, benutzen.
Bei meinem Code wird bei Doppelklick auf den jeweiligen Artikel in Spalte F die leeren Spalten der Attribute ausgeblendet. Bei Doppelklick auf die Zelle A1 werden alle Spalten wieder eingeblendet.
Der Code gehört ins Codemodul des Tabellenblattes "neue Warengruppe gefiltert".
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Target.Row > 2 And Target.Column = 6 Then
Cancel = True
Columns.Hidden = False
For i = 8 To 137
If Cells(Target.Row, i) = "" Then
Columns(i).Hidden = True
End If
Next i
ElseIf Target.Address(0, 0) = "A1" Then
Cancel = True
Columns.Hidden = False
End If
End Sub

Gruß Werner

Forumthread: Spalten dynamisch ausblenden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial