Leere Spalten automatisch ausblenden

[wavemaster]

Hallo zusammen,
habe ein Frage an meine Excel Spezialisten.
Ich habe eine Tabelle mit mehreren Spalten, wenn Ich den Filter einsetze sind nicht immer alle Spalten mit Zahlen belegt. Diese Spalten möchte Ich ausblenden. Im Internet habe Ich eine Formel VBA gefunden und eingesetzt, jedoch macht Sie nicht das richtige. Kann mir jemand helfen.....

Danke

[wavemaster]

Hallo zusammen,
habe ein Frage an meine Excel Spezialisten.
Ich habe eine Tabelle mit mehreren Spalten, wenn Ich den Filter einsetze sind nicht immer alle Spalten mit Zahlen belegt. Diese Spalten möchte Ich ausblenden. Im Internet habe Ich eine Formel VBA gefunden und eingesetzt, jedoch macht Sie nicht das richtige. Kann mir jemand helfen.....

Danke

Wollte nochmals auf mich aufmerksam machen.

DAnke

:100:

[WillWissen]

Moin,

bei VBA bin ich keine Hilfe!! Aber trotzdem ist das, was du meinst, nicht möglich. Man kann sicherlich ganze (leere) Spalten ausblenden, in den gefilterten befinden sich aber trotzdem Daten. Auch wenn man sie aufgrund der Filterung nicht sieht.

[schauan]

Hallöchen,

die Funktion TEILERGEBNIS kann in einem gefilterten Bereich nur die sichtbaren berücksichtigen.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Was	Wer
2	2	A
3	3	3
4	Ergebnis	1

Zelle	Formel
B4	=TEILERGEBNIS(102;[Wer])

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Was	Wer
2	2	A
4	Ergebnis	0

Zelle	Formel
B4	=TEILERGEBNIS(102;[Wer])

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

Du kannst dann alle Spalten mit 0 als Teilergebnis ausblenden.

[Fred11]

Hallo wavemaster,

ich habe deinen VBA-Code so modifiziert, dass er mithilfe der Funktion TEILERGEBNIS(9,...) in den Spalten H bis AG prüft, ob sichtbare Einträge vorhanden sind, und wenn in einer Spalte keine sichtbaren Einträge vorhanden sind, diese ausblendet.
(Erst ab Spalte H deshalb, weil in den Spalten davor Texteinträge vorhanden sind und hier das prüfen mit TEILERGEBNIS nicht funktioniert...)

Code:

Sub zeilen_spalten_aus_ein()
Dim rng As Range
Dim n As Integer

Set rng = Range("H8").CurrentRegion

Application.ScreenUpdating = False
If Not blnhidden Then

    blnhidden = True
   
    For n = 8 To rng.Columns.Count  '8 => Beginn der Prüfung in Spalte H
         If Application.Subtotal(9, rng.Columns(n)) = 0 Then rng.Columns(n).Hidden = blnhidden
    Next
   
Else
    blnhidden = False
    rng.Columns.Hidden = blnhidden
End If

Application.ScreenUpdating = True
End Sub

Gruß
Fred

[LCohen]

Hallo Fred,

bei der handwerklichen Fragestellung hier ist das vermutlich ausreichend.

Wäre es jedoch kaufmännisch, könnte die Summe zwar 0 sein, aber sich über Hinein- und Hinausbuchungen zu dieser 0 ergänzt haben. Daher wäre dort eine Varianz zusätzlich zur Summe zum Abprüfen sinnvoll.

[wavemaster]

Hallo Fred 11,
die Formel passt Ich habe diese in meine Orginaltabelle eingesetzt. Das ausblenden geht aber das einblenden nicht. An deiner Tabelle geht das .

Rätsel über Rätsel  :22:

Kannst du Bitte mal drüberschauen und mir sagen was der Fehler ist 
Danke vorab..... :18:

[Fred11]

Hallo wavemaster,

Füge ganz oben (vor Sub...) noch die folgenden Codezeilen (aus deinem ursprünglichen Code) ein:

Code:

Option Explicit

Dim blnhidden As Boolean

Dann sollte es auch mit dem Einblenden klappen.

@LCohen,
ja, du hast recht....
vielleicht wäre in diesem Fall auch TEILERGEBNIS (2; ...) bzw. 102 besser - so wie ja Andre auch vorgeschlagen hat...

Gruß Fred