Spalten ausblenden z.B. WENN A1=1
Hallo,
ich möchte Spalte B ausblenden wenn in Zelle A1 der Wert 1 steht.
Bei Wert 2 soll Spalte C ausgeblendet werden und Spalte B wieder eingeblendet werden usw.
Benötige hierbei HILFE?
Danke im Voraus.
Gruß Oliver
Antwort schreiben
Antwort 1 von Hajo_Zi vom 21.04.2019, 21:03 Options
Hallo Oliver,
das geht nur per VBA über das Change Ereignis.
Gruß Hajo
Antwort 2 von neueinsteiger vom 21.04.2019, 21:14 Options
Hallo Hajo,
könntest du das bitte näher beschreiben.
Wie muss das Change Ereignis gemacht werden, damit das funktioniert?
Gruß Oliver
Antwort 3 von Hajo_Zi vom 21.04.2019, 21:29 Options
Hallo Oliver,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells.EntireColumn.Hidden = False
Columns(CInt(Target) + 1).EntireColumn.Hidden = True
End If
End Sub
Gruß Hajo
Antwort 4 von neueinsteiger vom 21.04.2019, 21:37 Options
Hallo Hajo,
das funktioniert super. Danke.
Was muss ich im Code ändern, damit ich beliebige Spalten ausblenden kann. Meine Tabelle ist nämlich etwas größer.
Also z.B.:
Wenn A1=1 dann spalte B
wenn A1=2 dann spalte E
wenn A1=3 dann spalte D
usw.
Danke im Voraus.
Gruß Oliver
Antwort 5 von Hajo_Zi vom 21.04.2019, 21:40 Options
Hallo Oliver,
da sehe ich keine Logik. Das muß mit select Case gemacht werden.
Gruß Hajo
Antwort 6 von Neueinsteiger vom 27.04.2019, 16:49 Options
Hallo,
vielleicht sollte ich das Problem anders beschreiben.
Wenn in Zelle A1 der Wert 4 steht sollen die Spalten D, E, F ausgeblendet werden. Wenn der Wert 5 steht soll C, E, F, G ausgeblendet werden und noch viele mehr. Der Zellenwert A1 wird durch bestimmte Bedingungen befüllt. Also bei Wert bestimmte Spalten ausblenden.
Benötige hierbei noch dringend Hilfe, da ich einfach nicht auf die Lösung komm.
DANKE.
Gruß Oliver