[Excel 2003] VBA Datum :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] VBA Datum

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

florian-112
Newbie
Newbie

Anmeldedatum: 01.10.2007
Beiträge: 39

Verfasst am: 10.04.2008, 11:16

Hallo Excelfreunde,

ich habe mehrere Tabellen (Kalender) und Mappen, wo die bedingte
Formatierung erschöpft ist und ich möchte NICHT mit "CFPlus" arbeiten.

Mit VBA möchte ich das heutige Datum in Schriftfarbe=5 Fett
angezeigt haben.

Die Datümer stehen z.B. in Tabelle "1.Halbjahr" in den Bereichen

"C3:C33,G3:G31,K3:K33,O3:O32,S3:S33,W3:W32",
und noch in anderen Blättern und Bereichen.

Kann mir bitte jemand einen "anpassungsfähigen" Code schreiben?

Vielen Dank schon mal.

Nette Grüße
florian

_________________
WinXP Prof SP2
Excel 2003

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 10.04.2008, 11:34

Hallo!

Ungetestet:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("C3:C33,G3:G31,K3:K33,O3:O32,W3:W32")
For Each Zelle In Bereich
If Zelle = Date Then
Zelle.Font.ColorIndex = 5
Zelle.Font.Bold = True
Else
Zelle.Font.ColorIndex = 1
Zelle.Font.Bold = False
End If
Next Zelle
End Sub

Aber CFPlus ist viel flexibler und viel schneller...

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

florian-112
Newbie
Newbie

Anmeldedatum: 01.10.2007
Beiträge: 39

Verfasst am: 10.04.2008, 12:03

Hallo Schatzi,

vielen Dank für deine Antwort.
Der Code funzt leider nur, wenn eine Zelle aktiviert wird und mit Enter verlassen wird. Kannst du das bitte noch ändern?
Wäre auch toll, wenn noch andere Blätter in den Code eingebaut werden können.
Was muss dann an welche Stelle, oder ist für jedes Blatt ein Code erforderlich?

Danke und Gruß
florian

_________________
WinXP Prof SP2
Excel 2003

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 10.04.2008, 12:14

Hallo!

Der Code tritt dann in Kraft, wenn im Blatt irgendeine manuelle Änderung vorgenommen wird.
Vielleicht ist für deine Zwecke ein Worksheet_Calculate-Ereignis sinnvoller, das kann ich nicht beurteilen.
Jedes Blatt, auf dem es wirken soll, bekommt diesen Code.

florian-112
Newbie
Newbie

Anmeldedatum: 01.10.2007
Beiträge: 39

Verfasst am: 10.04.2008, 13:00

Hallo Schatzi,
deinen Code habe ich mal in ein Worksheet_Activate-Ereignis kopiert.
Nun wird beim öffnen des Blattes das gewünschte Format angezeigt.
So hatte ich mir das auch vorgestellt.
Kleine Nebenwirkung der Sache: ist bereits eine bed. Formatierung vorhanden, ist für Sonntag der Fall, wirkt der Code nicht.

Naja, werde mal an einer anderen Lösung basteln.

Vielen Dank noch mal für deine Hilfe.
Bis bald
florian

_________________
WinXP Prof SP2
Excel 2003

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Gibt es ein Proofing Tool für Word ...	wolfsem	Microsoft Word Hilfe	0	01.12.2008, 17:15
	Benötige Hilfe bei einem Excel-Diagramm	justintime	Microsoft Excel Hilfe	1	28.11.2008, 18:05
	Verlinkungen bei WORD 2003	mellech	Microsoft Word Hilfe	0	28.11.2008, 14:15
	Excel 2007 Dateien mit Excel 2003 öffnen	zersa	Microsoft Excel Hilfe	1	27.11.2008, 21:25
	Excel 2003 / Daten von untereinander ...	herbert33	Microsoft Excel Hilfe	1	27.11.2008, 17:17

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de