Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswählen

Auswählen
10.02.2006 14:23:51
Fips
Hallo, bitte um Hilfe.
Habe eine Spalte (A1:A20) in der eine Formel steht,
die Datumsangaben aus einem anderen Bereich erzeugt.
=Datum($C$1;Monat(C5);Tag(C6))diese Spalte ist benutzerdefiniert
formatiert mit TT TTT.z.B. (01.Mo)
Wie kann ich nun nach allen "So" abfragen und in der Nebenzelle die Zellfarbe grün setzen.
Für eure Hilfe wäre ich sehr dankbar
Fips

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

Betreff
Datum
Anwender
Anzeige
AW: Auswählen
10.02.2006 14:31:20
Anne
In B1 bedingte Formatierung: Die Formel ist: =Wochentag($a1;2)= 7
und Format festlegen, Format mit dem Pinsel auf die anderen Zellen übertragen.
mfg Anne
AW: Auswählen
10.02.2006 14:33:57
fips
Danke,
aber ich möchte es über ein Makro (VBA) auslesen und laufen lassen
Gruß
Fips
AW: Auswählen
10.02.2006 14:34:15
fips
Danke,
aber ich möchte es über ein Makro (VBA) auslesen und laufen lassen
Gruß
Fips
AW: Auswählen
10.02.2006 15:00:40
Jan31
Hi,
Probier mal diesen Code:

Sub färben()
Set ws = Worksheets("Tabelle2")
anz = ws.Cells(65356, 1).End(xlUp).Row
For z = 1 To anz
If Weekday(ws.Cells(z, 1)) = 1 Then
ws.Cells(z, 2).Interior.ColorIndex = 4
End If
Next
End Sub

Jan
Anzeige
AW: Auswählen
10.02.2006 15:10:23
fips
Hallo, vielen Dank das Makro funktioniert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige