Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Füllfarben für Zeile ändern, wenn anderer Monat

Füllfarben für Zeile ändern, wenn anderer Monat
20.01.2004 21:55:11
Jan Ostmann
Hallo!
Ich habe eine Liste erstellt, die fast jeden Tag im Jahr einen Eintrag erhät. Um das ganze übersichtlicher zu gestalten möchte ich nun die Zeilen, die zu einem neuen Monat gehören mit einer anderen Füllfarbe hinterlegen.
Also alle Einträge für Januar mit hellgrau
alle Einträge für Februar mit dunkelgrau
alle Einträge für März wieder mit hellgrau
alle Einträge für April wieder mit dunkelgrau
alle Einträge für Mai wieder mit hellgrau usw.
Die Formel im Datumsfeld müsste also erkennen, wann ein neuer Monat erfasst wurde und entsprechend die andere der beiden ausgewählten Farben als Füllfarbe einstellen.
Geht das? Oder verlange ich zuviel?
danke schon jetzt für Eure Hilfe. Jan

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Füllfarben für Zeile ändern, wenn anderer Monat
20.01.2004 22:20:02
Ramses
Hallo
Den gesamten Datenbereich markieren
Dein Datum steht in A1 im Beispiel
Format - Bedingte Formatierung
Formel ist : =REST(MONAT($A1);2)=0
und die Farbe Dunkelgrau zuweisen
Zweite Bedingung:
Formel ist : =REST(MONAT($A1);2)<>0
und die Farbe Hellgrau zuweisen
Gruss Rainer
OT: Du hast Post oT
20.01.2004 22:49:06
Boris
Du auch :-)) o.T.
20.01.2004 23:13:09
Ramses
...
AW: Füllfarben für Zeile ändern, wenn anderer Monat
20.01.2004 23:13:42
Jan Ostmann
Vielen Dank für die schnellen Antworten. Prinzipiell klappt das ja auch sehr gut. Nur wie kann ich mir die Eingabe erleichtern. Es handelt sich mittlerweile um etwa 60 Zeilen und da jedesmal eine bedingte Formatierung anlegen ist ganz schön mühsam.
Gibt es eine Möglichkeit wie beim Text die Formatierung auf andere Zellen/Zeilen zu übertragen. Z.B. wie bei Bearbeiten - Ausfüllen - Unten.
Mit der Schaltfläche "Format übernehmen" klappt das nur bedingt. Er ändert dann nicht den Zellbezug und bezieht sich in jeder Zeile auf die Datumsangabe in A1 (bzgl. Beispiel). Da müsste ich wiederum manuell die richtige zelle eintragen. :-(
Danke, Jan
Anzeige
AW: Füllfarben für Zeile ändern, wenn anderer Monat
20.01.2004 23:21:51
Ramses
Hallo
du kannst die ganze Spalte so formtieren.
Wenn ein Datum drin ist, wird sie formatiert, und wenn kein Datum drin ist, ist sie normal weiss ;-)
Du musst nor vor Anwendung der Bedingten Formatierung die GANZE Spalte formatieren nur das $-zeichen vor der 1 entfernen, dann wird der Bezug automatisch richtig gesetzt
Gruss Rainer
AW: Füllfarben für Zeile ändern, wenn anderer Monat
20.01.2004 23:21:53
Petra
Hi Rainer,
du musst die Bezüge ralativ gestalten, dann kannst du mit dem
Pinsel die Formate übertragen.
Grüße Petra
Danke! Es klappt!
20.01.2004 23:47:16
Jan Ostmann
:-))
AW: Füllfarben für Zeile ändern, wenn anderer Monat
20.01.2004 22:24:34
FP
Hallo Jan,
das geht mit einer bedingten Formatierung:
Excel Jeanie HTML
Anzeige
oder per Makro
20.01.2004 22:30:33
xXx
Hallo,
in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Offset(-1, 0).Interior.ColorIndex = xlNone Then
Range(Target, Target.Offset(0, 5)).Interior.ColorIndex = 15
Exit Sub
End If
If Month(Target) <> Month(Target.Offset(-1, 0)) Then
If Target.Offset(-1, 0).Interior.ColorIndex = 15 Then
Range(Target, Target.Offset(0, 5)).Interior.ColorIndex = 48
Else
Range(Target, Target.Offset(0, 5)).Interior.ColorIndex = 15
End If
Else
Range(Target, Target.Offset(0, 5)).Interior.ColorIndex = Target.Offset(-1, 0).Interior.ColorIndex
End If
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S.Das Forum lebt auch von den Rückmeldungen an die Antworter.
Anzeige

301 Forumthreads zu ähnlichen Themen

Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
jede zweite Zelle in Datenreihe
sarina

Hallo!
Ich habe ein Problem ;)
Und zwar würde ich gerne ein Diagramm erstellen, dass als Datenreihe aus meiner vorhandenen Tabelle jede zweite Zelle nimmt, z.B. aus der Spalte A von 1:250 also dann A1, A3, A5,....
Und das ohne eine neue Tabelle zu erstellen.
Geht das? Hat jema...
29.08.2008 09:48:58
Thread-ID: 1005687
5 Beiträge
Anzeige
Maxwert aus jeder zweiten Spalte
Stefan

Hallo,
kennt jemand eine möglichkeit, wie man ohne VBA das Maximum aus den Werten jeder 2. Spalte einer Zeile auslesen kann, ohne die Spalten einzeln aufzuzählen (=max(d2;d4;d6;d8...))?
Gruß Stefan
16.01.2009 14:24:00
Thread-ID: 1040577
5 Beiträge
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
alle befüllten Zeilen einer Mappe zählen
Steffen

Hallo Ex(cel)perten,
wie muss ich meinen Code ergänzen, um alle befüllten Zeilen einer kompletten Arbeitsmappe ausgezählt zu bekommen?
für ein einzelnes Blatt kriege ich es hin, da keine leeren Zeilen zwischendrin vorhanden sind
all = Cells(Rows.Count, 1).End(xlUp).Row
Gruß
...
06.05.2009 10:51:40
Thread-ID: 1073279
5 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge

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
5
14
3
4
4
4
3
5
4
5
4
5
2
8
3
3
5
3
3
2
2
3
9
12
8