Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten von einer Woche berechnen

Forumthread: 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
Anzeige

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
Anzeige
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)
Anzeige
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)
Anzeige
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.
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)
Anzeige
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
;

Forumthreads zu verwandten 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
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
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
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
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
Anzeige
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
Anzeige
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
Daten von Userform ins Tabellenblett übertragen
Userform

Hi,
ich möchte mal folgendes versuchen:
Ich habe ein Tabellenblatt mit verschiedenen Datensätzen. Nun möchte ich die Datensätze nicht direkt in das Tabellenblatt schreiben, sondern über ein Formular. (Userform) . Ich stelle mir das so vor:
Auf einer Userform habe ich verschiedene Te...
26.01.2009 14:55:00
Thread-ID: 1043905
7 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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