[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: 37

Verfasst am: 10.04.2008, 12: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: 5564

Verfasst am: 10.04.2008, 12: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
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

florian-112
Newbie
Newbie

Anmeldedatum: 01.10.2007
Beiträge: 37

Verfasst am: 10.04.2008, 13: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: 5564

Verfasst am: 10.04.2008, 13: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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

florian-112
Newbie
Newbie

Anmeldedatum: 01.10.2007
Beiträge: 37

Verfasst am: 10.04.2008, 14: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
	[Excel 2003] Formel: Leere Zelle als ...	Sniper	Microsoft Excel Hilfe	2	06.09.2008, 13:23
	Verstecktes Game in Excel???	E-MaX-I	Microsoft Excel Hilfe	2	05.09.2008, 13:09
	Excel Jeanie einfügen	wilfried07	Microsoft Excel Hilfe	2	04.09.2008, 16:13
	Suchfunktion in Excel	Seppo	Microsoft Excel Hilfe	7	04.09.2008, 14:07
	Excel Formular Problem	Mercuryswift	Microsoft Excel Hilfe	0	04.09.2008, 10:57

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