Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excelformatierung

Excelformatierung
10.12.2002 06:30:40
nussbaumer
Sehr geehrte Damen und Herren

Ich leite eine kleine Konstruktionsabteilungabteilung.
Wir planen auch unsere Ferien, oder Abwesenheiten mittels EXCEL
Jeder Mitarbeiter trägt selber die gewünschten Feriendaten ein.
Durch die Formeln in den darunterliegenden Zeilen/ wird beim ausgewählten Kalenderdatum automatisch ein "X" gesetzt.
Die Zellen der Daten in der ersten Spalte werden automatisch rot gefärbt, wenn dessen Datum in der Vergangenheit liegt.

Frage:
Wie muss die Formatierung einer Zelle lauten um die ganze Zeile in der Zelle liegt zu löschen, sobald dessen Datum in der ersten Spalte mehr als 14 Tage in der Vergangenheit liegt?

Für einen Tip danke ich Ihnen bestens, wünsche Ihnen schöne Festtage und verbleibe

Mit freundlichen Grüssen

Josef Nussbaumer
Alte Landstrasse 93
CH-8804 Au/ZH

Privatmailadresse: j.nussbaumer@bluewin.ch

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Excelformatierung
10.12.2002 07:06:37
Hajo_Zi
Hallo Josef

durch formatierungen kannst Du keine Zeilen Löschen, ein Ansatz wäre ein Makro.


Option Explicit

	

Sub Josef()

	Dim InI As Long

	For InI = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

	If IsDate(Cells(InI, 1).Text) And Cells(InI, 1) < Date - 14 Then Rows(InI).Delete

	Next InI

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend <pre> Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige