Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte ausblenden

Spalte ausblenden
21.05.2005 14:08:39
Burgy
Hallo,
Kann mir jemand helfen?
Wenn in Celle (A1) der Datum "2002 oder 2003" dann Spalte (C) ausblenden.
Wenn in Celle (A1) der Datum "2000 oder 2004" dann Spalte (C) einblenden.
Sinn und zweck das Ganzen ist im Kalender der 29.Feb ein und auszublenden.
, wie bekomme ich das hin?
Gruß,
Burgy

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte ausblenden
21.05.2005 14:38:15
Matthias
Hallo Burgy,
Voraussetzungen:
- in A1 steht das Jahr als Zahl (oder Standard) definiert
- die Zelle A1 wird manuell geändert, d.h. es steht keine Formel drin
dann:
- Rechtklick auf Tabellenname im Arbeitsmappenregister
- "Code anzeigen" klicken
- ins erscheinende Codefenster folgenden Code kopieren:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Schaltjahr As Boolean
If Not Intersect(Target, Range("A1")) Is Nothing Then
Schaltjahr = (Day(DateSerial(Range("A1"), 2, 29)) = 29)
Range("C:C").EntireColumn.Hidden = Schaltjahr
End If
End Sub
Viel Erfolg,
Matthias
Anzeige
Super! Klapp einwandfrei !
21.05.2005 14:47:41
Burgy
Super!
Klapp einwandfrei!
Vielen Dank,
Gruß,
Burgy

AW: Naja, nicht ganz...
21.05.2005 14:50:48
Matthias
Hallo Burgy,
es gehört ja genau andersrum, oder?
nicht
Range("C:C").EntireColumn.Hidden = Schaltjahr
sondern
Range("C:C").EntireColumn.Hidden = Not Schaltjahr
Gruß Matthias
Not nachgetragen
21.05.2005 15:13:04
Burgy
Hallo Matthias,
Danke nochmal, "Not" habe ich nachgetragen.
Gruß,
Burgy

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige