Thema Datum  Von Nutzer Rating
Antwort
03.01.2017 10:09:37 Jonny
NotSolved
Blau Duplikate löschen WENN
 03.01.2017 12:23:05 Onur
NotSolved

Ansicht des Beitrags:
Von:
Onur		 Datum:
03.01.2017 12:23:05		 Views:
564		 Rating:
     
Antwort:
  Ja
Thema:
Duplikate löschen WENN

Sub Makro1()

For Z = 2 To 1000: 'Start ab zeile 2 - Bis max 1000 Zeilen
    w1 = Cells(Z, 1)
    If w1 <> "" Then
        For z2 = Z + 1 To 1000: ' Bis max 1000 Zeilen
        w2 = Cells(z2, 1)
            If w2 <> "" And (w1 = w2) And Cells(z2, 3) < 20 Then
                Rows(z2).Delete Shift:=xlUp
                z2 = z2 - 1
            End If
        Next z2
    End If
Next Z
      
End Sub

              

 

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
03.01.2017 10:09:37 Jonny
NotSolved
Blau Duplikate löschen WENN
 03.01.2017 12:23:05 Onur
NotSolved