Wenn ich diese funktion die ich gleich in Case beschreibe, in einem If then Else Code umbaue, dann Funktioniert er. Ich würde aber aufgrund besserer Lesbarkeit das ganze in eine Case variante nutzen.
Hier ein bsp. Code in Case welcher nicht geht:
Select Case Range("B20").Value
Case 1: rows(11).hide = true
Case 2: rows(15).hide = true
Case 3: rows(18).hide = true
Case else: rows(11, 15, 18).hide = False
end Select
Wenn ich dieses Beispiel erstelle geht es:
Select Case Range("B20").Value
Case 1: range("B20").Font.ColorIndex = 10
Case 2: range("B20").Font.ColorIndex = 20
Case 3: range("B20").Font.ColorIndex = 5
Case else: msgBox "kein gültiger Wert vorhanden"
end Select
Was muss ich beim obigen ändern, das auch die Rows mit hide funktionieren?
Ich habe auf Arbeit einen If Else Code der Prüft ob welcher der Werte 1 - 10 vorhanden sind und je nachdem welcher Wert da steht, Zeigt er mir mehr Excel Zeilen an und den Rest blendet er einfach aus. Würde aber halt gerne die If then Else variante einkürzen in eine Leserliche Case variante, da ich ja keine zufallswerte habe Sondern feste werte.
Wäre Super wenn jemand eine Idee hat.
mfg René