Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA - 2 verschiedene Spaltenblöcke ausblenden

VBA - 2 verschiedene Spaltenblöcke ausblenden
26.06.2015 10:13:08
Barbara
Hallo,
ich habe ein kleines Problem mit einer meiner Listen.
Es sollen auf der rechten Seite und auf der linken Seite Spaltenblöcke ausgeblendet werden, möglichst mit nur einem Button.
Folglich möchte ich Spalte B:D und I:L ausblenden.
Kann mir hier jmd. weiterhelfen?
Vielen Dank

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - 2 verschiedene Spaltenblöcke ausblenden
26.06.2015 10:38:07
Werner
Hallo Barbara,
Private Sub Spalten_ausblenden()
Columns("B:D").EntireColumn.Hidden = True
Columns("I:L").EntireColumn.Hidden = True
End Sub
Den Code in ein Modul kopieren und das Makro dann deiner Schaltfläche zuweisen. Blendet die Spalten aus auf dem Tabellenblatt, auf dem sich die Schaltfläche befindet.
Gruß Werner

Anzeige
AW: VBA - 2 verschiedene Spaltenblöcke ausblenden
26.06.2015 10:41:11
Rudi
Hallo,
Sub aaa()
Range(Columns(2), Columns(4)).Hidden = True
Range(Columns(9), Columns(12)).Hidden = True
End Sub

Gruß
Rudi

AW: VBA - 2 verschiedene Spaltenblöcke ausblenden
26.06.2015 10:53:21
Michael
Hallo!
Die Profis waren wie immer schneller, hier noch meine Variante - wenn Du das mit einer Schaltfläche auslöst, kannst Du zwischen Aus- und Einblenden jeweils umschalten; im Code müsstest Du noch Deinen Tabellenblattnamen einsetzen (statt "Tabelle1") und ggf. die gewünschten Spalten ändern:
Sub SpaltenAus()
Dim Bereich As Range
Set Bereich = Worksheets("Tabelle1").Range("B:D", "I:L")
Bereich.EntireColumn.Hidden = Not Bereich.EntireColumn.Hidden
End Sub
LG
Michael

Anzeige
AW: VBA - 2 verschiedene Spaltenblöcke ausblenden
26.06.2015 11:04:42
Daniel
Hi Michael
eine Variante blendet alle Spalten von B bis L aus.
wenn du meherere Bereiche ausblenden willst, dann so:
Set Bereich = Range("B:D,I:L")
dh die Bereiche müssen in einem Textstring angegeben werden.
Gibst du der Range-Funktion zwei Parameter, so interpretiert diese das als "von - bis" und nimmt alle Zellen, die Zwischen diesen beiden Zellbereichen liegen.
Gruß Daniel

Anzeige
Danke Dir...
26.06.2015 11:10:47
Michael
...hätte mir auffallen sollen!
Aber deswegen lesen wir hier ja im "Mehr-Augen-System" :-]
LG und schönes WE
Michael
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige