Makro: Wenn Zelle Wert dann Spalten ausblenden
20.01.2016 11:12:14
Herr
ich habe folgendes Makro zum bedingten Ein-/Ausblenden von Spalten, bereits durch das Forum erhalten:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) = "C7" Then
Range("H:S").EntireColumn.Hidden = False
Select Case .Value
Case "", 1: Range("H:S").EntireColumn.Hidden = True
Case 2: Range("K:S").EntireColumn.Hidden = True
Case 3: Range("N:S").EntireColumn.Hidden = True
Case 4: Range("Q:S").EntireColumn.Hidden = True
Case Else
End Select
End If
End With
End Sub
Nun muss dieses noch erweitert werden. Hier dazu die Bedingungen.
Bedingung 1: das o.g. Makro muss weiterhin genauso wie jetzt funktionieren
zusätzlich
Bedingung 2: In F6 soll auch ein Wert eingetragen werden, der das ein-/ausblenden von Spalten beeinflusst
Bedingung 3: Wenn F6="" dann soll Spalte T bis AB ausgeblendet sein
Bedingung 4: Wenn F6=1 dann soll lediglich Spalte W bis AB ausgeblendet sein
Bedingung 5: Wenn F6=2 dann soll lediglich Spalte Z bis AB ausgeblendet sein
Bedingung 6: Wenn F6=3 dann soll nichts von T:AB ausgeblendet sein
zusätzliche Bedingung: F6 ist ein Dropdown(sprich Daten, Datenüberprüfung, Liste). Es sollte dann wennmöglich bei Änderung der Zahl ("" oder 1-3) in Feld F6 automatisch aus- bzw. wieder einblenden, abhängig von den Bedingungen.
Und weiter soll das gleiche auch für F7 möglich sein, mit folgenden Bedingungen:
Bedingung 1: die vorherigen Funktionen (siehe oben) müssen immernoch funktionieren
Bedingung 2: In F7 soll auch ein Wert eingetragen werden, der das ein-/ausblenden von Spalten beeinflusst
Bedingung 3: Wenn F7="" dann soll Spalte AC bis AH ausgeblendet sein
Bedingung 4: Wenn F6=1 dann soll lediglich Spalte AF bis AH ausgeblendet sein
Bedingung 5: Wenn F6=2 dann soll nichts von AC:AH ausgeblendet sein
Bedingung 6: Auch hier ist F6 ein Dropdown und sollte abhängig vom Eintrag das Ein-/Ausblenden beeinflussen.
Ich hoffe ich konnte es verständlich machen und mir kann jmd helfen.
Besten Dank im Voraus!
Grüße
Herr Koch