Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

304 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Anzeige
bestimmte Spalten ein- und ausblenden (VBA) | Herbers Excel-Forum
Matthias
Hi,
ich bräuchte ein wenig Hilfe zu folgendem Vorhaben:
In einer Liste, in der Identnummern für eine Maschine verwaltet werden, sollen bestimmte Spalten über ein Auswahlmenü ein- und ausgeblendet werden können. Dabei sollen bei Auswahl einer Maschinenbaugröße (von 110 bis 610) immer drei Sp...
24.01.2010 16:55:43
Thread-ID: 1132489
4 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Spalten und Zeilen ausblenden per Makro
Stefan

Hallo,
ich möchte per Makro bestimmte Spalten und Zeilen ausblenden. Der mit dem Makrorcorder erst aufgezeichnete und angepaßte Weg blendet mir dann allerdings alle Spalten und Zeilen aus.
Kann mir bitte jemand helfen, wie ich den Code schreiben muss?
Sub Fall2_Spalten_Zeilen_ausb...
06.04.2010 10:10:32
Thread-ID: 1150290
9 Beiträge
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
5
6
5
3
3
8
7
7
3
1
2
5
6
9
5
2
2
4
1
3
2
6
3