Thema Datum  Von Nutzer Rating
Antwort
27.02.2017 15:20:36 Jochen
NotSolved
Blau Duplikate leeren
 27.02.2017 19:01:19 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
27.02.2017 19:01:19		 Views:
585		 Rating:
     
Antwort:
  Ja
Thema:
Duplikate leeren

Hier eine mögliche Methode:

 

Private Sub CommandButton1_Click()
     Dim z, z2, zmin, zmax, s As Variant
     zmin = 1 ' ggf obere Grenze anpassen (statt 1 z.B. 2, wenn Spalte Überschrift hat)
     zmax = 1000 'ändern, wenn mehr als 1000 zeilen
     s = 1 ' ich gehe davon aus, dass Spalte 1 relevant für die Suche ist - sonst ändern
     For z = zmin To zmax
          If Cells(z, s) <> "" Then
               For z2 = zmin To zmax
                    If Cells(z, s) <> "" Then
                         If Cells(z, s) = Cells(z2, s) And z <> z2 Then
                              Cells(z2, s) = ""
                         End If
                    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
27.02.2017 15:20:36 Jochen
NotSolved
Blau Duplikate leeren
 27.02.2017 19:01:19 Mackie
NotSolved