Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.12.2023 00:27:49
Füllfarbe ändern wenn derselbe Text in Bereich steht
09.12.2023 22:39:41
ist leer und doch nicht, bitte Formel-Korrektur
09.12.2023 22:19:04
Spalten und Zeilengröße unabhängig von Skalierung
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

29 Februar , Eine Zeile ausblenden

29 Februar , Eine Zeile ausblenden
08.10.2003 10:43:37
Robert Nägele
Hi,

Ich habe in einer Arbeitsmappe nun 12 Seiten angelegt plus eine Übersicht.
In jeder Zeile auf einem der 12 Blätter steht jeweils ein Datum.
Ich habe es bereits hinbekommen das je nachdem welches Jahr man in der Übersicht angibt die Samstage und Sonntage eingefärbt sind etc.

Mein Problem ist nun nur wie ich es hinbekommen soll das auf dem 2. Blatt mit Namen "Feb" die Zeile 31 ausgeblendet wird wenn das Jahr in der Zelle "Übersicht!A2" im Format ( JJJJ ) ein Schaltjahr zeigt ?

Weiß da jemand eine elegante Methode ?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wochenenden einfärben
08.10.2003 11:02:14
Galenzo
Hallo,

zum 1. Teil deiner Frage.
Die Wochenenden lassen sich recht einfach mittels "Bedingter Formatierung" einfärben.
Gehe dazu in die Zelle, in der das erste Datum steht (hier z.B. A1)
Im Menü wählst du: "Format/Bedingte Formatierung" - es öffnet sich das entsprechende Fenster für die bedingte Formatierung. Hier gibst du unter "Bedingung1" dieses ein:
"Formel ist:" und dann diese Formel: =WOCHENTAG(A1;2)>5
Mit dem Button "Format" kannst du dann eine Farbe oder Schriftart usw. einstellen, mit der diese Tage dann markiert werden. Dann kannst du dieses Fenster schliessen.
Nun mußt du nur noch mit "Formate übertragen" diese Formatierung auf die restlichen Zellen der Spalte übertragen - bzw. auch für deine anderen Tabellenblätter.

Viel Erfolg!
Anzeige
AW: Wochenenden einfärben
08.10.2003 11:06:08
Robert Nägele
Hi,

Das habe ich tatsächlich bereits hinbekommen wie auch in der Frage geschrieben,
es geht mir ausschließlich um die Ausblendung des 29.Februars :) Sorry habs vielleicht
bissl umständlich geschrieben. Danke trotzdem
AW: Wochenenden einfärben
08.10.2003 11:19:13
Galenzo
Ohne VB kannst du die komplette Zeile nicht löschen.
Ich hätte da eine Funktion, um die Ausgabe des 29. in der Datumsspalte zu unterdrücken.
Ich gehe hier davon aus, daß in der Zelle B28 steht: 28.01.2003 oder 28.01.2000 oder so.
Wenn du in die Zelle B29 diese Funktion
=WENN(MONAT(A28+1)=2;A28+1;"")
einträgst, wird die Ausgabe eines 29. in den Schaltjaher verhindert.
(Zur Erläuterung: Es wird geprüft, ob der Monat des Folgetages auch noch Februar ist oder nicht; und entsprechend der 29. geschrieben oder eben nix)

Ich hoffe das hilft dir erstmal weiter.
Wenn nicht, wäre es hilfreich, wenn du mal erläutern würdest, wie deine Datumswerte aussehen, wo du den Monat und das Jahr herbekommst.
Anzeige
AW: 29 Februar , Eine Zeile ausblenden
08.10.2003 11:07:42
Hajo_Zi
Hallo Robert

leider hast Du nichts dazu geschrieben wie Du den nächsten Tag ermittelst. Schaue mal auf meine Homepage ohne VBA doert ist ein Beispiel für einen Kalender.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: 29 Februar , Eine Zeile ausblenden
08.10.2003 12:05:58
WernerB.
Hallo Robert,

das navchstehende Makro gehört in das Tabellenblat-Modul des Blattes "Feb":

Option Explicit

Private Sub Worksheet_Activate()
Dim DDa2 As Date
Dim IJa2 As Integer
Application.ScreenUpdating = False
If Not IsNumeric(Sheets("Übersicht").Range("A2").Value) Then Exit Sub
If Len(Sheets("Übersicht").Range("A2").Text) <> 4 Then Exit Sub
IJa2 = CInt(Sheets("Übersicht").Range("A2").Text)
DDa2 = CDate("01.03." & IJa2)
DDa2 = CDate("01.03." & IJa2)
DDa2 = DDa2 - 1
Select Case Day(DDa2)
Case 29
Rows("31:31").EntireRow.Hidden = True
Case Else
Rows("31:31").EntireRow.Hidden = False
End Select
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
Danke an alle, funktioniert wie es soll (OT)
08.10.2003 12:47:12
Robert Nägele
Thx :)

2 Forumthreads zu ähnlichen Themen

29. Februar Zeile aus-/einblenden
Oliver

Hallo zusammen,
ich bin gerade dabei, eine Umsatzliste zu erstellen.
Ich habe 13 Tabellenblätter, d.h. eine Übersicht wo man das Jahr per DropDown wählen kann und 12 Monate.
Ich habe im Tabellenblatt3 ("Februar") in Zelle A36 den 29.Februar mit einer Wenn-Funktion ermittelt: =WENN(M...
19.01.2018 11:25:06
Thread-ID: 1603285
5 Beiträge
29. Februar aus-oder einblenden
Werner

Hallo Ihr alle,
ich habe ein Tabellenblatt ( https://www.herber.de/bbs/user/15507.xls
) bei dem ich automatisch den 29 Februar ein- oder ausblenden lassen möchte.
Geht dies ohne VBA?
tnx
Der Werner
02.01.2005 16:49:38
Thread-ID: 540811
9 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige