Select Case bei definierten Namen
26.02.2015 09:43:03
Propman
ich habe einigen Bereichen in meinem Tabellenblatt Namen gegeben um nicht absolut auf die jeweilige Zelle ansprechen zu müssen. Das funktioniert überall sehr gut.
Nun habe ich 2 Themen:
1. Funktioniert der Select Case Code auch bei definierten Namen? Mein Code sieht so aus:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Select Case Target.Address _
_
'Case Select gibt die Möglichkeit Target.Address _
auf mehrere Zellen anzuwenden
Case Is = Range("CloseAnsprechpartner").Rows Or Range("CloseZahlplan").Rows _
_
'Hier stehen die Zellen auf die es angewandt wird
Range("Projektbeschreibung").Rows.Hidden = True _
_
'Blende die Projektbeschreibung aus
Range("Zahlplan").Rows.Hidden = True _
_
'Blende den Zahlplan aus
Range("Ansprechpartner").Rows.Hidden = True _
_
'Blende die Ansprechpartner aus
Case Else
End Select
Application.ScreenUpdating = True
End Sub
Wer hat Rat?
Kurz zur Info, das Sub macht, dass wenn ich auf den eine dieser mehreren Ranges klicke, andere Zeilen ausgeblendet werden.
2. Frage:
In dem folgenden Code lasse ich ebenfalls Zellen aus- und einblenden nach Klick auf ein Steuerelement:
Sub Zahlplan()
Application.ScreenUpdating = False
Dim EndeMS As Integer 'Die Variable "EinblendenMS" deklarieren um nur definierte Meilensteine einzublenden
Dim EndeMON As Integer 'Die Variable "EinblendenMON" deklarieren um nur definierte Monate einzublenden
EndeMS = Range("$E$10").Value 'Der Variable wird der Wert aus der Zelle E10 zugewiesen
EndeMON = Range("$E$37").Value 'Der Variable wird der Wert aus der Zelle E37 zugewiesen
If Range("Abrechnungsmethode").Value = "Meilensteine" Then 'Wenn D7 = "Meilensteine", dann...
Rows("10:" & EndeMS).Hidden = Not Rows("10:" & EndeMS).Hidden 'Einblenden der genutzten Meilensteine (erg. aus Dropdown N10)
Range("VerMonate").Hidden = True 'Ausblenden der monatlichen Verrechnung
Range("Projektbeschreibung").Rows.Hidden = True 'Ausblenden der Projektbeschreibung
Range("Ansprechpartner").Rows.Hidden = True 'Ausblenden der Ansprechpartner
-------------------
End Sub
Ich würde gerne in dieser Zeile: Rows("10:" & EndeMS).Hidden = Not Rows("10:" & EndeMS).Hidden ebenfalls hier die statische "10" durch einen Namen ersetzen, den ich der Zeile 10 gegeben habe. Irgendwie stelle ich mich da etwas blöd an, denn Rows("Name:" & EndeMS).Hidden funktioniert ja nicht.
Danke sehr wie immer!
LG Propman