Thema Datum  Von Nutzer Rating
Antwort
02.10.2017 12:36:56 Anne
NotSolved
Blau If Then Prüfung über mehrere Zeilen
 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:
Werner		 Datum:
02.10.2017 13:49:21		 Views:
603		 Rating:
     
Antwort:
  Ja
Thema:
If Then Prüfung über mehrere Zeilen

Hallo Anne,

Public Sub Übertragen()
Dim loLetzteQ As Long, loLetzteZ As Long
Dim wsQ As Worksheet, wsZ As Worksheet
Dim raRange As Range, raZelle As Range

Application.ScreenUpdating = False

Set wsQ = ThisWorkbook.Worksheets("Aktuell")
Set wsZ = ThisWorkbook.Worksheets("August")

With wsQ
    loLetzteQ = .Cells(.Rows.Count, 13).End(xlUp).Row
    loLetzteZ = wsZ.Cells(wsZ.Rows.Count, 1).End(xlUp).Row + 1
    Set raBereich = .Range(.Cells(2, 13), .Cells(loLetzteQ, 13))
    For Each raZelle In raBereich
        If raZelle < Date Then
            raZelle.EntireRow.Copy wsZ.Cells(loLetzteZ, 1)
            raZelle.EntireRow.Delete
            loLetzteZ = loLetzteZ + 1
        End If
    Next raZelle
End With

Set wsQ = Nothing
Set wsZ = Nothing
Set raBereich = Nothing

Application.ScreenUpdating = True
End Sub

 

Gruß Werner

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
02.10.2017 12:36:56 Anne
NotSolved
Blau If Then Prüfung über mehrere Zeilen
 02.10.2017 13:49:21 Werner
NotSolved
02.10.2017 13:57:32 Gast6233
NotSolved
02.10.2017 14:00:37 Werner
Solved