Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus-/Einblenden von Spalten per Makro

Forumthread: Aus-/Einblenden von Spalten per Makro

Aus-/Einblenden von Spalten per Makro
11.02.2008 14:36:00
Spalten
Hallo zusammen,
ich benötige ein Makro, mit dem man Spalten aus- und wieder einblenden kann. So sieht das Blatt aus:
A= Januar
B= Februar
C= ...
L= Dezember
Bei Start des Makros soll eine Eingabeaufforderung erscheinen Dort möchte ich eine Zahl von 1-12 eingeben. Nach einem Regelwerk werden dann bestimmte Spalten ausgeblendet. Bei EIngabe von x werden alle Spalten wieder eingeblendet.
Regelwerk
1 = Die Spalten D-L werden ausgeblendet
2 = Die Spalten A, E-L werden ausgeblendet
3 = Die Spalten A-B, F-L werden ausgeblendet
usw.
Das "echte" Regelwerk ist komplexer, aber das kann ich mir aus den beschriebenen Regeln 1-3 und x ableiten.
Vielen Dank vorab!!
Gruß, Rainer

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus-/Einblenden von Spalten per Makro
11.02.2008 15:31:00
Spalten
Hi Rainer,
Versuch's mal mit diesem Code in einem Modul:

Sub AusEin()
Dim thisInput
Dim thisCols
Dim thisInputB As String
Dim bDoIt As Boolean
Dim ix As Integer
thisInput = Array("1", "2", "3", "x")
thisCols = Array("D:L", "A:A, E:L", "A:B, F:L", "A:IV")
thisInputB = InputBox("Welches Szenario:", "Aus- und Einblenden")
bDoIt = False
For ix = 0 To UBound(thisInput)
If thisInputB = thisInput(ix) Then
bDoIt = True
Exit For
End If
Next ix
If bDoIt Then
ActiveSheet.UsedRange.EntireColumn.Hidden = False
ActiveSheet.Range(thisCols(ix)).EntireColumn.Hidden = (Not (ix = UBound(thisInput)))
Else
MsgBox "Falsche Eingabe", vbCritical + vbOKOnly
End If
End Sub


GreetZ Renée

Anzeige
AW: Aus-/Einblenden von Spalten per Makro
11.02.2008 17:53:58
Spalten
Hallo,
ich habe es nicht wirklich verstanden, aber es funktioniert und ich kann es für mein Regelwerk anpassen! Vielen Dank also und... der VBA-Kurs für Anfänger geht auch bald los...
Gruß
Rainer

AW: Aus-/Einblenden von Spalten per Makro
11.02.2008 18:18:21
Spalten
... eine Frage noch:
wie kann man diese Zeile: thisCols = Array("D:L", "A:A, E:L", "A:B, F:L", "A:IV") so schreiben, daß jeder Parameter eine Zeile bekommt?
Also etwa so:
thisCols = Array(
"D:L",
"A:A, E:L",
"A:B, F:L",
"A:IV"
)
Aber so schmeckt Excel die Syntax nicht...

Anzeige
AW: Aus-/Einblenden von Spalten per Makro
11.02.2008 19:52:00
Spalten
Hallo Rainer,
Mit dem Fortsetzungszeichen _ so:

thisInput = Array("1", _
"2", _
"3", _
"x")
thisCols = Array("D:L", _
"A:A, E:L", _
"A:B, F:L", _
"A:IV")


GreetZ Renée

;

Forumthreads zu verwandten Themen

Spalte vor Druck ausblenden/nach Druck einblenden
Gesa

Hallo,
habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()...
27.06.2009 15:48:42
Thread-ID: 1084819
4 Beiträge
Spalten aus-einblenden
Fritz

Hallo, kann mir jemand helfen?
Wie kann ich aus ausgeblendeten Spalten gezielt mit einem Dropdownmenü einzelne Spalten wieder einblenden?
So wie bei "Blatt" aus und einblenden.
Für die Hilfe bereits im Voraus vielen Dank
Gruß
Fritz
29.11.2009 19:59:29
Thread-ID: 1120786
2 Beiträge
Spalten lassen sich nicht einblenden?
Reinhard

Hallo Wissende,
wegen einer Anfrage zu einem anderen problem bekam ich eine Mappe.
In Tabelle1 sind die Spalten D und E ausgeblendet.
Mir gelingt es nicht sie einzublenden.
Weder mit
Sub tt() Columns(4).Hidden = False Columns(5).Hidden = False End Sub oder manuell.
Blat...
01.03.2010 17:59:12
Thread-ID: 1142460
7 Beiträge
Passwort zum Einblenden und Bearbeite von Spalten
Spalten

Hallo zusammen,
ich benötige eure Hilfe!!!
Ich brauche ein Makro, welches mir z.B. die Spalte C und D nur durch ein Passwort anzeigt und ich es bearbeiten kann.
Oder dass ich die Benutzer definiere die die Spalte C und D sehen und bearbeiten dürfen.
Ich hoffe mir kann da jemand...
20.09.2010 21:23:40
Thread-ID: 1178637
5 Beiträge
Anzeige
Dynamisches Spalteneinblenden
Margot

Eine weitere Hilfesuchende....Folgende Aufgabenstellung bekomme ich (trotz vieler „effektiver Stunden“ Stöberns im Excel-Forum) nicht in den Griff:- dynamisches Einblenden von Spalten innerhalb einer Gruppe von Arbeitsblättern in Abhängigkeit des aktuellen BerichtsmonatsDie Details...
20.05.2002 10:19:02
Thread-ID: 122139
4 Beiträge
Anzeige
Kontrollkästchen/Spalten einblenden
Gabriele

Hallo!
ich habe ein sehr großes Sheet über eine Länderverteilung in Excel und hätte nun gerne Kontrollkästchen für jedes einzelne Land damit jeder der diese Übersicht bekommt sich aussuchen kann, welche Länder er eingeblendet haben will und welche nicht...
Idealerweise sollten KEINE Spa...
27.06.2011 13:52:57
Thread-ID: 1219859
9 Beiträge
Anzeige
Spaltengruppierung mit VBA einblenden
Ralf

Hallo Forum,
ich habe ein Problem, was wahrscheinlich hier schon mehrfach besprochen wurde, ich dies aber bei mir nicht umsetzen kann.
Folgendes:
Ich habe in einer Arbeitsmappe zwei Spaltengruppierungen. Hinter einer Gruppierung verbirgt sich ein Ergebnisblatt, welches per Makro aus...
04.08.2011 12:16:31
Thread-ID: 1224873
3 Beiträge
Ganze Spalten einblenden
Peter

Guten Abend
In einer Zelle, benannt "SpaltenSichtbar" habe ich Spalten definiert, die im aktiven Sheet sichtbar sein sollen.
Range("SpaltenSichtbar") ="BX:BY,CA:CA"
Abgeleitet vom Makrorecorder habe ich mit folgender Codezeile versucht:
Sheets("ABCD").Columns(Range("SpaltenSicht...
25.01.2012 21:35:34
Thread-ID: 1248006
5 Beiträge
abhängig von Tabellenblatt, Spalten einblenden
Tabellenblatt,

Hallo zusammen,
meine Excel-Datei besteht aus zwei nahezu identischen Tabellenblättern. Auf beiden Tabellenblättern kann eine PDF-Datei erzeugt werden, welche automatisch per Outlook versendet wird.
Der Unterschied sollte nun sein, dass bei einem Tabellenblatt (z.B. "Blatt2") die Spalt...
15.04.2013 11:01:31
Thread-ID: 1308807
6 Beiträge
Spalten ausblenden und einblenden
Andreas

Hallo,
ich habe eine Tabelle. In der Spalte A stehen die Produktkategorien, z. B. Pumpe, Ventil, Dichtung etc.
Für diese drei Kategorien sind hinten in der Tabelle noch mal jeweils drei Spalten eingefügt mit bestimmten Werten. Die Merkmale der Pumpen sind bspw. in den Spalten AF:AH, die...
18.11.2013 14:54:09
Thread-ID: 1339023
12 Beiträge
Nur die nächste Spalte einblenden
henrik

Hey zusammen!
Ich habe mehrere ausgeblendete Spalte (B-Y). Jetzt möchte ich nur Spalte B dazu holen und einblenden. Derzeit muss ich immer alle Spalten B-Y einblenden und dann C -Y wieder ausblenden. Geht das nicht iwie einfacher, dass man nur die nächste Spalte separat einblendet?
BG
14.07.2014 09:58:23
Thread-ID: 1370202
2 Beiträge
Anzeige
Nur die nächste Spalte einblenden
henrik

Hey zusammen!
Ich habe mehrere ausgeblendete Spalte (B-Y). Jetzt möchte ich nur Spalte B dazu holen und einblenden. Derzeit muss ich immer alle Spalten B-Y einblenden und dann C -Y wieder ausblenden. Geht das nicht iwie einfacher, dass man nur die nächste Spalte separat einblendet?
BG
14.07.2014 10:20:33
Thread-ID: 1370206
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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