Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalender von bis markieren

Kalender von bis markieren
10.10.2003 14:39:02
Schwarz
Hallo,
ich habe in den Spalten C bis I die Wochentage(Mo,Di,...)
und in den Zeilen 7 bis 11 die Wochen angeordnet (hier für Januar)
In der Zeile AK7 steht das Startdatum, in AK8 das Enddatum.
Nun möchte ich vom Startdatum bis zum Enddatum die Zellen rot markiert haben.
VBA-Lösung ist ok.

Gruß Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalender von bis markieren
10.10.2003 15:16:31
WernerB.
Hallo Martin,

was hältst Du hiervon:

Option Explicit

Sub Martin()
Dim c As Range
Dim sD As Byte, eD As Byte, Diff As Byte, z As Byte
Application.ScreenUpdating = False
sD = Day(Range("AK7").Value)
eD = Day(Range("AK8").Value)
If sD > eD Then
MsgBox "Enddatum kleiner als Startdatum !" & vbCr & vbCr _
& "Makro-Abbruch !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
Diff = 2 + eD - sD
Range("C7:I11").Interior.ColorIndex = xlNone
For Each c In Range("C7:I11")
If c.Value = sD Then
z = 1
End If
If z > 0 And z < Diff Then
z = z + 1
c.Interior.ColorIndex = 3
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige

309 Forumthreads zu ähnlichen Themen

Bereich markieren bis zur ersten Zahl
michael

Hallo zusammen,
ich möchte in einem bestimmten Bereich alle Leerzellen bis zum Ersten Eintrgag pro Zeile markieren.
Habe schon verschiedene probiert, z.B. gehe zu Leerzellen, da sich aber zwischen den Einträgen Zellen ohne Werte befinden und ich die Leerzellen nur die Leerzellen vor dem...
21.09.2008 12:38:00
Thread-ID: 1011285
5 Beiträge
Anzeige
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Anzeige
Ab von Tabelle8 bis Ende mache
Tabelle8

Hallo,
Ich würde gerne einen Kopiervorgang automatisieren.
Und zwar habe ich viele Tabellenblätter in einer Mappe, und es soll ab dem 8 Tabellenblatt bis zum letzen jeweils die gleiche Sub aufgerufen werden.
Ich kriege die Schleife mit dem hochzählen der Blätter nicht hin.
Wer k...
30.01.2010 13:56:48
Thread-ID: 1134370
10 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Zeilen bis ende löschen
gerhard

Hallo zusammen
bitte um Makro hilfe...
wie kann ich in Spalte A die Zelle in dem der Wert 1650 steht alle nachfolgenden Zeilen bis Ende löschen?
Vielen Dank für Eure Hilfe
Gruß G.
15.11.2010 13:18:48
Thread-ID: 1186841
3 Beiträge
A1 bis letzte verwendete Zelle markieren
Marten

Hallo,
bin mal wieder auf der Suche im Internet nicht fündig geworden. Ich würde gerne in meiner Excel-Datei einen bestimmten (variablen) Bereich markieren. Anfangspunkt hierfür ist immer "A1". Nun soll Excel mir den Bereich von A1 bis zur letzten verwendeten Zelle in Zeile 1 markieren. Das...
03.08.2011 10:38:39
Thread-ID: 1224691
4 Beiträge
Spalte nach unten ausfüllen, Bezug auf Zellen
Janet

Hallo Zusammen
Seid einigen Tagen versuche ich das nun hinzubekommen.
Ich finde einfach keine Lösung trotz lesen div.Berichte ect.
Nun hoffe ich auf Eure Hilfe.
Es betrifft folgendes:
Tabelle Übersicht mit Spalten (ich nenne sie Tab1)
A B C D E
Tabelle Verzeichnis mi...
08.08.2012 11:40:12
Thread-ID: 1274205
4 Beiträge

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
4
2
5
1
3
9
2
2
3
3
2
21
10
2
2
4
1
9
2
4
2
8
5
3
5