Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2012to2016
2012to2016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Versteckte Spalten sichtbar machen

Forumthread: Versteckte Spalten sichtbar machen

Versteckte Spalten sichtbar machen
05.05.2025 22:47:25
Max
Hallo zusammen, ich bin auf der Suche nach einer einfachen Lösung zum Thema Spalten ein und ausblenden anhand einer bestimmten Zahl.

Im Detail > Ich habe eine Liste von Produkten und Kunden die diese Produkte kaufen wollen. Es gibt sogenannte Verbundgruppen. Hier hat ein Gesellschafter mehr als 1 Standort als Verkaufshaus. Es gibt max. 30 Kunden.

Ziel wäre 30 Spalten auszublenden da ich links und rechts noch daten habe.

Wenn ich über ein Auswahlfeld einen Kunden eingebe, dann sollen soviel Spalten sich einblenden wie der Kunde Verkaufsstellen hat.

Bsp. wenn ich Kunde 2 wähle, dann sollen sich von den 30 Spalten > 5 Stück einblenden.

Kunde 1
-Haus 1
-Haus 2
-Haus 3

Kunde 2
-Haus 1
-Haus 2
-Haus 3
-Haus 4
-Haus 5

Ist das machbar?

LG MAX


Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 02:03:57
Uduuh
Hallo,
du solltest eine Beispieldatei hochladen, damit man das versteht.

Gruß aus'm Pott
Udo
AW: Versteckte Spalten sichtbar machen
06.05.2025 09:31:40
MCO
Moin, Max!

Schau mal, ob da so für dich brauchbar ist.

Lösung: bei Änderung der Zelle wird per VBA der Bereich vollständig ein- und teilweise wieder ausgeblendet.

https://www.herber.de/bbs/user/177350.xlsm

Gruß MCO
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 10:36:44
Max
Hi MCO, die Lösung an sich geht voll in die Richtung. Ich habe Dir mal einen Ausschnitt meiner Originaldatei gesendet. So hatte ich es bisher gelöst.

In Zelle CT6 habe ich erst ausgewählt ob es ein Einzelauftrag wird oder eben ein Verbund.

Bei Einzelauftrag reicht eine Spalte, nämlich BI

Wenn Verbund, dann kommt es eben auf die Anzahl der Häuser an. Ich hatte es bisher manuell in Zelle CS6 eingegeben....

Aber das soll eben jetzt automatisch gehen. Auswahl Verbund dann in Zelle CQ18.

Excel soll nun an Hand der Anzahl der Häuser selber erkennen wieviel Spalten ein und ausgeblendet werden.

Kannst Du Deine Idee auf diese Datei übertragen?

https://www.herber.de/bbs/user/177352.xlsb
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 10:56:29
UweD
Hallo

du möchtest Hilfe und lädst eine Datei hoch, die Passwort geschützt ist.



Solltest du mal überdenken.

LG UweD
AW: Versteckte Spalten sichtbar machen
06.05.2025 10:58:01
Max
Hallo Uwe, weiß nicht warum Du gleich so unfreundlich reagieren musst.. Das wird wohl versehentlich gewesen sein.

fcb123 ist das Kennwort.
AW: Versteckte Spalten sichtbar machen
06.05.2025 11:26:58
UweD
Hallo

Das reicht als Code aus.

- Rechtsclick auf den Tabellenblattreiter von REWE
- Code anzeigen
- Deinen Code durch Diesen ersetzen 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$CS$6" Then

        If Target > 0 Then

            Columns("BI:CL").EntireColumn.Hidden = True

            Columns("BI").Resize(, Target).Hidden = False

        Else

            MsgBox "Falscher Wert"

        End If

    End If

End Sub


LG UweD
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 11:37:03
Max
Danke Uwe. Und wie bekomme ich den Wert in CS6 automatisch? Also statt selbst eine Zahl einzugeben wäre es von Vorteil das diese Zelle "erkennt" wieviel Häuser einem Verbund angehören. Bsp. Rewe Cham 4 Häuser = 4 Spalten usw
AW: Versteckte Spalten sichtbar machen
06.05.2025 12:05:16
UweD
Hallo nochmal

In CS6 diese Formel 
=ZÄHLENWENN('Customer Master'!M:M;REWE!CQ18)



Den Code nochmal Tauschen 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim iH As Integer, SArt As String

    

    If Target.Address = "$CQ$18" Or Target.Address = "$CT$6" Then

        iH = Range("CS6")

        SArt = Range("CT6")

        

        'Reset

        Columns("BI:CL").EntireColumn.Hidden = True

        

        If SArt = "Einzelauftrag" Then iH = 1

        

        Columns("BI").Resize(, iH).Hidden = False

    End If

    

End Sub



LG UweD
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 12:36:55
Max
Lieber Uwe, Du hast einen Orden verdient. DANKE!

Beim Einbinden in die Originaldatei habe ich komischerweise ein kleines Problem.

Habe deinen Code mit den korrekten Zellen versehen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iH As Integer, SArt As String

If Target.Address = "$CZ$6" Or Target.Address = "$DA$6" Then
iH = Range("CZ6")
SArt = Range("DA6")

'Reset
Columns("BP:CS").EntireColumn.Hidden = True

If SArt = "Einzelauftrag" Then iH = 1

Columns("BP").Resize(, iH).Hidden = False
End If

End Sub

Und in Zelle CZ6 diese Formel eingefügt:

=ZÄHLENWENN('Customer Master'!M:M;Rewe!CX18)

Zählenwenn funktioniert aber die Spalten blenden sich nicht automatisch aus oder ein

Es funktioniert wenn ich Zelle CZ6 klicken und mit Enter bestätige, aber anders nicht
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 13:13:15
UweD
HAllo

schau dir das nochmal genauer an:

Das sind 3 Zellen 


If Target.Address = "$CQ$18" Or Target.Address = "$CT$6" Then

        iH = Range("CS6")

        SArt = Range("CT6")


CQ18 die Zelle, wo du die Filiale per Dropdown auswählst
CT6 die Zelle wo du die Art auswählst
Auf diese 2 Zellen reagiert das Makro

CS6 wird nur gelesen, da ist die Formel mit der Anzahl drin

In deiner Änderung sind es nur noch 2 Zellen 



If Target.Address = "$CZ$6" Or Target.Address = "$DA$6" Then

        iH = Range("CZ6")

        SArt = Range("DA6")

Meiner Ansicht nach ist $CZ$6" falsch, das muss die Zelle sein, wo du die Art auswählst

LG UweD
Anzeige
AW: Versteckte Spalten sichtbar machen
06.05.2025 14:41:51
Max
Danke Uwe. Du bist der Beste.

LG
AW: Versteckte Spalten sichtbar machen
06.05.2025 13:15:50
peter
Hallo

Eine Formel löst kein Worksheet_Change Event aus. Du könntest Worksheet_Calculate verwenden, dann wird aber das Makro bei jeder Neuberechnung ausgeführt (d.h. auch wenn sich bei einer anderen Formel etwas ändert).

Mfg.
Peter
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum