Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktuellen Tag farblich markieren

Forumthread: Aktuellen Tag farblich markieren

Aktuellen Tag farblich markieren
18.01.2005 09:04:38
Hans
Guten Morgen Excelaner
hoffe Ihr könnt mir bei folgendem Problem helfen
Ich habe einen Jahreskalender mit den Tagen in (E18-48, V18-48, AM18-48, BD18-48, BU18-48, CL18-48, DC18-48, DT18-48, EK18-48, FB18-48, FS18-48 und GJ18-48, daneben jeweils 12 Eintragsspalten.
Gibt es eine möglichkeit beim öffnen der Datei die Zelle des aktuellen Tages und die danebenstehenden Eintragszellen farblich zu markieren und den jeweils ersten des monats anzuwählen ? mit Auto-open z.B.
Danke Hans
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Aktuellen Tag farblich markieren
c0bRa
bedingte formatierung:
e18: formel ist =e18=heute()
f18: formel ist =e18=heute()
danach nach unten ziehen, klick auf den blauen button, nur formate übernehmen, dasselbe dann mit den anderen zellen (kannst e18:f18 auch über v18:w18 kopieren und dann ebenfalls sagen nur formate übernehmen)...
wäer meine lösung dafür, gibt sicherlich noch ne elegantere via VBA...
c0bRa
Anzeige
AW: wäre eine möglichkeit aber
18.01.2005 09:20:24
Hans
Hallo c0bRa
wäre eine möglichkeit aber die grösse der fertigen Datei spielt auch eine Rolle, daher wäre
VBA besser. Trotzdem Danke
gruss Hans
AW: Aktuellen Tag farblich markieren
RR
Hallo Hans,
den Tag und die Spalten rechts davon kannst du über bedingte Formatierung farbig machen.
Den ersten des Monats markieren geht z.B. so

Private Sub Workbook_Open()
Cells(18, Month(Date)*13-8).Select
End Sub

Gruß
RR
Anzeige
AW: Aktuellen Tag farblich markieren
18.01.2005 09:31:09
Matthias
Hallo Hans,
ich bin zwar etwas spät, aber jetzt muss ich es auch loswerden...
In dieseArbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
DatumHervorheben Date, False
End Sub
Private Sub Workbook_Open()
Dim merker As Boolean
merker = ThisWorkbook.Saved
DatumHervorheben Date, True
ThisWorkbook.Saved = merker 'damit die Farbänderung alleine nicht schon das Speichern erzwingt
GehezuMonat Month(Date)
End Sub
In ein Modul:
Option Explicit
Sub DatumHervorheben(dat As Date, setze As Boolean)
Const Farbe = 19
Dim m As Integer, t As Integer
Dim z As Range
Dim f As Long
m = Month(Date)
t = Day(Date)
Set z = Cells(t + 17, m * 17 - 12)
If setze Then f = Farbe Else f = xlColorIndexNone
Range(z, z.Offset(0, 12)).Interior.ColorIndex = f
End Sub
Sub GehezuMonat(m As Integer)
Dim s
s = m * 17 - 12
With ActiveWindow
.ScrollColumn = s
.ScrollRow = 1
End With
Cells(18, s).Activate
End Sub

Das mit der bedingten Formatierung ist natürlich auch eine Möglichkeit.
Gruß Matthias
Anzeige
Super Danke schön o.T
18.01.2005 11:23:33
Hans
0
;

Forumthreads zu verwandten Themen

VBA Code auch mit aktuellem Datum statt CommandBut
alex

Hallo zusammen,
Den Code in dieser Datei:
https://www.herber.de/bbs/user/55491.xls
schrieb mir ein Forumsmitglied heute Vormittag.
Der funzt so wie ich mir das vorgestellt habe.
Jedoch bräuchte ich das Ding mit aktuellem Datum (also immer am "Heute" ausgerichtet) statt mit...
18.09.2008 22:47:00
Thread-ID: 1010873
2 Beiträge
Zeile mit aktuellem Datum auslesen
Horst

Hallo Excel-Gemeinde!
Wie kann ich bei untenstehendem VBA-Code angeben, dass von der B.xls die Spalte AA jener Zeile A ausgelesen wird, welche dem aktuellem Systemdatum entspricht (Spalte A enthält Datumswerte, Spalte AA Beträge).
Das müsste irgendwie mit "Application.Match(CLng(Date)"...
11.02.2009 14:23:00
Thread-ID: 1049595
17 Beiträge
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049955
2 Beiträge
Anzeige
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049956
3 Beiträge
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Wochentag aus Zelle mit Datum
MikeM

Hallo zusammen,
hab ein Problem und hoffe auf eine Lösung.
Ich möchte mir gerne aus einem Datum den Wochentag anzeigen lassen - allerdings als Text.
Beispiel:
Zelle A1 = 11.02.2009 (formatiert als TT, da ich nur den Tag brauche, also 11, da es sich um einen Kalender handelt)
...
18.05.2009 14:47:49
Thread-ID: 1075909
4 Beiträge
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Zellen mit Datum - ändern
Burghard

Hallo,
ich brauche mal Hilfe.
Ich möchte in der Spalte A (Bereich A1 bis A200) in der Tabelle1 alle Zellen mit Datum finden und diese Zellen auf das Datumsformat "TTTT TT.MM.JJJJ" verändern.
Ich brauche die Lösung in VBA (nicht als bedingte Formatierung), da ich sie in ein Makro ein...
30.07.2009 09:06:19
Thread-ID: 1092422
4 Beiträge
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
Datum mit Klick in andere Zelle kopieren
Josef_T

Hallo zusammen,
ich bräuchte mal eure Hilfe, für eine Formel die folgendes ausführt:
In B6:B30, habe ich Datums (Datümer?) stehen. Wenn ich dann irgendeins der Datümer in dieser Spalte anklicke, soll das jeweilige Datum in die Zelle D6 geschrieben werden. Die Datümer in Spalte B, sollen...
17.09.2009 19:18:21
Thread-ID: 1103686
7 Beiträge
Aktuellen Tag im Chart markieren?
ChrisW

Hallo Leute,
besteht die Möglichkeit und wenn ja - wie - in einem Chart eine Senkrechte linie darzustellen, die den Heutigen Tag markiert?
So ähnlich wie in meinem Screenshot simuliert:

Danke
Chris
23.09.2009 15:32:31
Thread-ID: 1104968
3 Beiträge
Auf Datum mit Uhrzeit springen
Rainer

Hallo,
in meinem Excel Tabellenblatt befindet sich in der Spalte A jeweils fortlaufend das Datum mit einer Uhrzeit (30 Minuten Aufteilung).
Beispiel:
27.10.09 11:00
27.10.09 11:30
27.10.09 12:00 usw.
Da die Tabelle im Laufe der Zeit sehr lang wird, würde ich beim Öffnen...
27.10.2009 12:09:25
Thread-ID: 1112458
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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