Office - Word, Excel und Co. 9.738 Themen, 41.365 Beiträge

Verfolgung starten Optionen

Excel - Zellbereich abhängig von Werten ausblenden

winzard / 5 Antworten / Flachansicht Nickles

Ich möchte einen Bereich in Excel ausblenden, abhängig von der Stellung von 2 Kombinationslisten (drop down menu) (Auswahl Unternehmen und Berichtsmonat), für eine zelle klappt das über den Holzweg mit
=WENN(UND(A14=1;ODER(B14=3;B14=6;B14=9;B14=12));" weitere Details(Quartalsdaten)";" ")


jetzt handelt es sich aber um einen großen bereich, leider hab ich keine formel "hide" gefunden, ein makro würde bei änderung des kombinationsfeldes wohl nicht rückgängig gemacht und von VBA hab ich keine Ahnung.


Hat jemand einen Rat für mich ?


LG Dennis

bei Antwort benachrichtigen
Hallo winzard, versuch es mal mit bedingter Formatierung welches du unter ... S.F.T.I.
Mein Problem ist, das es sich bei den Zellen die ausgeblendet werden sollen ... winzard
Hmmm wenn ich das alles Richtig verstanden habe, wird ein Makro ausgeführt ... crust
Zu Kann man denn die Ausführung eines Makros abhängig machen von einer ... Uli M
Uli M winzard „Excel - Zellbereich abhängig von Werten ausblenden“
Optionen

Ich mach normalerweise nicht viel mit Excel und schon gar nicht mit Formularfeldern. Habe erst jetzt (wieder?) entdeckt, dass man dem Formularfeld (ich gehe mal davon aus, dass du von solchen sprichst) selbst ein Makro ("Ereignisprozedur") zuweisen kann. Ausserdem wird in diesen Fällen wohl das Worksheet_Change-Ereignis nicht ausgelöst. Das macht die Sache aber wohl nicht wesentlich anders. Nun musst du wohl 2 Routinen erstellen (lassen), die beide die gleiche Unterroutine (im Prinzip ähnlich wie zuvor gepostet) aufrufen:

Sub Dropdown1_BeiÄnderung()
EinAusblenden
End Sub

Sub Dropdown2_BeiÄnderung()
EinAusblenden
End Sub

Private Sub EinAusblenden()
Dim oRg1 As Range, org2 As Range
Dim oAuszublenden As Range
' Die 2 Bereiche, auf deren Änderung reagiert werden soll
Set oRg1 = ActiveSheet.Cells(1, 4)
Set org2 = ActiveSheet.Cells(2, 5)
Set oAuszublenden = ActiveSheet.Range("F2:G10")
' Jetzt deine Bedingungen, die ich natürlich nicht nachvollziehen kann, z.B.
If oRg1.Value = "1" Or oRg1.Value = "3" Then
If org2.Value = "2" Then
oAuszublenden.EntireColumn.Hidden = True ' für Zeilen wäre es EntireRow
End If
Else
oAuszublenden.EntireColumn.Hidden = False
End If
End Sub

bei Antwort benachrichtigen