Thema Datum  Von Nutzer Rating
Antwort
03.07.2012 08:15:27 Johannes
NotSolved
Blau Listenwerte vergleichen und einzelne Zeilen löschen
 03.07.2012 13:51:43 Jo'S
Solved
03.07.2012 13:57:13 Jo'S
Solved
03.07.2012 16:23:55 Gast56031
NotSolved
04.07.2012 09:45:09 Jo'S
NotSolved

Ansicht des Beitrags:
Von:
Jo'S		 Datum:
03.07.2012 13:51:43		 Views:
1711		 Rating:
     
Antwort:
 Nein
Thema:
Listenwerte vergleichen und einzelne Zeilen löschen

Hallo Johannes,

sind die Doppelungen immer direkt hintereinander oder kann eine Doppelung auch um ein paar zeilen verschoben sein?

Code für Doppelung hintereinander:

   Option Explicit

   Sub Loeschen()

   Dim x As Integer
   Dim T1 As Worksheet
   Dim Wert1, Wert2 As String

   Set T1 = Worksheets("insert Data")

   For x = 8 To 8000
       Wert1 = T1.Cells(x, 8).Value
       Wert2 = T1.Cells(x + 1, 8).Value
                  
       If Wert1 = Wert2 Then
           Cells(x, 8).Delete
       Else
       End If
   Next x

End Sub

 

Gruß Jo'S

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.07.2012 08:15:27 Johannes
NotSolved
Blau Listenwerte vergleichen und einzelne Zeilen löschen
 03.07.2012 13:51:43 Jo'S
Solved
03.07.2012 13:57:13 Jo'S
Solved
03.07.2012 16:23:55 Gast56031
NotSolved
04.07.2012 09:45:09 Jo'S
NotSolved