---

In einem alten VBA-Programm habe ich die nachfolgende Columns.Select-Variante verwendet, um Spaltenbereiche auszublenden.

Ich würde das jetzt gerne mit möglichst so umgestalten, dass ich die Spaltennummern aus dem Programm variabel zuweisen kann.

Code:

---

    Columns("A:BC").Select
    Selection.EntireColumn.Hidden = False
   
    Columns("D:J").Select
    If UserForm2.OptionMaster = True Then
        Columns("D:Y").Select
        Selection.EntireColumn.Hidden = True
        Columns("AD:AH").Select
        Selection.EntireColumn.Hidden = True
    Else
        Columns("D:J").Select
        Selection.EntireColumn.Hidden = True
        Columns("L:M").Select
        Selection.EntireColumn.Hidden = True
        Columns("O:AH").Select
        Selection.EntireColumn.Hidden = True
        Columns("AP:AZ").Select
        Selection.EntireColumn.Hidden = True
    End If
   

---

------------------
----------------

"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Woher willst du die Spaltennummern denn variabel zuweisen?
Aus einem Dialog, oder einer Zelle?

Ich würde allgemein anstatt zu selektieren, gleich ausblenden
aus

Code:

---

Columns("A:BC").Select
Selection.EntireColumn.Hidden = False

---

wird

Code:

---

Columns("A:BC").EntireColumn.Hidden = False

---

------------------
      MfG skyzem
            Wir mögen Menschen, die frisch heraus sagen, was sie denken - falls sie dasselbe denken wie wir.
                  isleofwords.com - shortstorys in between
                        

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von skyzem:
....
Woher willst du die Spaltennummern denn variabel zuweisen? ...

---

Aus VBA. Es gibt im VBA-Code Variablen mit den Spaltennummern, z. B: Sp_Name=12, Sp_Nummer=17, ... und ich möchte beispilesweise alle Spalten 12 bis 17 ausblenden.
Ich habe das inzwischen mit einer Schleife gelöst, aber ich hatte gehofft es gäbe eine Nummernalternativ zu

Code:

---

Columns("A:BC")

---

etwa

Code:

---

Column(Sp_Name:Sp_Nummer)

---

------------------
----------------

"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Aha!
Das ist dann ganz einfach:

Code:

---

Spalte_von = 1
Spalte_bis = 8
Range(Columns(Spalte_von), Columns(Spalte_bis)).EntireColumn.Hidden = True

---

Hier wird also von A (1) bis H (8) ausgeblendet

------------------
      MfG skyzem
            Wir mögen Menschen, die frisch heraus sagen, was sie denken - falls sie dasselbe denken wie wir.
                  isleofwords.com - shortstorys in between
                        

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So einfach! Danke!

------------------
----------------

"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP