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

Wochentag in VBA abfragen

Forumthread: Wochentag in VBA abfragen

Wochentag in VBA abfragen
31.12.2002 00:13:53
Franz
Hallo Fachleute,

folgende VBA-Zeile ist falsch, aber sie zeigt vielleicht was ich rauskriegen möchte:

IF Wochentag von Cells(t,m) gleich Sonntag THEN

Kann mir bitte jemand sagen, wie das richtig heißen muss?

Danke im Voraus

Gruß Franz

Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 00:18:37
Boris
Hallo Franz,

in A5 steht dein Datum:

7 ist gleich Sonntag, wenn du den Parameter bei Weekday auf 2 stellst. Ansonsten ist Sonntag 1.

Gruß Boris

Re: Wochentag in VBA abfragen
31.12.2002 00:19:45
r.sch.
Hi Franz
setze für die einzelnen Tage ... =1 .. usw bis 7
Gruß
Reinhard
Re: Wochentag in VBA abfragen
31.12.2002 00:31:54
Franz
Hallo Boris,

vielen Dank für Deine Antwort. Ich habe nicht ein Datumsfeld, sondern einen ganzen Kalender und möchte per VBA den Samstag und den Sonntag einfärben. Kannst Du mir da bitte weiterhelfen?

Gruß Franz

Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 00:46:08
Thomas Scher
Hallo Franz,
warum nimmst du denn nicht eine Bedingte Formatierung ??

Wenn Zellwert gleich "Samstag" dann Rot oder so ??

Gruß

Thomas

Re: Wochentag in VBA abfragen
31.12.2002 00:52:36
Boris
Hallo Franz,

also das war aus deiner Frage nun wirklich nicht ersichtlich.
Prinzipiell geht das genauso mit dem Makro:

Sub test()
If Weekday(Cells(x,y), 2) > 5 Then
Cells(x,y).Interior.Colorindex = 3
End If
End Sub

und das ganze in eine For-Next-Schleife einbinden.
Aber der Hinweis ist ja bereits gekommen:
Nutze einfach die bedingte Formatierung.

Gruß Boris

Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 01:01:17
Franz
Hallo Thomas,

aus zwei Gründen: erstens wird der Kalender ohnehin durch ein Makro erzeugt mit noch ein paar anderen Dingen dazu. Und zweitens habe ich dann die drei Möglichkeiten der bedingten Formatierung frei für anderes.

Gruß Franz

Re: Wochentag in VBA abfragen
31.12.2002 01:09:22
Franz
Hallo Boris,

tut mir leid, wenn ich nicht klar geschrieben habe. Aber ich habe trotzdem noch ein Problem: ich bekomme jetzt in der Zeile
If Weekday(Cells(t, m), 2) > 5 Then
die Fehlermeldung: Typen unverträglich.

Mit der bedingten Formatierung klappts doch auch !?!
Die Formatierung der Zelle ist
Was mache ich falsch???

Gruß Franz


Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 01:13:14
Franz
Hallo Boris,

Nachtrag, ist was abgeschnitten: die Formatierung ist:
Benutzerdefiniert : "T."

Franz

Re: Wochentag in VBA abfragen
31.12.2002 09:04:16
andre
hallo franz,
steht dort auch wirklich ein datum bzw. eine Zahl?
der fehler kommt bei mir (ex8) nur, wenn dort (noch) andere zeichen stehen.
gruss andre
Re: Wochentag in VBA abfragen
31.12.2002 09:15:29
Franz
Hallo Andre,

Danke für Deine Antwort. Es steht tatsächlich nur die Zahl und der Punkt drin, definiert als: Benutzerdefiniert "T.": 1. | 2. | 3. usw. Allerdings steht natürlich die Formel drin, die das Datum berechnet. Kann es daran liegen?

Gruß

Franz

Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 09:43:54
andre
hallo franz,
hatte auch =heute() drin, und damit gings. aber poste mal deine formel, sonst kann ich nichts weiter dazu sagen.
gruss andre
Re: Wochentag in VBA abfragen
31.12.2002 10:01:32
Franz
Hallo Andre,

Das Jahr steht in A1.
In der C2 Zelle des 1. Januar steht: =DATUM($A$1;1;1)
In C3 für den 2. Januar steht: =+C2+1 usw.

Gruß Franz

Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 10:38:36
Boris
Hallo Franz,

geh unter Format - bedingte Formatierung.
Markiere C2 bis C367 (oder wie weit auch immer), beginnend bei C2.

Formel ist:
=WOCHENTAG(C2;2)>5 und Format zuweisen. Fertig.

Gruß Boris

Re: Wochentag in VBA abfragen
31.12.2002 10:40:52
andre
hallo franz,
läuft.

gruss andre
Re: Wochentag in VBA abfragen
31.12.2002 10:55:59
Franz
Hallo Boris,

ja ist klar, das klappt ja auch. Aber ich habe ja versucht das mit VBA zu machen, damit die 3 Bedingungen unter Bedingte Formatierung für anderes frei bleiben. Und da habe ich eben bei Deinem gestrigen Vorschlag die Meldung Typen unverträglich bekommen. Trotzdem danke, ich versuch's weiter.

Gruß Franz

Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 10:58:32
Franz
Hallo Andre,

danke, ich versuche es nochmal. Kann jetzt grad leider nicht (hab ein paar Kinder zu versorgen :-)), melde mich später wieder.

Gruß Franz

Re: Wochentag in VBA abfragen
31.12.2002 11:25:47
Franz
Hallo Andre,

klappt nicht, bekomme nach wie vor die Meldung: Typen unverträglich und markiert ist dabei die Zeile: If Weekday(Cells(t - 1, m), 2) > 5 Then.
Hier mal mein kompletter Code, vielleicht findest Du ja den Fehler:

For t = 3 To 58 Step 5 ' Schleife für Monate
For m = 3 To 33 ' Schleife für Tage pro Monat
Cells(t, m).Font.ColorIndex = -4105 ' Feiertagszeilen Textfarbe automatisch
Cells(t - 1, m).Interior.ColorIndex = -4142 ' Datumszeilen Hintergrundfarbe automatisch
Cells(t, m).Interior.ColorIndex = -4142 ' Feiertagszeilen Hintergrundfarbe automatisch
Cells(t, m).Font.FontStyle = "Fett" ' Feiertagszeilen Schriftschnitt
Cells(t + 1, m).Interior.ColorIndex = -4142 ' Urlaubszeilen Hintergrundfarbe automatisch
If Weekday(Cells(t - 1, m), 2) > 5 Then
Cells(t - 1, m).Interior.ColorIndex = 3
End If
Next m ' Schleifenzähler (For m)
Next t ' Schleifenzähler (For t)

Gruß Franz

Anzeige
Re: Wochentag in VBA abfragen
31.12.2002 11:41:55
andre
hallo franz,
da brauch ich mal das blatt dazu. maile es mir mal bitte. der code alleine dürfte i.o. sein.
gruss andre

Forumthreads zu verwandten Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
Tage aus (Datum von/bis)
gseibold@phocus-marketing.de

Hallo,
nach Eingabe der Datumswerte von/bis, sollen die Tage in Spalte A1-An,
und daneben in Spalte B1-Bn der Wochentag ausgegeben werden.
also z.B:
01.12.2008 Montag
02.12.2008 Dienstag
u.sw
gibt es ggf. bereits ein Bsp./Funktion die das schon erledigt.
LG
01.12.2008 10:05:38
Thread-ID: 1029175
3 Beiträge
Anzeige
Datum bestimmen aus Arbeitstage
Patricio

Hallo Leute,
ich suche jetzt schon über einer Std. und kann nichts finden. Jetzt brauche ich eure Hilfe. Es geht um eine Datumserrechnung.
In Spalte A steht ein Datum (z.B. heute). In Spalte B Anzahl von Arbeitstagen. In Spalte C soll das Datum errechnet werden, das sich aus der Summe d...
31.03.2009 23:17:37
Thread-ID: 1065778
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
Anzeige
Einzelne Wochentage aus Zellen mit Datum zählen
Karli

Hallo,
ich habe, um die Anzahl der einzelnen Wochentage in einer Spalte mit Datumangaben zu ermitteln, die Daten in einer anderen Spalte in Text umgewandelt, und dann Montage, Dienstage usw. gezählt.
Gibt es dafür auch einen direkten Weg die Summe bzw. Anzahl der einzelnen Wochentage in...
14.12.2009 21:03:03
Thread-ID: 1123898
6 Beiträge
Wochentag aus Datum | Herbers Excel-Forum
pweksictul
Hi,
ich habe eine Zelle mit einem Datumswert (z.B. "01.01.2010"), die benutzerdefinert formatiert ist "TTT", in dem Fall wird also "Fr" angezeigt. Nun möchte ich über ein Makro alle Zellen mit "So" hellgrau hinterlegen. Wie letztere geht, weiß ich, aber mit ActiveCell.Value kann ich nur auf den...
13.01.2010 16:42:32
Thread-ID: 1129588
4 Beiträge
Wochentag aus Datum zählen
Bastian

Hallo,
ich habe einen Zeitraum von zwei Wochen. Also von 07.6.2010 bis 22.6.2010. In die Spalte A habe ich die Werbungen, die in der Spalte B eingetragene Datums angezeigt werden. Jede Werbung kann einmal, oft oder niemals angezeigt werden. Zur Veranschaulichung werde ich versuchen, meine F...
10.06.2010 19:38:20
Thread-ID: 1161311
5 Beiträge
Anzeige
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
Monatstage aus Datumsbereich errechnen
MathiasW.

Hallo Excel Freunde,
ich möchte aus Start- u. Enddatum, die Tage für jeden Monat im Datumsbereich errechnen.
Dazu habe ich in Zelle B2 das Startdatum, in Zelle B3 ist das Enddatum.
In den Zellen D2:D13 stehen die Monatsnamen Januar bis Dezember, daneben in E2:E13 sollen die Ergebnis...
19.01.2011 18:33:09
Thread-ID: 1196502
3 Beiträge
VBA Code / Freitags Werte aus Zelle auslesen
potetos00

Guten Tag,
ich bitte um Hilfe für folgendes Problem:
ich möchte aus den Arbeitsblatt "Berechnung" den Wert der Zelle "E5" JEDEN FREITAG auslesen. Dieser Wert soll dann in das Arbeitsblatt "Übersicht" in die Zelle "D2" eingetragen werden. In der Zelle E5 steht immer eine Zahl.
z.b: a...
20.08.2011 15:08:34
Thread-ID: 1226909
10 Beiträge
Datum richtig ausgeben in VBA
Stefan

Guten Morgen,
ich habe ein kleines Problem.
Der folgende Befehl .Cells(iCntRows, 28) = Left(.Cells(iCntRows, 8), 10) liefert das Datum zurück, allerdings nicht so, dass ich damit als Datum weiterarbeiten können. Excel denkt, es sei ein textformatiertes Feld.
Wie kann ich daraus ein...
19.10.2011 08:51:55
Thread-ID: 1234448
4 Beiträge
Datum aus "X.Tag einer Woche" ermitteln
Wolfgang


Guten Morgen !
Ein Kunde gibt uns seine Lieferabrufe im Format: Anliefertermin 03/02
Das bedeutet: Anlieferung gewünscht in Woche 03 am 02.Tag der Woche.
Mit so einer Terminangabe laufen meine Überwachungs- und Planungsdateien leider nicht.
Meine Frage:
Gibt es e...
30.12.2011 09:31:34
Thread-ID: 1243927
6 Beiträge
Anzeige

Infobox / Tutorial

Wochentag in VBA abfragen und automatisch einfärben

Schritt-für-Schritt-Anleitung

  1. Datum eingeben: Stelle sicher, dass in deiner Excel-Tabelle die Datumswerte korrekt eingegeben sind. Zum Beispiel kannst du in Zelle C2 =DATUM($A$1;1;1) verwenden, wobei A1 das Jahr enthält.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Modul erstellen: Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)" klickst und "Einfügen" > "Modul" wählst.

  4. Code eingeben: Kopiere den folgenden VBA-Code in das Modul:

    Sub WochentagFarbe()
   Dim t As Integer, m As Integer
   For t = 3 To 58 Step 5 ' Schleife für Monate
       For m = 3 To 33 ' Schleife für Tage pro Monat
           If Weekday(Cells(t - 1, m), 2) > 5 Then ' Wochentag ermitteln
               Cells(t - 1, m).Interior.ColorIndex = 3 ' Sonntag/Samstag einfärben
           End If
       Next m
   Next t
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus (ALT + F8), um die Zellen für Samstag und Sonntag automatisch einzufärben.

Häufige Fehler und Lösungen

  • Typen unverträglich: Wenn du eine Fehlermeldung erhältst, die besagt "Typen unverträglich", überprüfe, ob die Zelle, auf die du zugreifst, tatsächlich ein Datum oder eine Zahl enthält. Möglicherweise sind dort auch andere Zeichen vorhanden.

  • Falscher Wochentag: Achte darauf, dass du den richtigen Parameter für Weekday verwendest. Der Wert 2 gibt an, dass die Woche am Montag beginnt, was bedeutet, dass Sonntag den Wert 7 hat.

Alternative Methoden

  • Bedingte Formatierung: Du kannst auch die bedingte Formatierung in Excel verwenden, um Wochentage farblich hervorzuheben. Gehe zu Format > Bedingte Formatierung und verwende die Formel =WOCHENTAG(C2;2)>5, um Samstage und Sonntage zu formatieren.

  • Excel-Funktionen: Nutze Funktionen wie TEXT oder WOCHENTAG, um Wochentage als Text oder Zahl auszugeben. Zum Beispiel: 

    =TEXT(A1;"dddd") ' Gibt den Wochentag als Text zurück

Praktische Beispiele

  • Samstags- und Sonntagsfärbung:

    Wenn du in einer Kalenderansicht Samstage und Sonntage automatisch einfärben möchtest, kannst du den oben genannten VBA-Code verwenden. Dies ist besonders nützlich für die Planung von Projekten oder zur Übersicht von Arbeitszeiten.

  • Abfrage des Wochentags:

    Um den Wochentag eines bestimmten Datums zu ermitteln, kannst du folgenden Code verwenden:

    Sub WochentagAbfragen()
  Dim wTag As Integer
  wTag = Weekday(Cells(1, 1).Value, 2) ' Zelle A1 enthält das Datum
  MsgBox "Der Wochentag ist: " & wTag
End Sub

Tipps für Profis

  • Verwende Konstanten: Anstelle von festen Werten wie 3 oder 5, definiere Konstanten für die Wochentage, um deinen Code lesbarer zu machen.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinen VBA-Skripten, um unerwartete Fehler abzufangen und die Benutzerfreundlichkeit zu verbessern.

  • Optimierung der Schleifen: Überlege, ob du die Schleifen optimieren kannst, indem du nur relevante Zellen bearbeitest, um die Laufzeit des Makros zu verkürzen.

FAQ: Häufige Fragen

1. Was ist heute für ein Wochentag?
Du kannst den Wochentag für das heutige Datum mit der Funktion =TEXT(HEUTE();"TTTT") in Excel ermitteln.

2. Wie kann ich den Wochentag als Text ausgeben?
Verwende die Funktion TEXT in Kombination mit WOCHENTAG, um den Wochentag als Text auszugeben. Beispiel: =TEXT(A1;"dddd"), wobei A1 das Datum enthält.

3. Wie kann ich Wochentage in VBA abfragen?
Nutze die Weekday Funktion in VBA, um den Wochentag aus einem Datum zu ermitteln. Beispiel: Weekday(Cells(t, m), 2) gibt den Wochentag zurück, wobei Montag als 1 gezählt wird.

Beliebteste Forumthreads (12 Monate)

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