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

Zelle mit neustem Datum farbig darstellen?

Forumthread: Zelle mit neustem Datum farbig darstellen?

Zelle mit neustem Datum farbig darstellen?
01.05.2008 22:26:00
Selma
Hallo Leute,
ich möchte gern per VBA nur die Zelle (markierte Zellenbereich im Beispiel H5:S18) mit neustem Datum in rote Füllfarbe (siehe Beispiel) darstellen. Es sollen nur die letzte Werte der Zeile in der Markierung (siehe gelbe Füllbarbe) verglichen werden. Die Zellen sind als Standard formatiert. Beispiel: 25 01 ist der 25.01
Wie mache ich das?
Vielen Dank im Voraus !
Viele Grüße,
Selma

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 22:39:00
Tino
Hallo,
versuche es mal mit diesem Code.

Sub SucheDatum()
Dim strDatum As String
strDatum = Format(Date, "dd mm")
With Range("H5:S18")
.Interior.ColorIndex = xlNone
Application.ReplaceFormat.Interior.ColorIndex = 3
.Replace What:=strDatum, Replacement:=strDatum, LookAt:=xlWhole, ReplaceFormat:=True
End With
End Sub


Gruß
Tino

Anzeige
AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 22:45:00
{Boris}
Hi,
das bedingt aber, dass es sich bei dem gesuchten Datum immer um das heutige Datum handelt.
Grüße Boris

AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 22:53:01
Tino
Hallo,
so habe ich die Frage verstanden "mit neustem Datum in rote Füllfarbe", sollte ich diese falsch verstanden haben. sorry
Gruß
Tino

Anzeige
AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 22:54:18
{Boris}
Hi,
brauchst Dich nicht zu entschuldigen - wofür auch.
Aber das neueste Datum muss nach meinem Verständnis nicht das heutige Datum sein.
Grüße Boris

AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 23:21:00
Tino
Hallo,
wenn ich einen Fehler mache, ist es für mich dass mindeste mich zu entschuldigen.
Dies wäre bei mir das größte Datum, ist aber ansichtssachen.
Gruß
Tino

Anzeige
AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 22:43:00
{Boris}
Hi Selma,
solange Du die Daten als TEXT eingeben möchtest: Vergiss es.
Wenn Du sie als Zahlen eingibst, dann kannst Du das problemlos innerhalb der Bedingten Formatierung mit der MAX-Funktion erledigen.
Grüße Boris

AW: Zelle mit neustem Datum farbig darstellen?
01.05.2008 23:25:15
Selma
Hallo Tino, hallo Boris,
wenn es per VBA nicht geht, dann würde es gern über Bedingte Formatierung machen.
Ich habe jetzt die Werte als "Zahl" formatiert. Was muss ich jetzt machen?
Viele Grüße,
Selma

Anzeige
AW: Zelle mit neustem Datum farbig darstellen?
02.05.2008 00:02:00
Tino
Hallo,
dafür hätte ich auch eine Lösung.

Sub SucheDatum()
Dim strDatum As String, Datum As Date, Zelle As Range
Dim A As Long
Application.ScreenUpdating = False
For A = 5 To 18
Set Zelle = Cells(A, Cells(A, Columns.Count).End(xlToLeft).Column)
If A = 5 Then
Datum = CDate(Mid(Zelle, 1, 2) & "." & Mid(Zelle, 4, 5) & "." & 2008)
ElseIf Datum


Gruß
Tino

Anzeige
nur die rechten Zellen.
02.05.2008 00:30:56
Tino
Korrektur nur die rechten Zellen.

Sub SucheDatum()
Dim strDatum As String, Datum As Date, Zelle(13) As Range
Dim A As Long
Application.ScreenUpdating = False
Range("H5:S18").Interior.ColorIndex = 0
For A = 5 To 18
Set Zelle(A - 5) = Cells(A, Cells(A, Columns.Count).End(xlToLeft).Column)
If A = 5 Then
Datum = CDate(Mid(Zelle(A - 5), 1, 2) & "." & Mid(Zelle(A - 5), 4, 5) & "." & 2008)
ElseIf Datum


Gruß
Tino

Anzeige
Bedingte Formatierung verwenden,...
02.05.2008 00:07:44
Luc:-?
...Selma!
Zelle ist - gleich - =MAX(1.vondirmarkiertezelle;2.vondirmarkiertezelle;...;n.vondirmarkiertezelle)
...und in alle vondirmarkiertenzellen eintragen.
Das setzt aber voraus, dass in den Zellen noch der Datumswert steht oder statt bspw 2501 für den 25.01. 0125 steht.
Alternativ wäre es auch möglich, in VBA eine udF zu schreiben, die mit dieser oder auch mit der ursprgl Formatierung umgehen kann, und die dann in der bedingten Formatierung einzusetzen (könnte auch auf Farbmarkierung reagieren!). Mit xlStandardfktt würde es etwas komplizierter wdn, wenn du die Formatierung (2501) so beibehalten willst. Wenn die Formel so zu lang bzw kompliziert wird, kannst du ihr auch einen Namen geben (Menü Einfügen → Namen → Definieren → Namen in obere / Formel in untere Zeile) und diesen dann in der bedingten Formatierung zum Zellvgl verwenden.
Als weitere Alternative wäre natürlich auch (wie von dir ursprgl angedacht) eine Subroutine möglich, die man einfach über einen ausgewählten Bereich laufen lässt.
Gruß Luc :-?
Tipp: Eine udF könnte die (farbig markierten) Werte evtl auch intern sortieren (b.Bed. Textsortierung) und so den "neuesten" feststellen!

Anzeige
AW: Bedingte Formatierung verwenden,...
02.05.2008 10:51:03
Selma
@Tino
Die Routine funktioniert für den Zellenbereich H5:S18. Was muss ich verändern, damit ich die Routine auch für anderen markierten Zellenbereiche funktioniert?
@Luc :-?
Ich warte es erstmal ab, was der Tino schreibt. Da ich bei seiner Lösung nichts umstellen muss, wäre es für mich besser dies über VBA zu erledigen. Trotzdem vielen Dank für die ausführliche Erklärung.
Viele Grüße,
Selma

Anzeige
AW: Bedingte Formatierung verwenden,...
02.05.2008 11:11:33
Tino
Hallo Selma,
möchtest du mehr Zeilen abfragen, müsste dies so geändert werden.
Die Deklarierung:
Die Zahl an deine Anzahl der Zeilen anpassen.
Zelle(13) As Range
Die Schleife:
Die Werte von Zeile 5 bis Zeile 18 entsprechend anpassen
For A = 5 To 18
Man könnte dies aber auch Automatisch an die Begebenheiten anpassen.
Dazu solltest du aber erst mal bei diesen einfache Beispiel verstehe
was da abläuft.
Gruß
Tino

Anzeige
Automatisch an die Begebenheiten anpassen
02.05.2008 16:11:00
Tino
Hallo,
ich hoffe bei meinen Erklärungen im Code, dass ich keinen Ärger bekomme mit den Profis hier im Forum.
Hier ein Beispiel, dass sich automatisch an die Tabelle anpasst, aber nur in sofern wie ich deine Tabelle aus deinem Beispiel kenne.
Vorausgesetzt, deine Tabelle fängt in Zeile 5, Spalte 8 (H) an!

Option Explicit
Sub SucheDatum()
Dim strDatum As String, Datum As Date, Zelle() As Range
Dim A As Long, lngZeile As Long
Application.ScreenUpdating = False
'letzte benutzte Zelle in Spalte 8
lngZeile = Cells(Rows.Count, 8).End(xlUp).Row
'größe der Array festlegen
ReDim Zelle(lngZeile - 5)
'Schleife bis zur letzten Benutzten Zeile, ab Zeile 5
For A = 5 To lngZeile
'Zelle als opjekt in Array aufnehmen
Set Zelle(A - 5) = Cells(A, Cells(A, Columns.Count).End(xlToLeft).Column)
'Prüfe ob Zeile ab Spalte 8 gefüllt ist
If Zelle(A - 5).Column > 7 Then
'Farben in Zeile löschen
Range(Cells(A, 8), Zelle(A - 5)).Interior.ColorIndex = 0
'erster Schleifendurchlauf
If A = 5 Then
Datum = CDate(Mid(Zelle(A - 5), 1, 2) & "." & Mid(Zelle(A - 5), 4, 5) & "." & 2008)
'ab zweiten Schleifendurchlauf
ElseIf Datum


Über eine Rückmeldung, würde ich mich freuen.
Gruß
Tino

Anzeige
AW: Automatisch an die Begebenheiten anpassen
02.05.2008 17:14:00
Selma
Vielen Dank Tino !
Gruß,
Selma
;

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
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
Anzeige
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