Thema Datum  Von Nutzer Rating
Antwort
24.07.2015 09:50:03 Tutschner
NotSolved
Blau Verschieben von Zeilen aus Detailliste in andere Blätter
 25.07.2015 08:07:24 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
25.07.2015 08:07:24		 Views:
1809		 Rating:
     
Antwort:
  Ja
Thema:
Verschieben von Zeilen aus Detailliste in andere Blätter

Hallo,

mit dem nachstehenden Sub werden alle Zeilen gelöscht, die eine 0% Chance haben:

Sub Filter()
    Dim shSrc As Worksheet
    Dim shDest As Worksheet
    Dim rngDel As Range
    Dim iRowDest As Integer
    Dim iDelRows() As Integer
    Dim iDelRowsCount As Integer
    Dim rngRow As Range
    
    Set shSrc = Worksheets("Tabelle2")
    Set shDest = Worksheets("Projekt verloren")
    
    ' Suche
    iDelRowsCount = -1
    iRowDest = shDest.UsedRange.Rows.Count
    For Each rngRow In shSrc.UsedRange.Rows
        If rngRow.Cells(1, 5) = 0 Then
            iDelRowsCount = iDelRowsCount + 1
            ReDim Preserve iDelRows(iDelRowsCount)
            iDelRows(iDelRowsCount) = rngRow.Row
            iRowDest = iRowDest + 1
            rngRow.EntireRow.Cut shDest.Rows(iRowDest)
        End If
    Next
    If iDelRowsCount >= 0 Then
        Dim iCnt As Integer
        Set rngDel = shSrc.Rows(iDelRows(0))
        For iCnt = 1 To iDelRowsCount
            Set rngDel = Union(rngDel, shSrc.Rows(iDelRows(iCnt)))
        Next
        If Not rngDel Is Nothing Then
            rngDel.Delete
        End If
    End If
End Sub

Es wird davon ausgegangen, dass die Quell-Tabelle in "Tabelle2" vorhanden ist.

VG, BigBen

 

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
24.07.2015 09:50:03 Tutschner
NotSolved
Blau Verschieben von Zeilen aus Detailliste in andere Blätter
 25.07.2015 08:07:24 BigBen
NotSolved