Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im 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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

löschen, format in abhängigkeit datum

Forumthread: löschen, format in abhängigkeit datum

löschen, format in abhängigkeit datum
11.04.2008 16:26:00
wilson

hallo zusammen
habe folgende tabelle hochgeladen: https://www.herber.de/bbs/user/51458.xls
ich hätte nun gerne folgenden vba code beim aufstarten:
1. alle spalten (ab spalte h) die älter als 7 tage sind (ausgehend von C2 , sprich dem aktuellen datum in heute spalte P) sollen beim öffnen automatisch gelöscht werden.
2. hätte ich gerne das aktuelle datum (heute p5-p14) z.b. hellgelb hinterlegt in den zellen.
wäre sehr froh wen mir jemand weiterhelfen könnte.
gruess

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: löschen, format in abhängigkeit datum
11.04.2008 19:08:03
Uwe (:o)
Hi,
schau mal ob diese Ergänzung Deinen Vorstellungen entspricht:


Public Sub Termin_aktuell()
ActiveSheet.Unprotect
Dim I As Integer
Dim Spalten As Integer
Spalten = ActiveSheet.UsedRange.Columns.Count
For I = Spalten To 8 Step -1
If Cells(4, I).Value < (Cells(2, 3) - 7) Then
Cells(4, I).EntireColumn.Delete
ElseIf Cells(4, I).Value = Cells(2, 3).Value Then
Range(Cells(5, I), Cells(14, I)).Interior.ColorIndex = 36
End If
Next I
Rows("5:100").Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
ActiveSheet.Protect
ActiveWindow.ScrollColumn = 8
Range("H5").Select
Range("A5").Select
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: löschen, format in abhängigkeit datum
11.04.2008 19:25:40
Tino
Hallo,
von mir auch noch eine Version.


Sub LöscheAlte()
Dim DatumAlt As Date
Dim a As Integer
Application.ScreenUpdating = False
Range(Cells(5, 8), Cells(14, Columns.Count)).Interior.ColorIndex = xlNone
DatumAlt = Range("C2") - 7
For a = Cells(4, Columns.Count).End(xlToLeft).Column To 8 Step -1
If Cells(4, a) = Date Then
Range(Cells(5, a), Cells(14, a)).Interior.ColorIndex = 6
End If
If Cells(4, a) < DatumAlt Then
Columns(a).Delete Shift:=xlToLeft
End If
Next a
Application.ScreenUpdating = True
End Sub


Gruß
Tino

Anzeige
AW: löschen, format in abhängigkeit datum
11.04.2008 20:43:54
wilson
hallo zusammen
besten dank für eure lösungen. entspricht genau dem was ich gerne haben wollte.
danke.
gruess

AW: alternative Lösung
12.04.2008 01:27:09
Daniel
Hi
das Färben der Zellen mit dem aktuellen Datum kannst du effektiver mit der bedingten Formatierung lösen:
- alle Zellen markieren
- bei Bed.Formatierung unter Formel folgendes eintragen: =und(Zeile()>4;$a1<>"";A$4=$C$2)
auch das Löschen geht recht einfach:
- in die Zellen oberhalb des Datums (H1-AD1) folgende Formel eintragen: =WENN(H4<$C$2-7;WAHR;"")
-zum Löschen folgende Makrozeile verwenden:


Rows(1).Specialcells(xlcelltypeformulas, 4).entirecolumn.delete


Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Datumsberechnung mit Fiscal Monaten
andi

Hallo, würde mich freuen, wenn mir jemand bei meinem Problem helfen kann: ich habe ein Anfangs- (20.09.2008) und ein Enddatum (12.12.2008) und möchte die Differenz berechnen. Dazu muss ich jeden Monat einzeln dargestellt haben - der angebrochene September und der angebrochene Dezember ergeben d...
25.09.2008 10:48:56
Thread-ID: 1012259
2 Beiträge
Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
Datum/werktage addieren
Rebecca

Hallo,
in einer Zelle steht ein Datum. In der Spalte daneben soll ein Datum stehen, das zwei Werktage weiter ist.
Wie ist die Formel?
Gruss
Rebecca
11.12.2008 15:55:00
Thread-ID: 1032089
6 Beiträge
Datum in Monaten (mit 0,5) - ohne VBA
Wolfgang

Hallo,
ich bin auf der Suche nach einer Formel (nicht VBA), welche die Differenz zwischen Datum in Spalte F und Spalte G (z.B. 12.01.09 - 28.02.09) ermittelt und mir als Monat mit einer Stelle nach dem Komma z.B. 1,5 auswirft. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
...
20.01.2009 14:30:25
Thread-ID: 1041840
5 Beiträge
Datum aus String "herauslösen"
gega

Hallo,
wie bekommt man einfach aus diesem Text
Bsp: Verkaufsdatum: Samstag, 24. Jan. 2009 21:50:06 MEZ
das Datum in der Form TT.MM.JJJJ aus der Sp. C5 nach Sp. A5 ?
Es sind noch Leerzeichen im Datum! Die Uhrzeit hat immer gleiches Format.
Danke
Gruß Gerhard
28.01.2009 08:58:40
Thread-ID: 1044450
7 Beiträge
Zu Datum Wochen hinzuaddieren
Roland

Hi,
ich habe eine Combobox auf einem Formular, die beim start mit dem heutigen Datum gefüllt wird.
Ich würde die Combobox gerne mit Einträgen füllen, wie Wochenweise gehen.
Also wenn man vom heutigen Datum ausgeht, sollte in der Combobox drin stehn:
28.01.2009
04.02.2009
...
28.01.2009 11:47:28
Thread-ID: 1044511
4 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
Anzeige
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
Datum + 2jahre
Stefan

HEy,
möchte mit diesem Code das Datum was in TextBox1 eingegeben wird. zB. 12.12.2009 um 2Jahre weitergezählen. Aber irgendwie funktioniert es nicht. Hab ich etwas falsch gemacht?
Dim datum As Date
datum = TextBox1.Value
datum = DateAdd("yyyy", 2, datum)
Danke für Tipps...<...
03.09.2009 00:54:38
Thread-ID: 1100212
2 Beiträge
Anzeige
Mittelwert nach Monaten berechnen
edie

Hallo zusammen,
wiederholt stehen in der Spalte A die Monate Januar bis Juli im Format (MMM) nach unten
in der Tabelle variabel. In der Spalte B und C die jeweiligen Werte, siehe Beispieldatei.
https://www.herber.de/bbs/user/67091.xls
Nun hätte ich gerne, wenn’s geht, die Monat...
08.01.2010 19:12:17
Thread-ID: 1128373
7 Beiträge
Datum + X Monate
Bastian

Hallo,
ich habe ein kleines Problem und weiss leider nicht die Funktion. Zu einem bestehenden Datum möchte ich gerne x Monate dazurechnen. Wie geht das mit Excel? Bsp.: 15.02.2002 + 1 Monat = 15.03.2002
Habe schon einiges ausprobiert, aber keine Lösung gefunden.Ich hoffe ihr könnt mir he...
24.04.2002 18:14:54
Thread-ID: 116054
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige