Office: [VBA] Spalten ausblenden wenn Bedingungen erfüllt sind

Woersi · 14. Oktober 2017

Hallo liebe Excel-Gemeinde,

ich versuche nun schon seit geraumer Zeit per VBA bestimmte Spalten ausblenden zulassen.

Folgendermaßen sieht meine Tabelle aus:

In Tabellenblatt1 (Ausgang Gesamt) steht in Zeile 2 eine Zahl von 1-7 die sich aus folgender Formel ergibt:

Code:

=WOCHENTAG(VERKETTEN(C3;B2))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Springt nun in Tabellenblatt 1 Zelle C3 eine 1 oder 7 raus, soll in Tabellenblatt 2 die Spalte B ausgeblendet werden.
Mein Code sieht akutell so aus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

* * Dim Ws As Worksheet: Set Ws = ThisWorkbook.Worksheets(2)
* * With Target
* * * * If .Cells.Count = 1 Then
* * * * * * Select Case .Address
* * * * * * * * Case Is = "$C$2"
* * * * * * * * * * If .Value = "1" Then
* * * * * * * * * * * * Ws.Columns("2").EntireColumns.Hidden = True
* * * * * * * * * * Else:
* * * * * * * * * * * * Ws.Columns("2").EntireColumns.Hidden = False
* * * * * * * * * * End If
* * * * * * * * Case Is = "$C$2"
* * * * * * * * * * If .Value = "7" Then
* * * * * * * * * * * * Ws.Columns("1:1").EntireColumn.Hidden = True
* * * * * * * * * * Else:
* * * * * * * * * * * * Ws.Columns("1:1").EntireColumn.Hidden = False
* * * * * * * * * * End If
* * * * * * End Select
* * * * End If
* * End With
* * Set Ws = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es passiert aber leider nichts. Ich muss dazu sagen, ich bin ein absoluter VBA-Anfänger. Und den Code habe ich mit Hilfe von Google zusammen geschustert.

Grüße
Woersi

:)

aloys78 · 15. Oktober 2017

Hallo Woersi,

In Tabellenblatt1 (Ausgang Gesamt) steht in Zeile 2 eine Zahl von 1-7 die sich aus folgender Formel ergibt:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Abgesehen davon, dass ich die Formel nicht nachvollziehen kann, wäre anstelle des Worksheet_Change-Ereignisses eher Worksheet_Calculate zu nehmen.

Dennoch wird Dein bisheriges Makro so kaum funktionieren.

Vorschlag:
Stelle eine Beispieldatei zur Verfügung und erläutere daran, wann was passieren soll.

Gruß
Aloys

Woersi · 16. Oktober 2017

Hallo Aloys,

vielen Dank für deine Antwort. Ich habe die Tabelle etwas umgebaut und auch den Code verändert.

Der sieht nun so aus:
Code:

If Cells(1, 2).Value = "1" Then
Columns(2).Hidden = True
ElseIf Cells(1, 2).Value = "7" Then
Columns(2).Hidden = True
Else
Columns(2).Hidden = False
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert auch super. Nun frage ich mich aber, ob ich das nun für alle Spalten die ich überprüfen will machen muss. Dann wird der Code ja ellenlang. Oder gibt es da eine einfachere Möglichkeit?

Grüße
Woersi

AMOnline · 16. Oktober 2017

Hallo Woersi,

du kannst auch mit "Select Case" folgendermaßen arbeiten:

Code:

Dim bFlag As Boolean

Select Case Trim(CStr(Cells(1, 2).Value))
Case "1", "7"
bFlag = True
Case Else
bFlag = False
End Select

Columns(2).Hidden = bFlag
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße, AMOnline

Drogist · 16. Oktober 2017

Moin,

ich würde (falls die bisherige Formel korrekt arbeitet) den Wochentag so berechnen: Code:

=WOCHENTAG(VERKETTEN(C3;B2);2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dann kannst du bequem auf

aloys78 · 16. Oktober 2017

Hallo Woersi,

... ob ich das nun für alle Spalten die ich überprüfen will machen muss ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst Du das mal näher erläutern ?

Gruß
Aloys

Woersi · 12. Januar 2021

von aloys78

Hallo Woersi,

Kannst Du das mal näher erläutern ?

Gruß
Aloys
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Na sicher. Das Makro soll mehrere Spalten prüfen. Habe das Ganze nun so gelöst:

Code:

If Cells(1, 2).Value = "1" Then
Columns(2).Hidden = True
ElseIf Cells(1, 2).Value = "7" Then
Columns(2).Hidden = True
Else
Columns(2).Hidden = False
End If

If Cells(1, 3).Value = "1" Then
Columns(3).Hidden = True
ElseIf Cells(1, 3).Value = "7" Then
Columns(3).Hidden = True
Else
Columns(3).Hidden = False
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und so weiter. Für sämtliche Spalten die evtl. ausgeblendet werden müssen.
Meine Frage war, ob es möglich ist das Ganze zu vereinfachen. Mein Code ist natürlich jetzt ziemlich lang.

Aber da es funktioniert, muss ich den Code jetzt nicht unbedingt verkürzen.
Interessieren würde es mich für die Zukunft natürlich trotzdem *Smilie

Grüße
Dennis

aloys78 · 16. Oktober 2017

Hallo Dennis,

Na sicher. Das Makro soll mehrere Spalten prüfen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein Tipp - auch für die Zukunft: Nimm Dir etwas Zeit für eine klare Aufgabenstellung.
Was heißt denn mehrere Spalten ?
Im Code muss das definiert sein oder ermittelt werden können.
Nachfolgend ein Code-Vorschlag mit einer angenommenen letzten Spalte; den Wert kannst Du anpassen !
Eingeflossen ist hier der Code von AMOnline.
Code:

Option Explicit

Sub Ausblenden()
Dim bFlag As Boolean
Dim c As Long ' Spalten#
Dim LCol As Long ' Nr letzte Spalte

LCol = Range("Z1").Column ' letzte Spalte anpassen
For c = 2 To LCol
Select Case Trim(CStr(Cells(1, c).Value))
Case "1", "7"
bFlag = True
Case Else
bFlag = False
End Select
Columns(c).Hidden = bFlag
Next c
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Woersi · 17. Oktober 2017

Hallo Aloys,

also wow. Der Code ist gefühlte 300 Zeilen kürzer als meiner *boah und funktioniert mindestens genauso gut *Smilie

Für mein nächstes Problem, werde ich darauf achten, die Fragestellung klarer zu formulieren oder eine Testdatei mit anzuhängen.

Vielen Dank euch Beiden.

Grüße
Woersi

Office: [VBA] Spalten ausblenden wenn Bedingungen erfüllt sind

[VBA] Spalten ausblenden wenn Bedingungen erfüllt sind

[VBA] Spalten ausblenden wenn Bedingungen erfüllt sind

[VBA] Spalten ausblenden wenn Bedingungen erfüllt sind

[VBA] Spalten ausblenden wenn Bedingungen erfüllt sind

[VBA] Spalten ausblenden wenn Bedingungen erfüllt sind - Similar Threads - VBA Spalten ausblenden

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

VBA Spalten aus- und einblenden trotz Blattschutz

VBA Code Spalte für bestimmte Nuter ausblenden

VBA: Spalten einblenden, wenn in Eingabezelle bestimmter String

Adressieren von Bereichen in VBA

Zeilen und Spalten mit VBA ausblenden wenn Wert 0 in bestimmten Zellen

VBA Spalten automatisch ein/ausblenden: Bilder verschieben sich beim Einblenden