Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.07.2024 22:30:43
Eintrag nach rechts n-fach wiedergeben
26.07.2024 19:00:58
Mehrere Tabellen aus PDF importieren
26.07.2024 18:10:28
Überlauf
26.07.2024 17:12:34
Text in Zelle
Findest du keine passende Antwort auf deine Frage?
Stelle sie in unserem Live-Forum
Anzeige
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

313 Forumthreads zu ähnlichen Themen

Automatisch markieren, bis folgende Zelle leer
Hermann

Hallo,fuer folgendes Problem suche ich einen VBA - Code:Ich moechte gerne ab einer bestimmten Zeile Zellen solange markieren (z.B. ab A6), bis eine leere Zelle kommt. Mit den markierten Zellen moechte ich dann naemlich ein Diagramm erstellen. Es kann auch sein, dass ich mehrer Reihen markiern m...
20.06.2002 22:52:01
Thread-ID: 130328
3 Beiträge
Anzeige
Makro läuft nicht bis zum Ende
Felix

Hallo Excel-Freunde,kann mir jemand helfen????habe eine "open" Anweisung. Von einer Datei ("Schülerbeurteilungen") aus öffne ich die folgende Datei. Diese enthält die unten angegebene "open" Anweisung.Diese nun geöffnete Datei soll jetzt automatisch die Datei "Schülerbeurteilungen" schließen. (...
30.03.2003 10:17:30
Thread-ID: 237994
5 Beiträge
Formeln bis zum Ende kopieren
Thorsten
Hallo Leute,
ich habe ein glaube ich ganz alltägliches Problem, welches ich über die Suche nicht finden konnte:
Ich habe immer recht lange Tabellen und muß Formeln von Zeile 1 bis ~20.000 kopieren - aber nur bis genau zum Tabellenende und nicht darüber hinaus.

Gibt es eine einfach Mögl...
18.11.2003 10:28:27
Thread-ID: 339635
4 Beiträge
Anzeige
Datum von/bis in nachfolgende Spalten eintragen
Rico

Hallo Excel-Forum
Ich bitte Euch um hilfe, da ich mit meinem Verständnis nicht weiterkomme.
Ich habe in Zelle A3 das Startdatum, in B3 das Enddatum und in den folgenden Spalten G2 bis am Schluss den Tag(Jahreskalender). Ich möchte nun, dass automatisch alle Tage(Anfangs- bis Enddatum)in...
16.05.2004 18:26:50
Thread-ID: 429327
5 Beiträge
Alle Zellen bis auf erste Zeile markieren mit VBA
der alex
Hallo!
Wie kann ich am einfachsten alle Zellen eines Tabellenblattes ausschließlich der ersten Zeile mit VBA markieren/kopieren?
danke!

der alex
08.06.2004 11:36:41
Thread-ID: 438724
3 Beiträge
Tage bis zum Ende des Jahres
Kevin

Hallo,
ich möchte wissen, dass: Jemand wird am 10.10.1960 geboren. Am 10.10.2000 wird er 40 Jahre alt. Die erste Formel soll zeigen, wie viele Tage noch vom aktuellen Datum fehlen, bis er 40 Jahre alt wird. Ab dann soll eine andere Formel die Tage bis zum Ende des Jahres, indem er 40 Jahre a...
15.08.2004 22:50:07
Thread-ID: 470154
4 Beiträge
Druckbereich nur bis Ende PivotTabelle
Jan

Hallo!
Ich habe hier eine Excel-Tabelle, welche eine PivotTabelle enthält. Anhand der von der PivotTabelle ausgeworfenen Daten errechene ich in Zusätzlichen Spalten (ausserhalb der PivotTabelle) weitere Werte.
Da die PivotTabelle immer verschieden viele Zeilen auswirft, habe ich bereits...
16.09.2004 15:49:27
Thread-ID: 486183
2 Beiträge
funbktion auf spalte anwenden von - ?bis?
-

hi.
hab in spalte a was dynamisch lang stehen. die zeilenanzahl hab ich schon.
jetzt will ich eine formel anwenden von A2 bis genau zu diesem ende.
weiss aber nich wie ich das schreiben kann.
z.b. =A2:A"G4" so etwa, danke für jede hilfe.
coalminestepper
26.09.2004 18:27:26
Thread-ID: 490988
5 Beiträge
Einfügen einer Formel bis zum Spaltenende
Paul

Hallo Excelfreunde,
ich hab mal wieder ein Problem mit den letzten Spalten. Folgendes:
Ich habe ein Macro geschreiben welches eine Formel(Art ist völlig egal) bis zur letzten Spalte einfügen soll.
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(1,""-"",RC[2]:R[9998]C[2],""-"",RC[3...
03.11.2004 03:11:48
Thread-ID: 510929
3 Beiträge
Anzeige
Daten einfügen bis zum Ende (VBA)
Martin

Hallo
Ich habe eine Tabelle mit einer Datenmenge, die jeden Monat variert. Mit dem Recorder habe ich ein Makro geschrieben. Die Inhalte von Spalte B werden mit einer Formal in Spalte A kopiert. Das Problem: Die Anzahl der gefüllten Zellen in Spalte B ist jeden Monat anders (mal B1-B150, mal...
15.12.2004 11:13:10
Thread-ID: 533274
5 Beiträge
Formel bis zum Tabellenende automatisch kopieren
BerndSchweiger

Hallo,
folgendes:
In Spalten J3 und K3 möchte ich zu einer bestehenden Exceldatei zusätzlich automatisch die Abweichungen ausweisen.
Mein Problem besteht jetzt darin, dass die Formeln der beiden Spalten immer bis zum Tabellenende automatisch kopiert werden sollen.
(die Tabelle...
15.04.2005 08:54:16
Thread-ID: 599241
3 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
2
2
4
3
3
4
2
3
1
4
2
5
4
2
4
14
4
2
6
10