Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zeile verschieben wenn Datum in Zelle älter als 6 Monate
zurück: Verknüpfung auf Netzlaufwerk ablegen weiter: Tabelle nach Werten einer Spalte aufteilen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dominik2401
Einsteiger


Verfasst am:
12. Dez 2013, 17:04
Rufname:

Zeile verschieben wenn Datum in Zelle älter als 6 Monate - Zeile verschieben wenn Datum in Zelle älter als 6 Monate

Nach oben
       

Hallo zusammen,

ich benötige eure Hilfe.
Meine Tabelle besteht aus 3 Sheets. Bestellung,WEErledigt und Archiv

Setzte ich in "Bestellung" den Status "WE" in Spalte I wird die Zeile per Makro in WEErledigt verschoben und wiederrum in Zelle I das aktuelle Datum eingetragen.

Nun möchte ich die Zeile in Archiv verschieben, sobald das Datum in Spalte I älter ist als 180 Tage. Die verschobene Zeile soll immer in Zeile 3 eingefügt werden sodass, die zuletzt archivierte Zeile immer ganz oben steht.

Könnt ihr mir helfen? Gibt es überhaupt eine möglichkeit?

Danke im Voraus
steve1da
Moderator


Verfasst am:
12. Dez 2013, 17:11
Rufname:


AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate - AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate

Nach oben
       

Hola,

klingt so gar nicht nach dot.net.

Gruß,
steve1da
Dominik2401
Einsteiger


Verfasst am:
12. Dez 2013, 17:27
Rufname:

AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate - AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate

Nach oben
       

Danke für das Vertrauen!

Hier der bisherige Code.

Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
'hier dein Code
If UCase(Target) = "WE" Then
VerschiebeZeile Target.Row

End If

End Sub

Private Sub VerschiebeZeile(strZeilenNr As Long)
Sheets("Archiv").Rows(3).Insert shift:=xlUp
Me.Rows(strZeilenNr).Copy Sheets("Archiv").Rows(3)
Me.Rows(strZeilenNr).Delete shift:=xlUp
End Sub


Eigentlich sollte statt If UCase(Target) = "WE" Then
die Sache mit dem Datum kommen.

Leider Arbeite ich noch nicht lange mit Makros und bin deshalb kein voll Profi.

Es wäre schön sich solche Kommentare zu sparen oder einfach zu helfen :-/-

Gruß Dominik
Grüßli
joo mei, 's langt


Verfasst am:
12. Dez 2013, 17:50
Rufname:

AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate - AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate

Nach oben
       

Hi,

subtrahiere das Datum vom heutigen Tag

if date -Target > 180 then


Grüßli

_________________
eine Weisheit aus der "Funkerei", die ich auch immer anwenden sollte ( frommer Wunsch ):"erst denken, dann drücken, dann sprechen!"
Dominik2401
Einsteiger


Verfasst am:
13. Dez 2013, 08:02
Rufname:


AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate - AW: Zeile verschieben wenn Datum in Zelle älter als 6 Monate

Nach oben
       Version: Office 2010

Juhuuuuu! Very Happy
Super hat geklappt. Vielen vielen Dank.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: verketten mit Datum (Format übernehmen) 2 etom2000 3560 20. Aug 2004, 10:20
etom2000 verketten mit Datum (Format übernehmen)
Keine neuen Beiträge Excel Formeln: Autom. Farbänderung einer Zelle. 1 Stefan 66 5197 19. Aug 2004, 14:51
fl618 Autom. Farbänderung einer Zelle.
Keine neuen Beiträge Excel Formeln: Datum vor 1900 7 Petschi 1518 15. Aug 2004, 15:55
Thomas Ramel Datum vor 1900
Keine neuen Beiträge Excel Formeln: Felder ausfüllen nur bis aktuellem Datum 4 Salazar 906 12. Aug 2004, 15:53
fl618 Felder ausfüllen nur bis aktuellem Datum
Keine neuen Beiträge Excel Formeln: Auslesen mehrer Zahlen aus einer Zelle 7 coatin27 3379 11. Aug 2004, 15:18
Arnim Auslesen mehrer Zahlen aus einer Zelle
Keine neuen Beiträge Excel Formeln: Eigabe nur in einer Zelle zulassen 1 pkegelking 1645 11. Aug 2004, 10:42
icke Eigabe nur in einer Zelle zulassen
Keine neuen Beiträge Excel Formeln: Löschen des Zellinhaltes/von anderer Zelle 2 Gast 1962 07. Aug 2004, 23:32
Gast Löschen des Zellinhaltes/von anderer Zelle
Keine neuen Beiträge Excel Formeln: Einfügen des Datei- oder Tabellennamens in eine Zelle 5 Atomteilchen 5024 29. Jul 2004, 12:43
Atomteilchen Einfügen des Datei- oder Tabellennamens in eine Zelle
Keine neuen Beiträge Excel Formeln: automatischer Filter auf Datum 4 Florian 1543 27. Jul 2004, 12:58
Florian automatischer Filter auf Datum
Keine neuen Beiträge Excel Formeln: Extrahieren von Text bis zum ersten Semikolon einer Zelle 8 Gast 2949 13. Jul 2004, 18:59
Arnim Extrahieren von Text bis zum ersten Semikolon einer Zelle
Keine neuen Beiträge Excel Formeln: Datum einfügen 1 akm1978 1126 04. Jul 2004, 00:33
akm1978 Datum einfügen
Keine neuen Beiträge Excel Formeln: Wort in Zelle immer mit Großbuchstaben beginnen 6 QWERT 2522 24. Jun 2004, 15:56
steve1da Wort in Zelle immer mit Großbuchstaben beginnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript