Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Anzeige
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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige