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

Feiertage ausrechnen und Datumsangaben markieren.

Forumthread: Feiertage ausrechnen und Datumsangaben markieren.

Feiertage ausrechnen und Datumsangaben markieren.
03.07.2006 10:26:34
Picasso
Hallo!
Ich benötige Hilfe, für ein Makro zur folgenden Tabelle:

Die Datei https://www.herber.de/bbs/user/34814.xls wurde aus Datenschutzgründen gelöscht

Die Angabe in Spalte B soll sich wie folgt darstellen:
Anstelle von: 01.07.2006 soll stehen:
Sa 01.07.2006.
Sonntage sollen automatisch rot eingefärbt werden. Dasselbe gilt für nationale Feiertage gemäß Sheet "Feiertagsvorlage". Regionale Feiertage sollen grün eingefärbt werden. Die Tabelle Feiertagsvorlage soll für weitere Änderungen offen sein.
Kriegt das jemand hin?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feiertage ausrechnen und Datumsangaben markieren.
03.07.2006 10:50:57
u_
Hallo,
zu1: Nur das Datum reinschreiben und benutzerdefiniertes ZellFormat TTT TT.MM.JJJJ
zu2: Geht mit bedingter Formatierung
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Feiertage ausrechnen und Datumsangaben markieren.
03.07.2006 11:14:35
Galenzo
Voraussetzung ist erstmal, daß du deine Texte in der Spalte B in Zahlen/Datum umwandelst.
Dazu bietet sich z.B. diese Vorgehensweise an:
- Spalte B markieren
- Daten/Text in Spalten/Feste Breite/Weiter - im Schritt 3: 1.Spalte als Zahl, 2. Spalte NICHT im importieren
Dann Spalte B Zahlenformat TTT* TT.MM.JJJJ zuweisen
Die Einfärbung funktioniert mittels bedingter Formatierung.
Voraussetzung: Namen definieren:
1) Name: Feiertage_ National:
=INDIREKT("Feiertagsvorlage!$A$3:$A$"&ANZAHL2(Feiertagsvorlage!$A:$A))
2) Name: Feiertage_ Regional:
=INDIREKT("Feiertagsvorlage!$b$3:$b$"&ANZAHL2(Feiertagsvorlage!$B:$B))
Nun kannst du deiner Spalte B die Bedingungen zuweisen:
Spalte B markieren - Format - Bedingte Formatierung
1)=WOCHENTAG(B1;2)=7
2)=NICHT(ISTFEHLER(VERGLEICH(B1;Feiertage_National;0)))
3)=NICHT(ISTFEHLER(VERGLEICH(B1;Feiertage_Regional;0)))
Dabei jeweils die Schriftfarbe zuweisen.
1) rot 2) rot 3) grün
Die bedingungen werden nacheinander abgearbeitet. D.h. ein regionaler Feiertag, der entweder Sonntag oder nationeler Feiertag ist wird rot markiert. Wenn du da was anderes willst, solltest du die Reihenfolge der Bedingungen anpassen.
Viel Erfolg!
/Galenzo
Anzeige
AW: Feiertage ausrechnen und Datumsangaben markieren.
03.07.2006 11:37:15
Picasso
Hallo!
Vielen Dank für die Tips!
Wie es mit Excel geht, dass wusste ich. Sorry, habe mich falsch ausgedrückt.
Diese Daten werden per VBA-Code importiert. Daher wäre es für mich vorteilhaft, wenn ich direkt den Code um dieses Formatangaben ergänze.
Kann mir jemand dieses Excel-Befehle als VBA-Code nennen?
Anzeige
AW: Feiertage ausrechnen und Datumsangaben markieren.
05.07.2006 13:04:58
Werner
Hallo Picasso
Nach dem Import der Daten folgenden Code starten.

Sub TESTEN()
Columns("B:B").NumberFormat = "ddd* dd/mm/yyyy"
For i = 1 To Range("B65536").End(xlUp).Row
If Len(Cells(i, 2)) > 10 Then
Cells(i, 18).FormulaR1C1 = "=LEFT(RC[-16],FIND("" "",RC[-16])-1)*1"
Cells(i, 2) = Cells(i, 18)
Cells(i, 18) = ""
End If
Next i
Range(Cells(3, 2), Cells(Range("B65536").End(xlUp).Row, 2)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WOCHENTAG(B3;2)>5"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(NATIONAL;B3)>0;ZÄHLENWENN(REGIONAL;B3)>0)"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(2).Interior.ColorIndex = 4
[A1].Select
End Sub

Teste es im Anhang
https://www.herber.de/bbs/user/34858.xls
Gruss Werner
Anzeige
;

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
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
Textbox: nur 2Stellen nach Komma
WolfgangN

Hallo,
Ich habe eine Textbox in einem Userform, in dieser Textbox möchte ich schon während der Eingabe verhindern, dass der User nach dem Komma mehr als 2 Ziffern eingeben kann. Also ab der 3.Ziffer soll nichts mehr passieren. Vor dem Komma ist die Anzahl egal. Im Archiv habe ich schon eini...
08.02.2009 12:49:00
Thread-ID: 1048271
5 Beiträge
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
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
Aus Datum Monat ausgeben
B4u

Hallo,
ich gebe ein Datum ein, aus dessen der Monat vollständig angeben werden soll.
Eingabe = 01.06.2009; Ausgabe = Juni
Hierzu habe ich folgendes Sub. Allerdings wird immer der Januar ausgegeben.
Private Sub txb_aDate_AfterUpdate() Dim strMonat As String Dim anfdate As Var...
01.06.2009 13:33:26
Thread-ID: 1078450
9 Beiträge
Zahl eingeben Jahr Monat
walli

Hallo zusammen,
habe mal ein wenig rumgestöbert aber leider kein ERFOLG.
In der Zelle C20 steht eine Zahl von 1-12 für den Monat.
Ich möchte in C21 das Anfangsdatum und in C22 das Enddatum haben.
mfg walli
02.07.2009 15:35:36
Thread-ID: 1086003
3 Beiträge
Aus Systemdatum Monatszahl ermitteln
Wolfgang

Hallo,
wäre denkbar, aus dem Systemdatum den Monat als Monatszahl darzustellen, so dass bei WorkbookOpen in Zelle A1 des Tabellenblattes "Start" automatsch die aktuelle Monatszahl minus 1 Monat, also nun 08 erscheint? Kann hierzu unter Recherche bzw. auf der Excel-CD nichts entdecken, so da...
19.09.2009 18:41:39
Thread-ID: 1104115
12 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

Beliebteste Forumthreads (12 Monate)

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