Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten von einer Woche berechnen

Daten von einer Woche berechnen
19.08.2004 10:29:28
einer
Hallo jetzt hatte mich eine Kolleging gefragt ob ich ihr ein Macro machen könnte der nur die Daten von heute bis in einer Woche (z.B. heute : 19.08-26.08) anzeigt und die restlichen Zeilen löscht. Ich habe schon mal die Zeilen nach Datum aufsteigend sortiert und bin am überlegen wie ich das mit einer Woche hinkriege. Die Spalte mit Datumsangaben ist D (d2-Dx). ES gibt Daten die weiter in Zukunft reichen als eine Woche und andere die in der Vergangenheit liegen. Hat jemand eine Idee?
Gruss
Ryu

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von einer Woche berechnen
19.08.2004 11:18:31
einer
Hi,
versuchs mal hiermit:

Sub test()
For i = [D65536].End(xlUp).Row To 2 Step -1
If Cells(i, 4) - Date > 7 Or _
Date - Cells(i, 4) > 0 Then
Rows(i).Delete
End If
Next
End Sub

Marc (aus Köln)
AW: Daten von einer Woche berechnen
einer
Hallo Marc,
mische mich nicht gerne ein aber warum löschst du die Daten (die ja auch in der Zukunft liegen können!!) und blendest nicht einfach die entsprechenden Zeilen aus?
Gruß
Peter
AW: Daten von einer Woche berechnen
19.08.2004 11:36:05
einer
Hi Peter,
hier war Dein Einmischen aber auch angesagt. Habe nicht weit genug gedacht!
Danke!
Marc (aus Köln)
AW: Daten von einer Woche berechnen
einer
Hallo Ryu,
mit folgendem Code blendest du die Daten aus:

Sub Datumsbereich()
Dim lgzeile As Long
For lgzeile = 2 To Range("D65536").End(xlUp).Row
If Cells(lgzeile, 4) < Date Or Cells(lgzeile, 4) > Date + 6 Then
Rows(lgzeile).Hidden = True
End If
Next
End Sub

Und damit wieder ein:

Sub AlleTermine()
Rows.Hidden = False
End Sub

Gruß
Peter
Anzeige
AW: Daten von einer Woche berechnen
19.08.2004 13:02:00
einer
Hallo Peter,
was hälst Du hiervon?

Sub Datumsbereich()
Dim lgzeile As Long
For lgzeile = 2 To Range("D65536").End(xlUp).Row
Rows(lgzeile).Hidden = Cells(lgzeile, 4) < Date Or Cells(lgzeile, 4) > Date + 6
Next
End Sub

Marc (aus Köln)
AW: Daten von einer Woche berechnen
19.08.2004 13:32:53
einer
Hallo ihr beiden danek für eure Tips. Es klappt prima. Könnt ihr mir den Code bitte erklären?
[code]
Dim lgzeile As Long
[/code]
Die Zeile ist klar. Man definiert Variable lgzeile als Datentyp Long
[code]
For lgzeile = 2 To Range("D65536").End(xlUp).Row
[/code]
Hier markiert man glaube ich die Zeilen D2 bis D65536(höchste Zeile in excel)
MIr ist nicht klar warum lgzeile =2 und nicht z.B. "D2" und warum es "end(xlUp)" und nicht "end(xlDown) heisst. Man geht doch von D2 nach D65536 runter.
könnte man auch das so schreiben damit nicht alle Zeilen sondern nur die Zeilen mit Inhalt darauf überprüft werden?
[code]
For lgzeile = 2 To Range("D" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row ).End(xlUp).Row
[/code]
Und die Zeile ist noch unklar der Rest ist wieder klar
[code]
If Cells(lgzeile, 4) Date + 6 Then
[/code]
Wofür ist hier 4 und welche ROlle spielt 6? Warum sthen hiere date und cells, variablen können es ja nicht sein, die sind ja nicht definiert.
Gruss
Ryu
Anzeige
AW: Daten von einer Woche berechnen
19.08.2004 14:05:49
einer
For lgzeile = 2 To Range("D65536").End(xlUp).Row
Hier wird nicht markiert! Der Ausdruck Range("D65536").End(xlUp).Row liefert die letzte gefüllte Zelle in Spalte D
UsedRange und SpecialCells sind zum Teil etwas unzuverlässige Kandidaten!
If Cells(lgzeile, 4) Date + 6 Then
Die Syntax von Cells ist Cells(Zeilennr.,Spaltennummer), somit steht die 4 für Spalte D, über lgzeile wird die Zeilennummer gesteuert
Die 6 steht für die Anzahl der Tage über dem heutigen (Date) Datum!
Marc (aus Köln)
AW: Daten von einer Woche berechnen
einer
MIr ist nich nicht klar wofür Step in deiner ersten Version war und wofür "_" nach in der 3 Zeile stand.
Anzeige
AW: Daten von einer Woche berechnen
19.08.2004 14:26:03
einer
Hi,
da in meiner Version die Zeilen ja gelöscht wurden, habe ich die For-Schleife vom letzten Wert bis zum ersten Wert (also rückwärts, das ist bei Löschvorgängen besser)laufen lassen.
mit "_" kann man innerhalb einer Zeile einen Umbruch erzeugen
Marc (aus Köln)
AW: Daten von einer Woche berechnen
einer
Ah dann kann man also lange Zeilen mit "_" trennen. Gut. Danke.! Ich werde demnächst mal wieder eine Frage mit Datum haben, weil ich momentan selber einen Macro mache bei dem die Daen analysiert werden sollen z.B. für eltzte KW, letzten Monat, letzten Jahr usw. Ich werde mich dann wieder später melden. Bis dahin muss ich einen Teil von macro zuende schreiben und noch eine Fehlermöglichkeit abfangen.
Anzeige

299 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
Oberfläche zur Eingabe von Daten
Daten

Hallo zusammen,
ich bin gerade dabei eine etwas umfangreichere Tabelle anzulegen in der ich alle Umsätz, Auftragseingangs-Datum, Rabattsätze, Laufzeiten etc. erfassen will.
Damit ich nicht jedesmal in die (falsche) Zelle klicken muss, möchte ich gerne eine Maske/ Oberfläche anlegen in d...
28.10.2008 18:29:50
Thread-ID: 1020045
18 Beiträge
Daten von wide in long format umordnen
wide

Hallo,
ich habe eine Menge Daten, die ich gerne vom sog. wide ins longformat umordnen möchte.
Im Moment sind alle Unternehmen nebeneinander angeordnet. Für jedes Unternehmen gibt es 5 Spalten = 5 Variablen.
Das ganze soll jetzt so umgeordnet werden, dass die Datumspalte (230 Tage) s...
19.11.2008 01:55:00
Thread-ID: 1025834
2 Beiträge
Übernahme von Zelldaten abhängig von Datum in Regi
Zelldaten

Hallo zusammen,
Folgender Sachverhalt:
In einem File "Gemeinkosten" werden die vorbereitenden Berechnungen zur Auslösung von Gemeinkostenabrechnungen erstellt. Es gibt ein sog. "Stammdatenblatt", in welchem die Grundlegenden Verteilungen der Fixkostenposten geregelt sind. Pro Monat kom...
13.01.2009 12:35:06
Thread-ID: 1039200
3 Beiträge
Anzeige

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
1
2
5
3
8
4
3
17
1
2
6
2
3
4
4
4
4
30
1
2
3
1
7
4
3