Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1716to1720
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
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden von Spalten mit leeren Zellen

Ausblenden von Spalten mit leeren Zellen
24.10.2019 12:55:31
Spalten
Hallo!
Ich habe eine kleine Matrix, bei der ich nach Filtern der Bezeichnung in Spalte A, z.B. Baum, alle übrigen Spalten ausblenden möchte, die kein "x" enthalten.
Userbild
Die Anwendung ist für eine extrem umfangreiche Matrix gedacht, um wieder eine gute Lesbarkeit zu gewährleisten.
Im Forum habe ich dazu noch keine passende Formel oder ein Macro gefunden. Darum hoffe ich jemand kann mir weiterhelfen.
Vielen Dank und schönen Gruß
Simone

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden von Spalten mit leeren Zellen
24.10.2019 13:13:02
Spalten
Hallo Simone,
per Makro so: 

Sub SpaltenAusblenden()
Const firstCol As Long = 2
Const lastCol As Long = 5
Const firstRow As Long = 2
Dim lastRow As Long
Dim i As Long
For i = firstCol To lastCol
With ActiveSheet
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzter Eintrag in Spalte A
If Application.Subtotal(103, .Range(.Cells(2, i), .Cells(lastRow, i))) = 0 Then .Cells(2, i) _
.EntireColumn.Hidden = True
End With
Next i
End Sub
LG,
Klaus M.
AW: Ausblenden von Spalten mit leeren Zellen
24.10.2019 14:11:28
Spalten
Hallo Klaus,
super funktioniert einwandfrei! Vielen Dank! Was muss ich jetzt anpassen, wenn ich mehr Zeilen und Spalten habe?
Im Detail geht die große Tabelle von F6-DK112.
Kann ich über ein Macro das Ausblenden wieder rückgängig machen - zurücksetzen?
LG Simone
Anzeige
AW: Ausblenden von Spalten mit leeren Zellen
24.10.2019 14:24:54
Spalten
Hallo Simone,
die Zeilen und Spalten habe ich extra variabel gehalten.
Const firstCol As Long = 2
Const lastCol As Long = 5
Const firstRow As Long = 2
firstCol, also die erste Spalte, ist 2, also B
lastCol, also die letzte Spalte, ist 5, also E
firstRow (die erste Zeile) ist 2, in Zeile 1 stehen überschriften. Diese Werte kannst du nach belieben anpassen.
Die letzte Zeile wird hier ermittelt
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzter Eintrag in Spalte A
das , 1) steht dabei für Spalte 1, also A. Brauchst du den letzten Wert aus Spalte C, änderst du das entsprechend in , 3) um.
Reicht dir ein Makro, um alle Spalten einzublenden? Dann so: 
Sub SpaltenEinblenden()
ActiveSheet.Cells.EntireColumn.Hidden = False
End Sub
Oder willst du, nach einer erneuten Filterung vielleicht, die Spalten ein/ausblenden je nach Ergebnis? Dann so (schon an deinen Bereich angepasst):
Sub SpaltenAusblenden()
Const firstCol As Long = 6  '6 = F
Const lastCol As Long = 115 '115 = DK
Const firstRow As Long = 7  'In Zeile 6 stehen Überschriften, richtig?
Const lastRow As Long = 112 'Du schreibst es geht bis DK 112, also kein Grund LastRow zu  _
ermitteln
Dim i As Long
For i = firstCol To lastCol
With ActiveSheet
.Cells(2, i).EntireColumn.Hidden = (Application.Subtotal(103, .Range(.Cells(2, i), .Cells( _
lastRow, i))) = 0)
End With
Next i
End Sub
LG,
Klaus M.
Anzeige

325 Forumthreads zu ähnlichen Themen

Pivot-Tab: Leere ausblenden?
Florian

Hallo liebes Forum,
hätte eine Frage zu Pivottabelle (VBA-Code!):
Gibt es einen Befehl, um die Summen der "leeren" Zellen auszublenden/nicht anzuzeigen? Benutzer soll nicht durc¨h unwichtige Daten überlastet werden (siehe Bsp gelbe Zellen).
Besten Dank, Florian
https://www.herb...
19.11.2008 14:45:00
Thread-ID: 1026052
6 Beiträge
Anzeige
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Pivottabelle Spalten berechnen
karsten

Hallo Zusammen,
ich habe folg.Frage.:
Ich habe eine Tabelle mit 2 Spalten.
1.Spalte: DATUM
2.Spalte: CODE
DATUM CODE
01.01.2009 A
08.02.2009 M
23.02.2009 C
09.08.2009 F
Wie kann ich in einer Pivottabelle die Datumsangaben bereits in Monaten eingeteilt dar...
23.09.2009 11:15:14
Thread-ID: 1104846
10 Beiträge
Anzeige
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Pivot Tabelle mit Daten neue Spalte erstellen
Carsten

Ich brauche mal Eure Hilfe.
Ich habe eine Pivot Tabelle die immerwieder aktualisiert und durch Selektionen geändert wird.
Nun ist es erforderlich eine Spalte anzufügen die die erhaltenen Daten dividiert und sich nach einer anderen Selektion automatich den neuen Daten anpasst.
Ich br...
29.12.2009 12:21:11
Thread-ID: 1126181
7 Beiträge
Pivottabelle bei mehreren Spalten
RolandE

Hallo,
ich möchte eine Pivottabelle aus 3 Spalten erstellen. Zahl1 und Zahl2 sollen je nach ID zusammengezählt werden.
Leider schreibt Excel die Summen von Zahl1 und Zahl2 untereinander. Ich möchte sie jedoch nebeneinaner haben, wie auf dem Blatt "Ziel" angedeutet.
https://www.herbe...
23.01.2010 13:58:57
Thread-ID: 1132305
5 Beiträge
Pivottabelle Zeilen gruppieren
honeybee

Hallo zusammen,
ich habe folgendes Problem. Ich muss aus SAP monatliche Auswertungen machen. Ich habe in meinen RowFields die "Betriebsbereiche" aufgeführt, die als 3-stelliger Buchstabencode aufgeführt sind. Allerdings werden nicht immer alle Betriebsbereiche angezeigt, dass heißt die Anza...
18.02.2010 18:55:55
Thread-ID: 1138559
3 Beiträge
PivotTabelle - Durchschnittsspalte
Jonathan

Hallo zusammen!
Ich habe eine umfangreiche Pivot Tabelle erstellt. 12 Spalten (Monate), Zeilen mit Kategorien und Werte jeweils die Ausgaben.
Ist es irgendwie möglich, am Ende eine zusätzliche Spalte einzufügen, in welcher der Durchschnittswert der jeweiligen Zeile steht?
Danke Euch...
01.06.2010 00:00:43
Thread-ID: 1159708
6 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
5
6
1
9
8
2
6
4
2
5
6
4
2
2
2
12
2
5
1
3
2
4
2
4
3