Thema Datum  Von Nutzer Rating
Antwort
Rot If Then Prüfung über mehrere Zeilen
 02.10.2017 12:36:56 Anne
NotSolved
02.10.2017 13:49:21 Werner
NotSolved
02.10.2017 13:57:32 Gast6233
NotSolved
02.10.2017 14:00:37 Werner
Solved

Ansicht des Beitrags:
Von:
Anne		 Datum:
02.10.2017 12:36:56		 Views:
1093		 Rating:
     
Antwort:
  Ja
Thema:
If Then Prüfung über mehrere Zeilen

Hallo Zusammen,

ich stehe momentan ein wenig auf dem Schlauch und wäre dankbar für einen Tipp.

Ich habe eine Tabelle mit einer Übersicht über diverse Kampagnen, bei denen jeweils ein Enddatum hinterlegt ist. ich möchte nun per Knopfdruck die jeweiligen Enddaten mit dem aktuellen Datum abgleichen & wenn diese bereits abgelaufen sind (also aktuelles datum > Enddatum) soll die ganze Zeile ausgeschnitten und in ein anderes Tabellenblat kopiert werden.

Soweit habe ich den Code für die Überprüfung einer Zeile fertig & das ganze funktioniert auch, nun schaffe ich es aber einfach nicht dass Excel das gleiche Makro in den darauffolgenden Zeilen auch durchführt. Hilfe? Habe es über Loop/For Each etc probiert aber irgendwie schaffe ich es nicht..(Bin VBA Anfänger)

 

Sub AbgelaufeneKampagnenAbsortieren()
 
Dim DatumKampagnenEnde As Date
Dim AktuellesDatum As Date

DatumKampagnenEnde = ThisWorkbook.Worksheets("Aktuell").Range("M2").Value
AktuellesDatum = Date

If DatumKampagnenEnde < AktuellesDatum Then

ActiveCell.EntireRow.Select

Application.CutCopyMode = False
Selection.Cut
Sheets("August").Select
Rows("2:2").Select
ActiveSheet.Paste

End If

End Sub
Danke!

LG
Anne

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot If Then Prüfung über mehrere Zeilen
 02.10.2017 12:36:56 Anne
NotSolved
02.10.2017 13:49:21 Werner
NotSolved
02.10.2017 13:57:32 Gast6233
NotSolved
02.10.2017 14:00:37 Werner
Solved