Thema Datum  Von Nutzer Rating
Antwort
12.07.2007 13:52:47 Mike Bondzio
NotSolved
12.07.2007 21:10:44 Sozu
NotSolved
Rot Aw:Aw:Doppelte Einträge in Excel
 16.07.2007 13:47:23 Mike Bondzio
NotSolved

Ansicht des Beitrags:
Von:
Mike Bondzio		 Datum:
16.07.2007 13:47:23		 Views:
1801		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Doppelte Einträge in Excel
Sozu schrieb am 12.07.2007 21:10:44:

Hi Mike,
ich habe deinen Code nur mal überflogen...
Du sagst, dass er "eigentlich ganz gut funktioniert"...
So wie ich das sehe dürfte er dir sogar nicht annähernd richtige Ergebnisse liefern, da du ab dem 2. Wert die falschen Zeilen löscht!

For z = 0 To i - 1
Range(zelle(z)).EntireRow.Delete Shift:=x1Up
Next z

...bedeutet ab dem 2. Wert, dass die Zeile von zelle(2) gelöscht wird. Nur befindet sich deine 2. Zeile eigentlich jetzt in der ÜBER zelle(2), da du ja bereits EINE ZEILE gelöscht hast und die ganze Tabelle mit "xlUP" hochgerückt ist.

Lösung:
Lasse die "Löschen-Schleife" einfach rückwärts laufen, dann löscht er wenigstens die richtigen Zeilen:

For z = i - 1 to 0 Step -1
Range(zelle(z)).EntireRow.Delete Shift:=x1Up
Next z

Gruß Sozu

Hallo,

ja manchmal hat man tomaten auf den Augen. Danke

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
12.07.2007 13:52:47 Mike Bondzio
NotSolved
12.07.2007 21:10:44 Sozu
NotSolved
Rot Aw:Aw:Doppelte Einträge in Excel
 16.07.2007 13:47:23 Mike Bondzio
NotSolved