Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle auslesen, Spaltenbereich färben

Zelle auslesen, Spaltenbereich färben
28.01.2022 15:30:05
Sebastian
Hallo,
Und zwar bin ich recht neu in der Arbeit mit VBA.
Und zwar habe ich in dem Zellen H12 - H42 das Datum stehen. 01.MM.JJ - 31.MM.JJ.
Jetzt möchte ich quasi das mein Makro prüft bei welchem Datum es sich um einen Sonntag handelt und dann in dieser Zeile den Spaltenbereich von H - R einfärbt.
Ich habe schon einen Code, aber dieser färbt mir leider immer nur die einzelne Zelle in der der Sonntag erkannt wird ein.
Ich hoffe auf Hilfe.
Vielen Dank.

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle auslesen, Spaltenbereich färben
28.01.2022 15:31:42
SF
Hola,
wenn du schon einen Code hast, warum zeigst du ihn nicht?
Und warum per Makro? Dafür gibt es die bedingte Formatierung.
Gruß,
steve1da
AW: Zelle auslesen, Spaltenbereich färben
28.01.2022 15:54:46
GerdL
Moin Sebastian!
Pünktchenmuster:
Cells(X, 8).Resize(1, 11).Interior.Color= ..........
Range("H" & X & ":R" & X).Interior. ..... = .......
Gruß Gerd
AW: Zelle auslesen, Spaltenbereich färben
28.01.2022 19:26:51
Yal
Hallo Sebastian,
bedingte Formatierung, aber per Makro festgelegt:

Sub Makro4()
Range("H12:H42").FormatConditions.Add Type:=xlExpression, Formula1:="=WOCHENTAG(H12;2)=7"
With ActiveSheet.FormatConditions(1)
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
End Sub
oder einzelgesetzt:

Sub makro5()
Dim Z
'Reset
With Range("H12:H42")
With .Interior
.Pattern = xlNone
.PatternColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'Einzelzelle
For Each Z In .Cells
If Weekday(Z.Value) = vbSunday Then
With Z.Interior
.PatternColorIndex = xlAutomatic
.Pattern = xlSolid
.Color = 255
End With
End If
Next
End With
End Sub
VG
Yal
Anzeige
AW: Zelle auslesen, Spaltenbereich färben
28.01.2022 19:40:38
GerdL
Moin Yal,
für Westeuropa schlage ich vor:
If Weekday(Z.Value, vbMonday) = vbSunday Then ..
Gruß Gerd
AW: Zelle auslesen, Spaltenbereich färben
30.01.2022 14:13:28
Yal
Hallo Gerd,
deine Vorschlag ist abgeleitet von der üblichen Verwendung der Excel-Formel "WOCHENTAG", wo der zweiten Parameter auf "2" gesetzt werden muss um 1 bis 7 als Montag bis Sonntag. Kann ich nachvollziehen und funktioniert leider unter VBA nicht.
Folgender Test:

Sub Wochentag_Test()
Dim i
For i = Date To Date + 7
Debug.Print Format(i, "DDD."), Weekday(i), Weekday(i, vbMonday), vbSunday
Next
End Sub
ergibt folgende Ergebnis

So.            1             7             1
Mo.            2             1             1
Di.            3             2             1
Mi.            4             3             1
Do.            5             4             1
Fr.            6             5             1
Sa.            7             6             1
So.            1             7             1
Also unter VBA eindeutig auf die Kurzform gehen, oder auf 

If Weekday(Z.Value, vbMonday) = 7 Then ..
VG
Yal
Anzeige

307 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
über Farbe der Zelle Zellen dynamisch sperren
Sucher

Hallo liebes Forum,
kann mir hier im Forum eine/einer weiterhelfen.
Das Makro soll wenn Colerindex = 2 Zellen dynamisch entsperren alle anderen Zell- Farben sollen gesperrt werden!
Ist Situation:
Ich habe mit Excel einen Rechner gebastelt der von anderen Anwendern benutzt werde...
11.12.2008 09:18:42
Thread-ID: 1031921
13 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Diagramm Linienfarbe aus Zellfarbe "auslesen"
StefanK

Hallo Herber-Excel-Freunde,
ich habe ein Diagramm (Punkt XY - Untertyp: Punkte mit Linien ohne Datenpunkte) rstellt.
Dabei formatiert Excel erst einmal die Farben automatisch.
Bislang markiere ich dann die einzelnen Linien im Diagramm und formatiere die Farben um.
Jetzt meine A...
16.02.2009 19:50:00
Thread-ID: 1051268
11 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
10
12
9
7
9
10
5
3
5
3
2
6
1
3
3
17
2
3
2
3
7
3
2
1