Office: Zeilen ausblenden bei Wertänderung in einer Zelle

Guten Morgen!

Hab mir zwar schon einiges durchgelesen, hab's aber nicht kapiert wie ich Zeilen ausblende, wenn sich der Wert in einer Zelle verändert.

Also:
Zelle F2 ist als "Modellart" definiert (mit Einfügen-->Name)
die Zeilen 11 und 12 sind als "Abschlag_base" definiert

Mein Code-Versuch:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("Modellart").Value <> "Lauf" Then

Rows("Abschlag_base").EntireRow.Hidden = True
Else

Rows("Abschlag_base").EntireRow.Hidden = False
End If


End Sub

Außerdem kapiere ich nicht ganz wo das hineinmuss - ich hab in einem anderen Forum gelesen (gelesen - dort habe ich nichts gefragt ;-) ) dass dies in ein Klassenmodul muss?!?!?

Danke schon mal für die Hilfe!

 

Code:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Cells(2, 6) <> "Lauf" Then 

Rows("Abschlag_base:AbschlagBase").EntireRow.Hidden = True 
Else 

Rows("Abschlag_base").EntireRow.Hidden = False 
End If 
End Sub 

So hab kurz umgeschrieben =)
Kannst du trotzdem zeigen wie du AbschlagBase definiert hast?
Kann mir nicht vorstellen wie du Zeile 11 und 12 in eine Variable zugewiesen hast^^ bin ja selber ein "Anfänger"

Falls es immer F2 bleibt, würd ich mit Cells arbeiten[so mach ich des]
Cells(Zeile,Spalte)[so funktioniert Cells, falls du es noch nicht kennst]
Der Code kommt einfach in das Worksheet rein.
Also ALT-F11 drücken und dann bsp. auf Tabelle1(Tabelle1) klicken und dann oben dort wo der Code reinkommt steht oben ja "Allgemein", da Worksheet anklicken und dann kommt automatisch "selectionchange" also wenn du ne andere Zeile anvisierst und jetzt halt statt "selectionchange" "change" auswählen und den Sub von "SelectionChange" kannst du löschen und jetzt nur den Code reinkopieren =)

 

Servus!

Habs ein bischen umgeformt - funktioniert jetzt!

Wie ich die Zeilen benannt habe - einfach links die zwei Zeilen markieren --> einfügen--> Namen definieren und einen Namen eingeben ;-)

Ein Problem noch:
In Zelle F2 wäre eigentlich eine Formel drin, die den Wert "Lauf", "Speicher" oder "pumpspeicher" ausgibt. Wenn ich die Formel drin lasse funktioniert es nicht, wenn ich den Wert mit der Hand hineinschreibe, dann funktionierts - irgendeine Idee?

Code sieht jetzt so aus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(2, 6) <> "Lauf" Then

Range("Abschlag_base").EntireRow.Hidden = True

Else
Range("Abschlag_base").EntireRow.Hidden = False

End If

End Sub

 

Habs schon - einfach Worksheet_activate verwenden

Endgültiger Code (vorher Namen definieren nicht vergessen!) - mit noch ein paar Zeilen die auszublenden sind:

Code:

Private Sub Worksheet_Activate()
If Cells(2, 6) <> "Lauf" Then
Range("Abschlag_base").EntireRow.Hidden = True

Else
Range("Abschlag_base").EntireRow.Hidden = False

End If
If Cells(2, 6) <> "Pumpspeicher" Then

Range("Pumpmenge").EntireRow.Hidden = True
Range("NSDL_ausblenden").EntireRow.Hidden = False

Else
Range("Pumpmenge").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = True

End If
End Sub

 

und noch erweitert:

Code:

Private Sub Worksheet_Activate()
'hier werden die nicht benötigten Zeilen im Modell bei Umschalten des Modelltyps aus- oder eingeblendet

If Range("Modellart") = "Pumpspeicher" Then
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden1").EntireRow.Hidden = False
Range("Abschlag_base").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = False

Else
If Range("Modellart") = "Lauf" Then
Range("Abschlag_base").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = True
Range("NSDL_ausblenden1").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = True

Else
If Range("Modellart") = "Speicher" Then
Range("Abschlag_base").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = True
Range("NSDL_ausblenden").EntireRow.Hidden = True
Range("NSDL_ausblenden1").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = False
Else
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden1").EntireRow.Hidden = False
Range("Abschlag_base").EntireRow.Hidden = False
Range("Erl_Speicher").EntireRow.Hidden = False

End If

End If

End If


Application.ScreenUpdating = True


End Sub

Danke für die Hilfe!