Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
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
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte ausblenden mit VBA

Forumthread: Spalte ausblenden mit VBA

Spalte ausblenden mit VBA
05.05.2024 10:34:48
DerZehner
Hallo!
Leider hat mich meine Chefin dazu verdonnert einen uralten Excel-Schichtkalender aufzufrischen...
Ich versuche mich gerade am ausblenden einer Spalte mit VBA.
Einige Lösungsansätze habe ich hier im Forum schon gefunden, aber scheinbar bin zu doof es umzusetzen...

Also das Problem ist folgendes:
In Sheet Februar Zelle AE1 wird das Wort Schaltjahr durch die Formel

=WENN(UND(TAG(DATUM(JAHR(Januar!A1);3;0))=29;JAHR(Januar!A1)>1900);"Schaltjahr";"Kein Schaltjahr")

eingefügt.
Wenn das Wort "Kein Schaltjahr" dort erscheint soll die Spalte AD komplett ausgeblendet werden.

die Umsetzung mit hidden.columns kriege ich nur nicht hin.
Mein Kopf qualmt schon vor Verwirrung. Und das sonntagsmorgens...

Bitte um Hilfe...

Der Zehner
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte ausblenden mit VBA
05.05.2024 10:55:53
DerZehner
Folgenden Code habe ich dank KI bereits gebastelt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE1")) Is Nothing Then
If Range("AE1").Value = "Kein Schaltjahr" Then
Columns("AD:AD").Hidden = True
Else
Columns("AD:AD").Hidden = False
End If
End If
End Sub

Leider funktioniert die aber nur, wenn ich per Hand "Kein Schaltjahr" in die Zelle AE1 eintragen.
Wie bekomme ich es hin, dass VBA auf das Ergebnis der Wenn-Funktion reagieren soll???
Anzeige
AW: Spalte ausblenden mit VBA
05.05.2024 13:22:37
Piet
Hallo

du verwendest das falsche Event Ereignis. Das reagiert nur auf Eingabe in eine Zelle!
Verwende besser "Bei_Sheet_Activate", damit klappt es sicher. Siehe unten.

mfg Piet 

Private Sub Worksheet_Activate()

If Range("AE1").Value = "Kein Schaltjahr" Then

   Columns("AD:AD").Hidden = True

Else

   Columns("AD:AD").Hidden = False

End If

End Sub
Anzeige
AW: Spalte ausblenden mit VBA
05.05.2024 16:24:27
DerZehner
Das hat absolut perfekt funktioniert!
Ich bin begeistert!
Vielen Dank!
AW: Spalte ausblenden mit VBA
06.05.2024 10:00:09
Yal
in Kombination mit der Idee von Ralf: 

Private Sub Worksheet_Activate()

   Columns("AD:AD").Hidden = Day(DateSerial(Year(Range("Januar!A1")),3,0)) > 29

End Sub


VG
Yal
Anzeige
AW: Spalte ausblenden mit VBA
05.05.2024 13:27:31
ralf_b
du kannst doch das Ergebnis der Formel direkt im Code verwenden bzw, ausrechnen lassen.
ein Umweg über eine Zellabfrage ist nicht notwendig
vorschlag ungetestet 


Columns("AD:AD").Hidden = (Year(Range("Januar!A1"))>1900)  And (Day(Dateserial(Year(Range("Januar!A1")),3,0))=29)
Anzeige
;

Forumthreads zu verwandten Themen

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
Spalten ausblenden - Makro tut nicht mehr
Daniel

Hallo,
gibt es eine Möglichkeit/ Befehl ein Makro auf eine Zelle zugreifen zu lassen, die ausgeblendet ist, ohne diese einzublenden?
Excel kann kann ja auch berechnungen durchführen obwohl die spalte net angezeigt wird.
Mfg
Daniel
05.11.2009 14:56:28
Thread-ID: 1114735
6 Beiträge
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
Spalten ein und ausblenden mit TOOLBOX
Jochen

Hallo Freunde,
ich habe eine Tabelle in der einige Spalten selten genutzt werden und das ewige ein- und ausblenden über
"Format - Spalten - ausblenden"
ist umständlich.
Kann ich nicht mit der TOOLBOX einen Schalter erzeugen der das gleiche macht nur schneller und komfortabeler.<...
29.01.2010 17:26:51
Thread-ID: 1134214
22 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
Makro zum Spalten ausblenden
Andreas

Hallo an alle Excel Profis,
ich habe in der Zellen A1-Z1 verschiedene Zahlen eingetragen.
Einige Zellen sind jedoch auch leer bzw. mit falsch ausgefüllt.
Kann ich durch ein Makro die Spalten in denen kein Wert bzw. "falsch" eingetragen ist ausblenden?
Danke vielmals für eure...
16.06.2011 22:29:04
Thread-ID: 1218642
4 Beiträge
Anzeige
Spalten ausblenden mit 2 Checkboxen
Kai

Hallo zusammen,
ich habe folgendes Problem:
Ich möchte mit Hilfe von 2 Checkboxen Spalten ausblenden, was eigentlich kein Problem darstellt. Problematisch wird es deshalb, weil der Bereich der durch die Zweite Checkbox ausgeblendet werden soll, Teil des Bereichs ist, der durch Checkbox...
26.07.2011 09:58:08
Thread-ID: 1223644
3 Beiträge
Anzeige
makro spalten ausblenden bereichsabhängig
jxht8iwm

Hallo, ich suche ein Makro, dass bestimmte Spalten ausblendet, abhängig von Werten in einem definierten Bereich.
Spaltenüberschriften bilden die Zeilen 2 bis 4 (zellinhalte sind Texte und Zahlen).
Im Bereich C6 bis I9 gibt es die Werte "x" und "". Von den Spalten C bis I sollen alle aus...
30.08.2011 00:38:13
Thread-ID: 1227947
3 Beiträge
VBA; Schutz; Spalten nach Datum ausblenden
Jörg

Hallo,
ich kann im Archiv kein geeigneten Hinweis finden, um per VBA , bei öffnen einer geschützten Datei, Spalten nach Datum auszublenden.
In den Spalten AO10:CP10, befindet sich die Datumsangabe (MM.YYYY).
Alle Spalten, deren Monat kleiner und gleich dem aktuellen Monat (auch da...
25.10.2011 12:59:30
Thread-ID: 1235311
7 Beiträge
Anzeige
Spalten anhand Überschriften ausblenden (VBA)
Meppi

Hallo,
ich habe folgendes Problem und hoffe, dass mir jemand von euch weiterhelfen kann:
Ich habe in einer Excel-Datei mehrere Tabellenblätter in denen sich Webabfragen (in jedem Tabellenblatt bis zu 3 Webabfragen) befinden. Sie müssen täglich aktualisiert werden. Dabei wird auch automa...
14.12.2011 13:40:07
Thread-ID: 1242082
6 Beiträge
Makro Zeilen / Spalten ausblenden
Tom

Hallo Experten.
ich benötige ein Makro mit dem ich Zeilen und Spalten ausblenden kann, deren Zellen im Ergebnis Null sind.
D.h. alle Zeilen von Zeile 12 bis Zeile 774 sollen ausgeblendet werden wenn in Spalte C eine Null steht.
Zudem sollen danach alle Spalten ausgelendet werden im...
01.03.2012 12:01:59
Thread-ID: 1253073
3 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
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